module1.bas

Visual.Basic.NET实用编程百例-47.6M.zip

Attribute VB_Name = "Module1"
Public Declare Function ReleaseCapture Lib "user32" _
( _
    ) As Long

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

Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const HTCAPTION = 2