Ciao..semplicemente devi modificare le proprietà Left e Top della picture. Esempio:
codice:
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Is = vbKeyDown
Picture1.Top = Picture1.Top + dy
Case Is = vbKeyUp
Picture1.Top = Picture1.Top - dy
Case Is = vbKeyRight
Picture1.Left = Picture1.Left + dx
Case Is = vbKeyLeft
Picture1.Left = Picture1.Left - dx
End Select
End Sub
Dove dx e dy rappresentano rispettivamente gli spostamenti orizzontale e verticale.
Ciao..
ps: ma le altre discussioni da te postate?!