XProfan

Proc GetStatusText

    parameters hndl&,part&
    Declare buf#,Text$
    Dim buf#,512
    sendmessage(hndl&,1026,part&,buf#)
    Text$ = string $(buf#,0)
    Dispose buf#
    return Text$

endproc

cls
Declare s#
Dim s#,12
Long s#,0 = 50, 280, -1
var st& = Create("StatusWindow",%Hwnd,"",3,s#)
dispose s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
print gettext$(st&,0) + ""
'if to the following GetText$() simply in clinging setting, functions it correctly..
print gettext$(st&,1)
print gettext$(st&,2)
print
print "Nun with Sendmessage"
print GetStatusText(st&,0)
print GetStatusText(st&,1)
print GetStatusText(st&,2)
waitinput