module1.vb

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

Module Module1
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                                            ByVal hwnd As IntPtr, _
                                            ByVal wMsg As Integer, _
                                            ByVal wParam As Integer, _
                                            ByVal lParam As Integer) _
                                            As Boolean
    Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
    Public Const WM_SYSCOMMAND = &H112
    Public Const SC_MOVE = &HF010&
    Public Const HTCAPTION = 2
End Module