msgdragfrom.bas

vb做的数据库 客户管理系统

Attribute VB_Name = "msgDragFrom"
Option Explicit

' Used to make the form draggable
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
' Also used to make the form draggable
Public Declare Function ReleaseCapture Lib "user32" () As Long




Public Sub DoDrag(TheForm As Form)
    ' TheForm:  The form you want to start dragging

    If TheForm.WindowState <> vbMaximized Then
        ReleaseCapture
        SendMessage TheForm.hwnd, &HA1, 2, 0&
    End If
End Sub