sub DeleteListBoxItem(ByVal gadget As long, ByVal pos As Long)
Удаляет указанный пункт
gadget - номер гаджета
pos - индекс для удаления (начинаются с нуля)
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("",10,10,200,200)
ListBoxGadget(1,10,10,100,100)
AddListBoxItem(1,"1 String")
AddListBoxItem(1,"2 String")
DeleteListBoxItem(1,0)
Do
Var event=WaitEvent
Select Case event
Case EventClose
End
End Select
Loop
Created with the Personal Edition of HelpNDoc: Produce electonic books easily