çok acil yardım lazım lütfen visual basic

arkadaşlar hocamız ödev verdi
şimdi elimizde böyle bir döngü var
dim a,b as int32
a=textbox1.text
for b=1 to a
listbox1.items.add(a)
next
şimdi listbox1 e textbox a girilen sayıya kadar döngü yapacak.
hocanın istediği bu sayıya kadar listbox a yeni bir item eklendiğinde
itemin yanına 1. de* 2. de ** 3.de*** ... gibi devam edecek
veya 1.itemi eklerken yanına 1,2.yi eklerken 2,3.yü eklerken 3, 4, yü eklerken 4 ...  devam edip gidecek
yani taslağı şöyle olacak
textbox a örneğin 5 girdik sayıyı 5 e kadar dönderecek, dönderirken yanına 1 , 2, 3 ... ekleyecek
yani                               veya             hemen aşağıdakini ekleyecek
1     1                                                *     1
2     2                                                **   2
3     3                                                ***  3
4     4                                                ****   4
5     5                                               *****    5
bunu nasıl yaparız yardımcı olursanız çook sevinirim

list1.add.item satırını list1.add.item (a) & "de" yapmalısın

yalış anladın
listbox1 e örneğin for döngüsünde
1
2
3
4
...
diye devam ediyor ya  benim istediğim o döngüyü dönderirken yanına  1
                                                                                                     2
                                                                                                     3
                                                                                                     4
                                                                                                     ... yazdırmak istiyorum
yani 
1   1
2   2
3   3
4   4
5   5
..   ..
diye devam etmesi

Dim a, b As Int32
        a = TextBox1.Text
        For b = 1 To a
            ListBox1.Items.Add(b & " " & b)
        Next

eyw saolası
bide bunu yıldız şeklinde nasıl yaparız yada yanyana 2 sayı seklinde yani
1     a                                veya            *       a
12    asd                                              **     asd
123    5                                                ***   asdaa
1234    safa                                          ****   asdasda
...                                                       ...
şeklinde

yardum lütfennnnn

* Yani Parola Bigisi olacak Bölümlere koyulur Kodlamayı vb progrramıyla yapıyorsan nesneye tıka sağ tarafta özelliklerde Pasworld yazan yer var saten orsı boş'dur oraya sadece Bir yıldız koy yeter

dim d="" //string bir ifade tanımlaman lazım.

For b=0 to a 

   For c=0 to b

   d=d &"*"

   Next

listbox1.,items.add(a&" "&d)
d=""

Next

Bu kodlar işini çözer.