Option Explicit
 
Private Const c_NumLbl As Integer = 90
 
Private m_col As Collection
 
Private Sub cmdReset_Click()
 
  InitLbls
 
End Sub
 
Private Sub cmdDraw_Click()
 
  If m_col.Count > 0 Then
    Draw
  End If
 
End Sub
 
Private Sub Form_Load()
 
  InitLbls
  Randomize Timer
 
End Sub
 
Private Sub InitLbls()
 
  Dim i As Long
 
  Set m_col = New Collection
 
  cmdDraw.Enabled = True
  For i = 1 To c_NumLbl
    lbl(i - 1).BackColor = &H8000000F
    lbl(i - 1).Caption = i
    m_col.Add lbl(i - 1)
  Next i
 
End Sub
 
 
Private Sub Draw()
 
  Dim num As Integer
  Dim lb As Label
 
  num = Int(Rnd() * m_col.Count) + 1
  Set lb = m_col(num)
  lb.BackColor = vbRed
  m_col.Remove num
  If m_col.Count = 0 Then
    cmdDraw.Enabled = False
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time