Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByValwParam As Integer, ByVal lParam As Long) As Long


'下面实现窗体的拖动（因为没有标题栏）
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
       ReleaseCapture
       SendMessage Me.hwnd, &HA1, 2, 0
    End If
End Sub