>============= 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