Private Sub Command1_Click()
 
' Österreichisches Lotteriespiel mit 45 Zahlen
Dim LN As Integer
Dim LZ As Integer
Dim Lotto(45) As Byte
 
Randomize Timer ' Zufallsgenerator starten
 
For LN = 0 To 6 ' 7 Zahlen ( 6 + Zusatzzahl)
  Do
    DoEvents
    LZ = Int(Rnd * 45) + 1 'Int für ganze Zahlen !
  Loop Until Lotto(LZ) = False
  Lotto(LZ) = True
Next LN
 
' Feld sortieren
For LN = 1 To 45
    If Lotto(LN) = True Then
        temp = temp & LN & "  "
    End If
Next LN
 
' anzeigen
Label1.Caption = temp
 
End Sub