#include "fivewin.ch"
Function Main()
Local oDevice
oDevice := TPrinter():New( ,.f.,.t. )
VRD(oDevice)
return nil
Function VRD(oDevice)
Local oBar
Local oWnd
Public oFoglio
DEFINE WINDOW oWnd COLOR CLR_BLACK, CLR_HGRAY TITLE "Visual Designer" VSCROLL HSCROLL
DEFINE BUTTONBAR oBar OF oWnd
DEFINE BUTTON OF oBar
oFoglio := TMetafile():New( 0, 0, 0, 0, , oWnd,CLR_BLACK,CLR_WHITE, oDevice:nHorzRes(),oDevice:nVertRes() )
ACTIVATE WINDOW oWnd ;
return nil
why not run ?