Membuat list Angka otomatis di listbox menggunakan Visual Basic 2008/VB.Net

Jika anda ingin Membuat list Angka otomatis di listbox menggunakan Visual Basic 2008/VB.Net caranya sangat mudah sekali karena tidak dibutuhkan keahlian yang mahir, namun jika anda adalah pemula maka alangkah baiknya anda teliti code dibawah ini, jika bingung tanyakan di komentar dengan menambahkan kata Tanya didepan pertanyaan.

Sekarang buatlah 1 form dengan komponen sebagai berikut:

• 1 Listbox
• 1 Timer

Set Timer1 interval menjadi 1000.

Lihat gambar dibawah ini:

Kemudian Klik 2 kali form1 hapus semua kode dan masukkan kode dibawah ini:

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ListBox1.Items.Add(ListBox1.SelectedIndex + 1)
        ListBox1.SelectedItem = ListBox1.SelectedIndex + 1
        If ListBox1.SelectedIndex > 19 Then
            Timer1.Enabled = False
        End If
    End Sub
End Class