【小技巧】VB拖动无标题栏窗体的方法

Dim Nx, Ny As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Nx = X
Ny = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.Move Me.Left + X - Nx, Me.Top + Y - Ny
End Sub