Dim rastgele
        ListBox1.Items.Clear()
        Randomize()
        For i = 1 To 10
            dizi(i) = Fix(Rnd() * 100) + 1
            ListBox1.Items.Add(dizi(i))
        Next

Bu şekilde rastgele rakam çıkaracak bir program yazıyoruz. Ancak artan - azalan sıralaması yapmak gerekiyor listbox un içindeki rakamları radio butonlar yardımıyla. Bilgisi olan yardımcı olabilir mi acaba ?