Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
     Dim selectedItem As String = ComboBox1.Items(ComboBox1.SelectedIndex)
     Dim selectedIndex As Integer = ComboBox1.SelectedIndex
     MsgBox("No." & selectedIndex & ",Name=" & selectedItem)
End Sub