Private Sub Form_Load()
 
  ListBox1.ColumnCount = 3
 
  'Listbox mit Zufallswerten füllen (String, Double, Date)
  Dim i As Integer
  With ListBox1
    For i = 1 To 1600
       AddItems ListBox1, "A" & CStr(Round(Rnd, 4)), _
       Round(100 * Rnd, 4), _
       Randomdate
    Next i
  End With
 
  'Sortieren (Control, Spaltenindex, Spaltentyp)
  Call SortListbox(ListBox1, 1, 0)
  'Call SortListbox(ListBox1, 2, 1)
  'Call SortListbox(ListBox1, 3, 2)
End Sub
 
Private Sub AddItems(lb As Msforms.ListBox, _
  Text1 As String, Text2 As String, Text3 As String)
  'Hilfsfunktion Listbox füllen
  lb.AddItem (Text1)
  lb.List(lb.ListCount - 1, 1) = Text2
  lb.List(lb.ListCount - 1, 2) = Text3
End Sub
 
Public Function Randomdate() As Date
   'Hilfsfunktion: Zufallsdatum
   Dim str As String
   str = CStr(CInt(Rnd * 27) + 1) & "." & _
            CStr(CInt(Rnd * 11) + 1) & ".2011"
   Randomdate = CDate(str)
End Function