movimento label

[viviana75]

vorrei mettere una label su una form, e attraverso i tasti freccia della tastiera, far muovere questa label a destra e sinistra.
il movimento è uguale a quello del gioco Arkanoid.
Mi date anche un semplice esempio.
grazie

[cik]

nell'evento keypressed della form controlli il codice del tasto premuto e se è una freccia modifichi le proprietà della label che indicano la sua posizione.
Cerca nel forum che trovi tutto il codice che ti serve

[Foga27News]

Esempio:

'Spostamento in pixel
const INC = 10

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyUp
        Label1.Top = Label1.Top - inc
    Case vbKeyDown
        Label1.Top = Label1.Top + inc
    Case vbKeyLeft
        Label1.Left = Label1.Left - inc
    Case vbKeyRight
        Label1.Left = Label1.Left + inc
End Select
End Sub

Capito?