Pengulangan Dengan While......When

Setelah di posting sebelumnya saya jelasin FOR...NEXT sekarang saya mau nerangin tentang
Perngulangan Dengan While......When

format While...When:

While (Kondisi)
(Proses selama kondisi dipenuhi)
Wend

Untuk Lebih jelas'y langsung saja praktek :
buat 1commandbuton dan 1listbox lalu masukan di command1

bilangan=1
While bilangan<=17
List1.AddItem bilangan
bilangan = bilangan + 2
Wend

Penjelasan

Bilangan = 1                 =>bilangan sebagai variabel yang di set 1
while bilangan <= 17         =>bilangan itu kurang atau sama dengan 11 berarti kondisi terpenuhi
list1.additem = bilangan + 2 =>list1 akan ditambahkan item dari bilangan dan + 2

Kurang Jelas Silahkan Komen