WAP to add text in a list and remove it from the list and to clear the list.
___________________________________________________________
Private Sub Command1_Click()
a = InputBox("ENTER Item in the List BOX")
List1.AddItem (a)
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click()
List1.RemoveItem (List1.ListIndex)
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
End Sub
___________________________________________
OUTPUT
___________________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment