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

----------------------------------------------------------------
vb@rchiv =/= To boldly go where no programmer has gone before =/=