Private Sub Grid1_FixedColClick(ByVal nRow As Long, ByVal nCol As Long, Button _
  As Integer)
  Dim SortDesc As sevDataGrid3.sevGridSortDesc
 
  With Grid1
     SortDesc = .Columns(nCol).SortDesc
     If SortDesc = SORT_ASC Then 
       SortDesc = SORT_DESC 
     Else 
       SortDesc = SORT_ASC
    End If
    .DoSort nCol, SortDesc
    .FixedColumns(nCol).SortDesc = SortDesc
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de