杀毒

开发平台：

Visual Basic

MoveSize.bas：源码内容

							Attribute VB_Name = "MoveSize"
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public prevWndProc3 As Long
Function WndProc3(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_LBUTTONDOWN Then
        SendMessage Form1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
    Else
        WndProc3 = CallWindowProc(prevWndProc3, hwnd, Msg, wParam, lParam)
    End If
End Function

						