Ledsen SvenPon men “Sortering igen” hjälpte mig inte eftersom han använder en helt annan kod så du (eller någon annan) får svara på det här också:

min kod:

Dim tmpArray(35) As Long, i As Long, x As Integer

i = 1
Do Until i > 7 'sju olika nummer som slumpas fram
x = Rnd * 34 + 1

If tmpArray(x) = 0 Then

tmpArray(x) = x
Label1(i) = x
Label1(i).Top = "850" 'de sju lablarna placeras rätt
Label1(i).Left = i * "820"
i = i + 1

End If

Loop

Dessa 7 nummer placeras alltså i 7 olika labels men nu vill jag att den label som har den lägsta siffran som caption ska sorteras först… STIGANDE ALLTSÅ!

Hej
Då kan du kanske göra så här,finns säkert elegantare sätt
men detta föll mig på läppen.
Obs du kan inte skriva 34 i Rnd satsen då får du inte med 35.
Fö tycker jag att det är en ganska knäpp lösning.

Option Explicit
Private Sub Command1_Click()
Dim tmpArray(35) As Long, i As Long, x As Long
i = 1
Do Until i > 7 'sju olika nummer som slumpas fram
x = Int(Rnd * 35) + 1
If tmpArray(x) = 0 Then
tmpArray(x) = x
i = i + 1
End If
Loop
i = 1
For x = 1 To 35
If tmpArray(x) <> 0 Then
Label1(i) = x
Label1(i).Top = 850 'de sju lablarna placeras rätt
Label1(i).Left = i * 820
i = i + 1
End If
Next 'x
End Sub

Sven

Knäpp lösning... Kanske

men det e ju du som skrivit halva koden :-)

men men knäpp eller inte DET FUNKAR TACK FÖR HJÄLPEN!

Hej igen
Du får inte glömma att lägga in ett Randomize i Form Load
Om inte så blir det samma Rnd sekvenser varje gång du startar

DS