Public Class Form1
    'Declare variables
    Dim intNumStudents As Integer
    Dim intNumMembers As Integer
    Dim strSelection As String
    Dim strClubs() As String = {"Honors", "Golden Arrow", "Computer", "Gaming"}
    Dim clubIndex As Integer
    Dim strClubMembers(0, 0) As String

    Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
        'Counts number of members in the list
        intNumMembers = lstMembers.Items.Count - 1

        'Checks to make sure a member name is selected when the remove button is clicked
        If lstMembers.SelectedIndex = -1 Then
            MessageBox.Show("Please select a member to remove")
        ElseIf cbClubs.SelectedIndex = -1 Then
            MessageBox.Show("Please select a club")
        Else
            strSelection = lstMembers.Items(lstMembers.SelectedIndex.ToString) 'Converts select to String
            lstStudentList.Items.Add(strSelection) 'Adds selected string to Student List
            lstMembers.Items.Remove(strSelection) 'Removes selected string from members list
            lblMemberCount.Text = intNumMembers.ToString + " members" 'Updates member count label
        End If
    End Sub

    Private Sub btnAddStudent_Click(sender As Object, e As EventArgs) Handles btnAddStudent.Click

        'Counts number of members in the list
        intNumMembers = lstMembers.Items.Count + 1

        'Checks to make sure a student name is selected when the add button is clicked
        If lstStudentList.SelectedIndex = -1 Then
            MessageBox.Show("Please select a student to add")
        ElseIf cbClubs.SelectedIndex = -1 Then
            MessageBox.Show("Please select a club")
        Else
            strSelection = lstStudentList.Items(lstStudentList.SelectedIndex.ToString) 'Converts selected student to string
            lstMembers.Items.Add(strSelection) 'Adds selected student to Members List
            lblMemberCount.Text = intNumMembers.ToString + " members" 'Updates member count label

        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each club As String In strClubs
            cbClubs.Items.Add(club)
        Next
    End Sub
End Class