Dim MyArray(0 To 49) As Integer, i As Integer
  Dim bolStillSort As Boolean, intTemp As Integer
  Randomize
  For i = 0 To 49
    MyArray(i) = Int(Rnd() * 50)
    List1.AddItem MyArray(i)
  Next
  Do
    bolStillSort = False
    For i = 0 To UBound(MyArray) - 1
      If MyArray(i) > MyArray(i + 1) Then
        intTemp = MyArray(i)
        MyArray(i) = MyArray(i + 1)
        MyArray(i + 1) = intTemp
        bolStillSort = True
      End If
    Next
  Loop Until bolStillSort = False
  For i = 0 To 49
    List2.AddItem MyArray(i)
  Next

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.