voila j'ai crée un programme qui deplace une image comme dans les jeux de stratégie on clique dessus et kan on clique avec le bouton droit sur un endroit de la fenetre l'image y va le probleme c'est ke quand l'image s'arrete elle tremble.
Voila si qqn peut m'aider merci ^^

voici le code

Dim selection_perso As Variant
Dim X_mouse As Integer
Dim Y_mouse As Integer
Dim dep(100) As Boolean
Dim MarineX(100) As Integer
Dim MarineY(100) As Integer
Dim selectionperso(100) As Boolean

Private Sub Picture1_Click()
selectionperso(1) = True
Label2.Caption = "perso 1 selectionné"
End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For a = 0 To 100
If selectionperso(a) = True Then
If Button = 1 Then
selectionperso(a) = False
Label2.Caption = "peros pa selectionné"
ElseIf Button = 2 Then
MarineX(a) = X
MarineY(a) = Y
dep(a) = True
Timer1.Interval = 1
End If
End If
Next
End Sub

Private Sub Timer1_Timer()
For k = 0 To 100
'determine kan s'arrete le perso
If dep(k) = True Then
If MarineX(k) = Picture1.Left And MarineY(k) = Picture1.Top Then
dep(k) = False
End If
End If
Next
'Deplacement
For a = 0 To 100
If dep(a) = True Then
'dep horizontale
If MarineX(a) > Picture1.Left Then
Picture1.Left = Picture1.Left + 20
ElseIf MarineX(a) < Picture1.Left Then
Picture1.Left = Picture1.Left - 20
End If
'dep verticale
If MarineY(a) > Picture1.Top Then
Picture1.Top = Picture1.Top + 20
ElseIf MarineY(a) < Picture1.Top Then
Picture1.Top = Picture1.Top - 20
End If
End If
Next
End Sub