L = Combo1.Width - 330: ' 330 wegen des down-Button
  Leer = ""
  Do
    Leer = Leer + " "
  Loop Until TextWidth(Leer) >= L
  For i = 1 To 20
    c_text = Leer + CStr(i)
    Do
      c_text = Mid(c_text, 2)
    Loop Until TextWidth(c_text) <= L
    Combo1.AddItem c_text
  Next

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)