; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=1613&highlight=
; Author: Danilo (updated for PB4.00 by blbltheworm)
; Date: 06. July 2003
; OS: Windows
; Demo: No

; ListView - hold new added item in visible area
;    SendMessage_(GadgetID(0),#LB_SETTOPINDEX,Item,0) 

OpenWindow(0,200,200,300,300,"Test",#PB_Window_SystemMenu) 
  CreateGadgetList(WindowID(0)) 
  ListViewGadget(0,5,5,290,290) 

  For i = 0 To 100 

    AddGadgetItem(0,-1,"Item "+RSet(Str(i),4,"0")) 
    SendMessage_(GadgetID(0),#LB_SETTOPINDEX,i,0) 

    Delay(50) 

    Repeat 
      WinEvent = WindowEvent() 
      If WinEvent=#PB_Event_CloseWindow:End:EndIf 
    Until WinEvent = 0 

  Next i 

Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; EnableXP