Private Sub Slumpgen()
'Här slumpas det fram nya nummer för joker
Dim num()
Dim k, i, nummer
ReDim num(9)
i = 0

Randomize
'************************************ rensa joker boxen
For k = 0 To 6
TxtJoker(k) = ""
Next k
'*********************************** slump generator
ny:

nummer = Int(Rnd * 9)
If nummer = num(0) Then GoTo ny ' kommer ej upp
If nummer = num(1) Then GoTo ny
If nummer = num(2) Then GoTo ny
If nummer = num(3) Then GoTo ny
If nummer = num(4) Then GoTo ny
If nummer = num(5) Then GoTo ny
If nummer = num(6) Then GoTo ny
If nummer = num(7) Then GoTo ny
If nummer = num(8) Then GoTo ny
If nummer = num(9) Then GoTo ny

TxtJoker(i).Text = nummer
num(i) = nummer

'************************************ vill att nummer kommer upp med tex. 5 sekunders mellanrum

i = i + 1

If i = 7 Then Exit Sub

GoTo ny

End Sub

Hej
Min gamla kod ser jag,den gjorde jag som nybörjare på
VB 3 tiden. Koden är inte bra för Joker,den är
inte bra för nått. Samma nummer kan inte komma upp
två gånger.Det kan det ju i Joker.
9 kommer inte med som du skrivit.
Beträffande 5 sek delay kan man använda en Timer.

mvh
Sven

Hej
Ungefär så här skulle man kunna lösa det

Option Explicit
'En Timer1 (JokerTimer) En Command1,
'Label1(0) - Label1(6)
Dim Incr As Long

Private Sub Form_Load()
JokerTimer.Enabled = False
JokerTimer.Interval = 1000 '1 sek
Randomize
End Sub

Private Sub Command1_Click()
Dim i As Long
For i = 0 To 6
Label1(i).Caption = ""
Next 'i
JokerTimer.Enabled = True
End Sub

Private Sub JokerTimer_Timer()
Dim num As Long
num = Int(Rnd * 10) '10 för att 0 - 9 skall komma med
Label1(Incr).Caption = num
Incr = Incr + 1
If Incr = 7 Then
JokerTimer.Enabled = False
Incr = 0
End If
End Sub

mvh
Sven

Men....

Jokernummer kan man väl inte välja själv? Står ju förtryckta på
tipskupongen??

Trodde
Rickard..

Hej
Jodå du får välja ett eget Jokernummer om du vill

mvh
Sven