XProfan

 $H Windows.ph
Cls
Var hGrid& = Create("GridBox",%hwnd,"Test;0;148;Test;0;148",0,100,10,300,400)
~EnableScrollBar(hGrid&,~SB_HORZ,~ESB_DISABLE_BOTH)
~EnableScrollBar(hGrid&,~SB_VERT,~ESB_DISABLE_BOTH)

WhileLoop 50

    AddString(hGrid&,"Test " + Str$(&Loop))

Wend

While 1

    WaitInput

Wend