Thema: Sortieren der ListBox

• Variablendeklaration
• Rahmen um das ListBox-Objekt bilden
• Schleife über alle ListBox-Element führen
• Schleife über alle ListBox-Elemente ab dem aktuellen Element plus eins bilden
• Wenn das letzte Element größer als das aktuelle Element...
• Das letzte Element in einer Integer-Variablen zwischenspeichern
• Das letzte Element durch das aktuell Element ersetzen
• Das aktuelle Element durch das zwischengespeicherte Element ersetzen

Private Sub cmdSortieren_Click()
   Dim iLast As Integer, iNext As Integer
   Dim iTmp As Integer
   With lstSortieren
      For iLast = 0 To .ListCount - 1
         For iNext = iLast + 1 To .ListCount - 1
            If .List(iLast) > .List(iNext) Then
               iTmp = .List(iLast)
               .List(iLast) = .List(iNext)
               .List(iNext) = iTmp
            End If
         Next iNext
      Next iLast
   End With
End Sub