hag,
It's the same, but the code of Cristobal is a work in progress. He has not yet been completed.
In other words, is just an example of what he has done about it.
I am trying to found the correct code, also.
Regards.
MEMVAR->TopWin := (GetSysMetrics( 4 )+GetSysMetrics( 15 ))
DEFINE DIALOG oDlg RESOURCE 'TEST'
...
ACTIVATE DIALOG oDlg CENTER RESIZE16 ;
ON INIT (oDlg:Move( MEMVAR->TopWin , MEMVAR->LeftWin , oDlg:nWidth , oDlg:nHeight - 120 , .T. ))