Orneğin rastgele secilen 10 tane sayıyı kucukten buyuğe doğru nasıl sıralayabiliriz.

Forma 2 tane listbox ekliyoruz. Listbox1'dekileri Listbox2'nin icine sıralıcaz.

Public Class Form1
Dim a(10) As İnteger
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
For i = 1 To 10
a(i) = Fix(Rnd(i) * 100)
ListBox1.Items.Add(a(i))
Next
End Sub
End Class
__________________