Membuat Angka Berurutan 1-10 Pada Objek ListBox

Membuat Angka Berurutan 1-10 Pada Objek ListBox

1.Desain lah form nya terlebih dahulu ya guys'

2.Pengaturan Properties ny harus di perhatikan secara baik2

NO	OBJECT	PROPERTIES	PENGATURAN
1	Form1	Text	Form1
2	Label1	Text	Hasil
3	Button1	Text	Proses
		Name	Btnproses
4	ListBox1	Name	ListBox1

3.Tampilan Setelah Pengaturan Properties

4.Pemberian Perintah/Intruksi  Program 

Program :

Jika diklik Button 1 (Proses) maka akan tampil di ListBox1 angka 1-10 .

Perintah Program :

1.Perintah pada objek Button1(Proses) :

Private Sub Btnproses_Click(ByVal senderAs System.Object, ByVal e AsSystem.EventArgs) Handles Btnproses.Click

        Dim i As Integer

        i = 1

        ListBox1.Items.Clear()

        Do While i <= 10

            ListBox1.Items.Add(i)

            i = i + 1

        Loop

End Sub

Tampilan Saat Program Dijalankan :

Setelah itu klik x untuk mengeluarkan