Dim i%, j%
 
Randomize
With MSFlexGrid1
.Redraw = False 'Neuzeichnen aus
.Rows = 20 'Zeilen
.Cols = 2 'Kolumnen
.FixedRows = 0
.FixedCols = 0
'Füllen:
For i = 0 To .Rows - 1
  For j = 0 To .Cols - 1
    .TextMatrix(i, j) = Int(Rnd * 5)
  Next j
Next i
'Hier beginnt das Sortieren
.Col = 0 'von Kolumne
.ColSel = 1 'bis Kolumne
.Sort = 3 'Sortierverfahren numerisch aufsteigend
.Redraw = True 'Neuzeichnen ein
End With
 
End Sub