Visual studio kabarcık sıralama alg. soru

Dim deger 
          Dim sayi, ara, z, y, art As Integer 
          For i = 1 To 10 
              Randomize() 
              deger = Int((100 * Rnd()) + 1) 
              ListBox1.Items.Add(deger) 
          Next 
          For s = 0 To 9 
              ListBox2.Items.Add(ListBox1.Items(s)) 
          Next 
          For i = 0 To 8 
              For x = 0 To 8 
                  z = ListBox1.Items(x) 
                  art = x + 1 
                  y = ListBox1.Items(art) 
                  If z > y Then 
                      ara = ListBox1.Items(x) 
                      ListBox1.Items(x) = ListBox1.Items(x + 1) 
                      ListBox1.Items(x + 1) = ara 
                  End If 
              Next 
          Next