If durum = 0 Then
sol = Me.Command0.Left
ust = Me.Command0.Top
Me.Command0.Left = 1440
Me.Command0.Top = 1440
durum = 1
Else
Me.Command0.Left = sol
Me.Command0.Top = Top
durum = 0
End If
Genel deklerasyonda :
Dim durum As Byte
Dim sol, ust As Integer