Private Sub Command1_Click()
Dim LottoArray(35) As Long, i As Long, num As Long
Dim k

For k = 1 To 35
Label1(k).ForeColor = vbGrayText
Next

For i = 1 To 7
num = Int(Rnd * 35) + 1
If i > 7 Then Exit Sub
Label1(num).BackColor = vbBlue
Label1(num).ForeColor = vbWhite
Label1(num).Caption = num
Next
'*********** Här vill jag ha det sorterat från vänster till höger
'*********** med lägsta nummer till vänster och stigande ordning
'*********** till höger.
For k = 1 To 7
Text2(k).Text = Label1(num)
Next

Några förslag koden är inte helt korrekt men kör och se slumpade nummer, skall skrivas i text2.text enligt det remmade.

Hej

Hela svaret står ju på ditt inlägget här under PLACERING
Du kan inte använda ForSats när du slumpar,det kommer
med all säkerhet att bli dubbletter i slumpen.
Du skall alltså använda Do Untill enl tidigare svar.
DS

Kan inte få det ändå att i text boxarna 1 till 7 på nedersta raden att bli sorterade från vänster till höger, med lägsta nummer till vänster och sedan stigande ordning. textboxarna heter text2(1) till text2(7).

de övre matrisen är från 1 till 35 och där får jag nummer i rätt nummer
och den heter label1(1) till label1(35)

Hej
Nu har jag skrivit hela programmet till dig,det får inte bli nån vana.
Du behöver inte ha någon TextBox array ,det går lika bra med
selleri .Eftersom du inte skall skriva något är det bättre
med Label. Här Label2.

Option Explicit
'35 Label1( 1 - 35) Alignement 2 Center
'En Command1, En Label2 (lång smal kan innehålla 7 nr)
'SvenPon som är en djä... på Vb har skrivit denna kod
'Om programmet genererar en lottovinst på > 1 milijon
'skall jag ha 1 %

Private Sub Form_Load()
Dim i As Long
'Detta är onödigt,sätt hellre vbWhite och Alignment redan i Designläge
For i = 1 To 35
Label1(i).ForeColor = vbWhite
Label1(i).Alignment = 2 'Center
Next 'i
Randomize
'Samma här ,sätt detta i designläge
Label2.Alignment = 2 'Center
End Sub

Private Sub Command1_Click()
Dim LottoArray(35) As Long, i As Long, num As Long
For i = 1 To 35 ' rensa gammalt
Label1(i).Caption = ""
Label1(i).BackColor = &H8000000F
Label2 = ""
Next ' i
i = 1
Do Until i > 7
num = Int(Rnd * 35) + 1
If LottoArray(num) = 0 Then
LottoArray(num) = num
Label1(num).BackColor = vbBlue
Label1(num).Caption = num
i = i + 1
End If
Loop

For i = 1 To 35 ' Skriv sorterat i Label2
If LottoArray(i) <> 0 Then _
Label2.Caption = Label2.Caption _
& CStr(LottoArray(i)) & " "
Next ' i
End Sub

Sven