Langkah pertama buat form seperti diatas dengan menggunakan :
1.
Textbok = untuk menginput data yang akan diisi
2.
Button Isi = untuk memasukkan data pada textbox
ke listbox
Codingnya
sebagai berikut :
Private Sub BtIsi_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BtIsi.Click
ListBox1.Items.Add(TextBox1.Text)
End Sub
3.
Button 1-10 = untuk memasukkan data berupa
angkan 1 sampai dengan 10
Codingnya
sebagai berikut :
Private Sub BtAngka_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BtAngka.Click
Dim A As Integer
A = 0
Do
A = A + 1
ListBox1.Items.Add(A)
Loop Until A = 10
End Sub
