Ejemplo de combobox y list box (tablas de multiplicar )

Codigo:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Integer
        For a = 1 To 12
            ComboBox1.Items.Add(a)
        Next
    End Sub


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

        Dim increment, resultado, numero1, nume As Integer
        ListBox1.Items.Clear()
        For numero1 = 0 To 11
            Select Case ComboBox1.Text
                Case numero1 + 1

                    nume = numero1 + 1
                    For increment = 1 To 10
                        resultado = nume * increment
                        ListBox1.Items.Add(nume & " x " & increment & "  =  " & resultado)

                    Next

            End Select

        Next


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class