'Private Flag As ?
Private Sub Form_Click()
    If Flag Then
        Shape1.Top = Shape2.Top
        Shape1.Left = Shape2.Left
        Flag = Not (Flag)
    Else
'        Shape1.Top = Shape2.Top + Shape2.Height - ?
'        Shape1.Left = Shape2.Left + Shape2.Width - ?
        Flag = Not (Flag)
    End If
End Sub
Private Sub Form_Load()
    Flag = True
End Sub