XProfan

'Listbox with LBS_MULTICOLUMN Style
 $H messages.ph
CLS
Var m& = Control("LISTBOX","",$54110341,10,10,500,400,%hwnd,0,%hinstance,$0200)'LBS_MULTICOLUMN
SendMessage(m&,~LB_SETCOLUMNWIDTH,80,0)

whileloop 0,300

    addstring(m&,"Hallo"+st$(&loop))

endwhile

Waitkey
end
'The Listbox scrolls never Mouse and Sprite. If the Number of
'Entries The Listbox-Höhe übersteigt becomes in the next slot
'(column) moreover registered.
'without The Message LB_SETCOLUMNWIDTH becomes The wide automatically kalkuliert