- Code: Select all Expand view RUN
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
LOCAL oGet, cVar := REPLICATE( REPLICATE( "This is a test", 30 ) + CRLF, 100 )
DEFINE WINDOW oWnd
@ 0, 0 GET oGet VAR cVar MEMO NOBORDER
oWnd:oClient( oGet )
ACTIVATE WINDOW oWnd
RETURN NIL
EMG