<code>Private Sub Image1_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  <font color=green>' rechte Maustaste -> Drag-Beginn</font>
  If Button = 2 Then
    Image1.DragMode = 1
    Image1.Drag
  End If
End Sub
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  <font color=green>' Drag-End</font>
  If Source Is Image1 Then
    Image1.Move X, Y
  End If
End Sub</code>