Drag dialog

[lXlXlXlXlXlXl]

is there a way i can manipulate this code to make a button to drag dialog instead of having to click the acctual dialog.
Function Dialog

Code:

Copy      Help

,case [WM_LBUTTONDOWN,WM_LBUTTONUP,WM_MOUSEMOVE]
,POINT- pp_drag
,POINT p
,RECT r
,sel message
,,case WM_LBUTTONDOWN
,,xm pp_drag
,,SetCapture hDlg
,,case WM_LBUTTONUP
,,if(GetCapture=hDlg) ReleaseCapture
,,case WM_MOUSEMOVE
,,if(GetCapture!=hDlg) ret
,,GetWindowRect hDlg &r
,,xm p
,,mov r.left+p.x-pp_drag.x r.top+p.y-pp_drag.y hDlg
,,pp_drag=p

i have a captionless dialog thats covered with web browser and buttons i want to create a drag button because there is no space to click on the acctual dialog.

[Gintaras]

Captionless, movable smart dialog?