module1.bas

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· BAS 代码 · 共 17 行

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