contoh vb menampilkan 1-10

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PilihAngka.SelectedIndexChanged
        Dim yanggi As Integer
        For yanggi = 1 To 10

            Hasil.Text = Hasil.Text & PilihAngka.Text & "x" & yanggi & "=" & PilihAngka.Text & vbCrLf
            ListBox1.Items.Add(ListBox1.Text & PilihAngka.Text & "x" & yanggi & "=" & yanggi * PilihAngka.Text & vbCrLf)

        Next yanggi
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For yanggi = 1 To 10
            pilihangka.items.add(yanggi)
        Next
    End Sub
End Class