Code: Select all
OpenWindow(0, #PB_Ignore, #PB_Ignore, 200, 200, "test")
ListIconGadget(1, 0, 0, 200, 200, "test", 50)
For i = 1 To 100
AddGadgetItem(1, LVitem - 1, Str(i))
Next i
SetGadgetColor(1, #PB_Gadget_FrontColor, RGB(255, 255, 255))
SetGadgetColor(1, #PB_Gadget_BackColor, RGB(0, 0, 0))
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow