>>>============= VB Coding =========
>>>
>>>Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
>>>
>>>Const WM_NCLBUTTONDOWN = &HA1
>>>Const HTCAPTION = 2
>>>
>>>lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
>>>
>>>============= VFP Coding(?) =========
>>>Please help me!

Coding provided by Erik Moore;
#DEFINE WM_CLOSE 0x10
DECLARE INTEGER FindWindow IN Win32API STRING, STRING
hWnd = FindWindow(0,"MSDN Library - January 2000")
=SendMessage(hWnd, WM_NCLBUTTONDOWN, 12, 0)

------------------------------------------------------------

But, I don't know how can I define this code;

VB : Const WM_NCLBUTTONDOWN = &HA1
VFP : #DEFINE WM_NCLBUTTONDOWN ???????