Dim ende As Boolean
Dim xOld As Long
Dim yOld As Long
 
Private Sub Form_Load()
    ende = True
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    ende = False
    xOld = X
    yOld = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    DoEvents
    If ende Then Exit Sub
    Move Left - xOld + X, Top - yOld + Y
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
    ende = True
End Sub

Gru? Michi aus Hannover

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