Dim bZahlen(1 To 49) As Boolean
Dim iZahlen(1 To 6) As Integer
Dim i As Integer, iZahl As Integer
For i = 1 To 6
  Do
    iZahl = 1 + Int(Rnd * 49)
  Loop Until bZahlen(iZahl) = False
  bZahlen(iZahl) = True
  iZahlen(i) = iZahl
Next i
Text1.Text = Join(iZahlen, ",")

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.