Lesson 6: ListBox and ComboBox in VB2019

Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
    ' Declare a variable to store the new item
    Dim newItem As String
    
    ' Prompt user for input using an InputBox
    newItem = InputBox("Enter item to add:")
    
    ' Add the item to the ListBox
    If newItem <> "" Then
        ListBox1.Items.Add(newItem)
    End If
End Sub

Private Sub BtnRemove_Click(sender As Object, e As EventArgs) Handles BtnRemove.Click
    ' Declare a variable to store the item to remove
    Dim removeItem As String
    
    ' Prompt user for item to remove
    removeItem = InputBox("Enter item to remove:")
    
    ' Remove the item if it exists
    If removeItem <> "" AndAlso ListBox1.Items.Contains(removeItem) Then
        ListBox1.Items.Remove(removeItem)
    Else
        MsgBox("Item not found in the list!")
    End If
End Sub

Private Sub BtnComboAdd_Click(sender As Object, e As EventArgs) Handles BtnComboAdd.Click
    ' Declare variable for new item
    Dim newItem As String
    
    ' Get input from user
    newItem = InputBox("Enter item to add to ComboBox:")
    
    ' Add item if not empty
    If newItem <> "" Then
        ComboBox1.Items.Add(newItem)
    End If
End Sub

Private Sub BtnComboRemove_Click(sender As Object, e As EventArgs) Handles BtnComboRemove.Click
    ' Declare variable for item to remove
    Dim removeItem As String
    
    ' Get item to remove from user
    removeItem = InputBox("Enter item to remove from ComboBox:")
    
    ' Remove item if it exists
    If removeItem <> "" AndAlso ComboBox1.Items.Contains(removeItem) Then
        ComboBox1.Items.Remove(removeItem)
    Else
        MsgBox("Item not found in the ComboBox!")
    End If
End Sub