'Mausposition
    Private MouseX As Long
    Private MouseY As Long
 
  'Bild durch Maus bewegen | Bild wird angeklickt
    Private Sub Picture1_MouseDown(ByVal Button As Integer, ByVal Shift As _
      Integer, ByVal X As Single, ByVal Y As Single)
        MouseX = X
        MouseY = Y
        Debug.Print("Klick")
    End Sub
 
    'Mousebewegung | Vertexposition an Maus anpassen
    Private Sub Picture1_MouseMove(ByVal Button As Integer, ByVal Shift As _
      Integer, ByVal X As Single, ByVal Y As Single)
        If Button = 1 Then
            Me.Left = Me.Left + (X - MouseX)
            Me.Top = Me.Top + (Y - MouseY)
        End If
        Debug.Print("Move")
    End Sub