>>============= 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!
>Hi,
>
>Look at API#12644
>
>There Ed has done this for you

If the above code is correct (I assume, it is), it could be added to show declaration in VB and example in VB. This info was provided by Erik Moore.