___________________________________________________________
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