Well, I've came up with a clever little idea of mine to make an organizer for myself for my classes. I don't really feel like explaining how exactly it works so I've included a picture, you should get the idea.



I've added random labels of random classes as a test. When the add button is clicked, combobox1 and textbox1 become visible. In the scenario that "English" is selected from the combobox, whatever is entered into the textbox will go directly into listbox1 since listbox1 is right under English. Here's the code.

Code:
1 Dim text As String
       2 text = TextBox1.Text

       3 ComboBox1.Visible = True
       4 TextBox1.Visible = True

       5 Select Case True
       6     Case ComboBox1.SelectedItem = "English"
       7         If text <> "" Then
       8             ListBox1.Show(text)
       9         End If
       10 End Select
  11  End Sub
I know where the error is but I dont know what to do to fix it. What do i fix in line 8?