Public Class Main

    
    'variables to store votes for best male student
    Dim shtHadiCount As Short
    Dim shtFikreeCount As Short
    Dim shtWenCount As Short
    Dim shtHishamCount As Short
    Dim shtSaufiCount As Short


    'variables to store votes for best female student
    Dim shtIliCount As Short
    Dim shtAnisCount As Short
    Dim shtRohayaCount As Short
    Dim shtShaminiCount As Short
    Dim shtYasminCount As Short

    'variables to store votes for best international male student
    Dim shtEhabCount As Short
    Dim shtAhmedCount As Short
    Dim shtIvanCount As Short
    Dim shtLimCount As Short
    Dim shtThetCount As Short

    'variables to store votes for best international female student
    Dim shtHongCount As Short
    Dim shtVuCount As Short
    Dim shtKasmaCount As Short
    Dim shtSarunCount As Short
    Dim shtDoCount As Short


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub btnVote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVote.Click
        'Process Best Male Student vote
        Select Case cboMale.SelectedItem
            Case "ABDUL HADI BIN ALIAS"
                shtHadiCount += 1
            Case "AHMAD FIKREE BIN KAMIL"
                shtFikreeCount += 1
            Case "CHAN WEN KIAT"
                shtWenCount += 1
            Case "HISHAM BIN OSMAN"
                shtHishamCount += 1
            Case "SAUFI BIN ALI"
                shtSaufiCount += 1
        End Select
        cboMale.SelectedItem = -1 'Reset the combo box to unselected

        'Process Best Female Student vote
        Select Case cboFemale.SelectedItem
            Case "ILI NABILAH NASIR"
                shtIliCount += 1
            Case "NUR ANIS BINTI NOR AZLAN"
                shtAnisCount += 1
            Case "ROHAYA BINTI RAMLI"
                shtRohayaCount += 1
            Case "SHAMINI A/P SRIDARAN"
                shtShaminiCount += 1
            Case "YASMIN BINTI KHAMIS"
                shtYasminCount += 1
        End Select
        cboFemale.SelectedItem = -1 'Reset the combo box to unselected

        'Process Best International Male Student vote
        Select Case cboMaleInt.SelectedItem
            Case "AHMED EHAB MOHAMED ZAGHLOUL"
                shtEhabCount += 1
            Case "AHMED MOHAMED SAAD"
                shtAhmedCount += 1
            Case "IVAN SYLVESTER GOMEZ"
                shtIvanCount += 1
            Case "LIM BOREY"
                shtLimCount += 1
            Case "THET SAN"
                shtThetCount += 1
        End Select
        cboMaleInt.SelectedItem = -1 'Reset the combo box to unselected

        'Process Best International Female Student vote
        Select Case cboMaleInt.SelectedItem
            Case "NGUYEN HONG NHUNG"
                shtHongCount += 1
            Case "VU PHUONG ANH"
                shtVuCount += 1
            Case "TUAN KASMA"
                shtKasmaCount += 1
            Case "SARUN MUNSEILA"
                shtSarunCount += 1
            Case "DO KIM DIEU"
                shtDoCount += 1
        End Select
        cboFemaleInt.SelectedItem = -1 'Reset the combo box to unselected
    End Sub

    Private Sub btnResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResult.Click
        'Best Male Student
        cboMale.Items(0) &= " (" & shtHadiCount & ")"
        cboMale.Items(1) &= " (" & shtFikreeCount & ")"
        cboMale.Items(2) &= " (" & shtWenCount & ")"
        cboMale.Items(3) &= " (" & shtHishamCount & ")"
        cboMale.Items(4) &= " (" & shtSaufiCount & ")"

        cboFemale.Items(0) &= " (" & shtIliCount & ")"
        cboFemale.Items(1) &= " (" & shtAnisCount & ")"
        cboFemale.Items(2) &= " (" & shtRohayaCount & ")"
        cboFemale.Items(3) &= " (" & shtShaminiCount & ")"
        cboFemale.Items(4) &= " (" & shtYasminCount & ")"

        cboMaleInt.Items(0) &= " (" & shtEhabCount & ")"
        cboMaleInt.Items(1) &= " (" & shtAhmedCount & ")"
        cboMaleInt.Items(2) &= " (" & shtIvanCount & ")"
        cboMaleInt.Items(3) &= " (" & shtLimCount & ")"
        cboMaleInt.Items(4) &= " (" & shtThetCount & ")"

        cboFemaleInt.Items(0) &= " (" & shtHongCount & ")"
        cboFemaleInt.Items(1) &= " (" & shtVuCount & ")"
        cboFemaleInt.Items(2) &= " (" & shtKasmaCount & ")"
        cboFemaleInt.Items(3) &= " (" & shtSarunCount & ")"
        cboFemaleInt.Items(4) &= " (" & shtDoCount & ")"



    End Sub

End Class