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?!