#define SM_CXSCREEN              0 
#define SM_CYSCREEN              1 

DECLARE Integer GetSystemMetrics IN WIN32API integer

nWidth = GetSystemMetrics(SM_CXSCREEN)
nHight = GetSystemMetrics(SM_CYSCREEN)

with oForm
.Top =  1 
.Left = 1 
.Width =  nWidth 
.Height = nHeight
.Show( 1 )
endwith

#define SM_CXSCREEN              0 
#define SM_CYSCREEN              1 

DECLARE Integer GetSystemMetrics IN WIN32API integer
Local nWidth,nHight

nWidth = GetSystemMetrics(SM_CXSCREEN)
nHight = GetSystemMetrics(SM_CYSCREEN

with thisform
.Top =  1 
.Left = 1 
.Width =  nWidth 
.Height = nHeight
endwith

Public loObject
loObject =  .NULL.
DO FORM your_form NAME loObject   Noshow
if vartype(loObject) !="O" or Isnull(loObject)
    return .f.
endif
loObject.Show()
* loObject.Show() -  модально

loObject.Show( 1 ) -  модально