Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32"
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam
As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
然后,在Form_MouseDown事件中:
Private Sub Form_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd,WM_NCLBUTTONDOWN,
HTCAPTION, 0&End Sub