Dim i&, j&, Out$, Lst$()
 
  ReDim Lst(10, 2)
  Randomize
 
  ' Liste belegen
  For i = 0 To UBound(Lst, 1)
    For j = 0 To UBound(Lst, 2)
      Lst(i, j) = String$(Int(1 + Rnd * 10), Int(65 + Rnd * 26))
    Next j
  Next i
 
  ' Combobox füllen
  Combo1.FontName = "Courier New"
  For i = 0 To UBound(Lst, 1)
    Out = ""
    For j = 0 To UBound(Lst, 2)
      Out = Out & Left$(Lst(i, j) & Space$(15), 15)
    Next j
    Combo1.AddItem Out
  Next i

Gruss,

Zardoz