Private Sub Form_Load()
  Dim i As Long
  Dim nMax As Long
  Dim nCount As Long
  Dim nZahl As Long
  Dim nTemp() As Long
  Dim bFound As Boolean
 
  nMax = Command1.UBound
 
  ' Zufallszahlen erzeugen
  nMax = Command1.UBound: nCount = 0
  ReDim nTemp(nMax)
  Randomize -Timer
  nCount = 0
  Do
    nZahl = Int(nMax * Rnd + 1)
    bFound = False
    For i = 1 To nCount
      If nTemp(i) = nZahl Then
        bFound = True: Exit For
      End If
    Next i
    If Not bFound Then
      nCount = nCount + 1
      nTemp(nCount) = nZahl
    End If
  Loop Until nCount = nMax
 
  ' Buttons beschriften
  For i = 1 To nMax
    Command1(i).Caption = CStr(nTemp(i))
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de