Module1
OptionExplicit
PublicConstGWL_WNDPROC=(-4)

PublicConstWM_NCHITTEST=&H84
PublicConstHTCLIENT=1
PublicConstHTCAPTION=2

DeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"(ByVallpPrevWndFuncAsLong,ByValhWndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
DeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong)AsLong
DeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong

PublicprevWndProcAsLong

FunctionWndProc(ByValhWndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
WndProc=CallWindowProc(prevWndProc,hWnd,Msg,wParam,lParam)
IfMsg=WM_NCHITTESTAndWndProc=HTCLIENTThen
WndProc=HTCAPTION
EndIf
EndFunction

　　程序首先調用CallWindowProc,這樣就可以從還回值的知當前的鼠標位置位于那一個區域,接著判斷返回值是否等于HTCLENT(工作區)內,如果是,則將返回值設置成TICAPTION(標題區),這樣就可以瞞過Windows,讓Windows以為鼠標位于標題區內

Form1

OptionExplicit

PrivateSubCommand1_Click()
UnloadMe
EndSub

PrivateSubForm_Load()
prevWndProc=GetWindowLong(Me.hWnd,GWL_WNDPROC)
SetWindowLongMe.hWnd,GWL_WNDPROC,AddressOfWndProc
EndSub

PrivateSubForm_Unload(CancelAsInteger)
SetWindowLongMe.hWnd,GWL_WNDPROC,prevWndProc
EndSub