Dim xVersatz As Long
Dim yVersatz As Long
Dim bOk As Boolean
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If Button = vbLeftButton Then
        Form1.MousePointer = vbCustom
        Form1.MouseIcon = LoadPicture(App.Path + "\cross03.cur")
        xVersatz = X
        yVersatz = Y
        bOk = True
    End If
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If bOk Then
        Move Me.Left + X - xVersatz, Me.Top + Y - yVersatz
    End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
    If Button = vbLeftButton Then
        Form1.MousePointer = vbDefault
        bOk = False
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1