Hi
hoffe Du hast nicht gerade ne alte Profanversion.
declare listbox1&,font%
Font%=@CREATE("FONT","Times New Roman",13,0,0,0,0)
cls
Let ListBox1&=CreateListBox(%hwnd,"",10,10,472,97)
Font% = @Create("Font","Arial",20,12,0,0,0)
SetFont Listbox1&,Font%
addstring(LISTBOX1&,"Test1")
addstring(LISTBOX1&,"Test2")
addstring(LISTBOX1&,"Test3")
addstring(LISTBOX1&,"Test4")
addstring(LISTBOX1&,"Test5")
while 1
wend
DELETEOBJECT font%
Rolf
|