Obtendo o índice do item selecionado em um ComboBox

'Este exemplo mostra como obter o índice do item selecionado
'em um ComboBox com o valor DropDownList para a propriedade
'DropDownStyle

'Se nenhum item estiver selecionado, o valor será -1

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

    Dim indice As Integer = ComboBox1.SelectedIndex
    MsgBox("O índice do item selecionado é: " & indice)

  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
    'adiciona itens no combo
    ComboBox1.Items.Add("Visual Basic")
    ComboBox1.Items.Add("C#")
    ComboBox1.Items.Add("Java")
    ComboBox1.Items.Add("Delphi")
    ComboBox1.Items.Add("JavaScript")
  End Sub
End Class