Can anyone help me with this problem?
I have to sort the random numbers in lstVelg in lstSorter
by using selection sort.

Thank you!

Option Explicit
Option Base 1 'setter nedre grense til 1


Private Sub cmdExit_Click()
End 'avslutter program
End Sub

Private Sub cmdSorter_Click()

End Sub

Private Sub cmdVelg_Click()
Dim teller As Integer
Dim Tall(10) As Integer


lstVelg.Clear 'tømmer lista for innhold
lstSorter.Clear 'tømmer lista for innhold

'velger 10 tall
For teller = 1 To 10 'teller is counter
Randomize
Tall(teller) = 1 + Int(1000 * Rnd())'tall is number
lstVelg.AddItem Tall(teller)

Next teller



End Sub