Option Explicit
Const nMax = 90
 
Dim nCount As Integer
Dim bZahl() As Boolean
 
Private Sub Form_Load()
  ReDim bZahl(nMax)
End Sub
 
Private Sub Command1_Click()
  ' Neue Zufallszahl ermitteln
  Dim nZahl As Integer
 
  Randomize -Timer
  Do
    ' Zufallszahl 1..nMax
    nZahl = Int(nMax * Rnd + 1)
 
    ' Prüfen, ob Zufallszahl bereits "gezogen"
  Loop Until Not bZahl(nZahl)
 
  ' Zahl merken und in ListBox schreiben
  bZahl(nZahl) = True
  List1.AddItem CStr(nZahl)
  nCount = nCount + 1
  If nCount = nMax Then Command1.Enabled = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de