VB .NET - Obter o índice do item selecionado em uma ListBox

    Private Sub btnIndice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIndice.Click

        Dim indice As Integer = ListBox1.SelectedIndex

        MsgBox("O índice do item selecionado é: " & indice, MsgBoxStyle.Information, "INDICE")

    End Sub

Espero ter ajudado e att.