Do Until Kondisi
Statemen1
Statemen2
...
StatemenN
Loop
- Rancangan from seperti diatas
- Tulis kode berikut didalam form1
Dim Halaman As Byte
Halaman = 1
Do Until Halaman = 11
LisBox1.Items.Add(Halaman)
Halaman = Halaman + 1
Loop
End sub
End Class
Semoga Bermanfaat ya kawan-kawan......
0 comments:
Post a Comment