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