Code: Select all
If OpenWindow(0, 0, 0, 270, 140, "ListViewGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListViewGadget(0, 10, 10, 250, 120)
For a = 1 To 12
AddGadgetItem (0, -1, "Item " + Str(a) + " of the Listview")
Next
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
MessageRequester("Move the scrollbar",Str( GetGadgetState(0)+1))
EndSelect
Until event = #PB_Event_CloseWindow
EndIf
