Option Explicit
Private XPos&, YPos&
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  XPos = X: YPos = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  If Button = vbLeftButton Then Move Left + ScaleX(X - XPos, ScaleMode, _
  vbTwips), Top + ScaleY(Y - YPos, ScaleMode, vbTwips)
End Sub

Gruss,

Zardoz