Penggunaan ToolBars ListBox

Source Code :

Private Sub cmd_clear_Click()
List1.Clear
End Sub

Private Sub cmd_delete_Click()
    'bisa menggunakan syntak di bawah ini
'List1.RemoveItem (Me.List1.ListIndex)
    'atau
List1.RemoveItem List1.ListIndex
End Sub

Private Sub cmd_tambah_Click()
List1.AddItem txt_input.Text
txt_input.Text = ""
txt_input.SetFocus
End Sub