Private Sub Command1_Click()
 
With MSFlexGrid1
  .Redraw = False
  .Sort = 9
  .Redraw = True
End With
 
End Sub
 
Private Sub MSFlexGrid1_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As _
  Integer)
 
Dim SortCol
 
SortCol = 3 ' Kolumne, nach der sortiert werden soll. Achtung, Nummeriereung 
' beginnt bei 0
Cmp = Sgn(CDate(MSFlexGrid1.TextMatrix(Row1, SortCol)) - CDate( _
  MSFlexGrid1.TextMatrix(Row2, SortCol)))
 
End Sub

Gruss,

Zardoz