Belajar VB.Net

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 1 To 30

            ComboBox1.Items.Add(i)

        Next i

        For i = 1 To 255

            ListBox1.Items.Add("Karakter" & i & " = " & Chr(i))

        Next i

        For i = 255 To 1 Step -1

            ListBox2.Items.Add("Karakter" & i & " = " & Chr(i))

        Next i

    End Sub

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

    End Sub

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

        ListBox1.Items.Clear()

        For i = 1 To 10

            ListBox1.Items.Add(ComboBox1.Text & " x " & i & " = " & ComboBox1.Text * i)

        Next i

        ListBox2.Items.Clear()

        For i = 10 To 1 Step -1

            ListBox2.Items.Add(ComboBox1.Text & " x " & i & " = " & ComboBox1.Text * i)

        Next i

    End Sub

End Class

untuk menambah ilmu anda klik lah link dibawah ini!! mesran punya blog