Private Sub Form_Load()
  Dim i As Long
 
  With roListBox1
    For i = 1 To 10
      .AddItem , "Eintrag " & String$(i, "x") & "-" & vbTab & _
        "Spalte2 " & String$(11 - i, "x") & "y" & vbTab & _
        "Spalte3 " & String$((30 - i) * i, "x") & "z"
    Next i
  End With
End Sub
 
Private Sub Command1_Click()
  roListBox1.AutoWidth = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de