Dim i As Long
  Dim u As Long
  Dim sChar As String
  Dim sTemp As String
 
  For i = 1 To 80
    Randomize -Timer
    sTemp = Format$(i, "00")
    u = 0
    Do
      sChar = Chr$(64 + Int(26 * Rnd + 1))
      If InStr(sTemp, sChar) = 0 Then
        sTemp = sTemp & " " & sChar
        u = u + 1
      End If
    Loop Until u = 26
 
    List1.AddItem sTemp
    DoEvents
  Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de