applicazione di Move a controllo , immagine

Private Sub UserForm_Click()
Rem move x verso destra e y verso il basso con click su form
Dim x, y As Integer
x = 10
y = 10
Controls.Move x, y
End Sub

assegnare medesimo sfondo a immagine e form e stile nullo
vedi muove1.ppt

attivazione di proprietà Move x,y e Enabled true-false

attiva spostamento verso destra o verso sinistra agendo su proprietà Enabled (true o false)

Private Sub CommandButton1_Click()
Rem move x verso destra e y verso il basso o orizzontale con click su pulsante
Dim x, y, k As Integer
x = 1
y = 0
For k = 1 To 10
Controls.Move x, y
Next k
End Sub

Private Sub CommandButton2_Click()
Rem move x verso sinistra e y verso il basso o orizzontale con click su pulsante
Dim x, y, k As Integer
x = -1
y = 0
For k = 1 To 10
Controls.Move x, y
Next k
End Sub

Private Sub CommandButton3_Click()
CommandButton2.Enabled = False
CommandButton1.Enabled = True
End Sub

Private Sub CommandButton4_Click()
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End Sub

vedi muove2.ppt