Private Sub MyGrid_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
 
    Dim szColumnKey as String
 
    '- Column.Key ermitteln -
 
    szColumnKey = MyGrid.Columns(nCol).key
 
    '- Rechte Maustaste ? -
 
    If Button = vbRightButton Then
 
        Call ChangeHighlight(MyGrid, szColumnKey, True)
 
        ' mache irgendwas...
 
        MsgBox "..."
 
        Call ChangeHighlight(MyGrid, szColumnKey, False)
 
    End If
 
End Sub

Public Sub ChangeHighlight(ByRef objDatagrid As sevDataGrid2.sevGrid, ByVal _
  KeyName As String, ByVal  NoHighlight As Boolean)
 
    On Error Resume Next
 
    '- Lokale Deklaration -
 
    Static CellBackcolor As Long
    Static CellForecolor As Long
    Static FixedBackColor As Long
    Dim objItem As sevDataGrid2.ListItem
    Dim dwCol As Long
 
    '- ListItem Referenz -
 
    Set objItem = objDatagrid.ListItems(objDatagrid.Row)
 
    '- NoHighlight -
 
    If bNoHighlight Then
 
        With objDatagrid
 
            '- letzte Farbeinstellung merken -
 
            FixedBackColor = objItem.FixColBackColor(1)
            CellBackcolor = objItem.CellBackcolor(KeyName)
            CellForecolor = objItem.CellForecolor(KeyName)
 
            For dwCol = 1 To .Cols
                If .Visible Then
                    objItem.CellBackcolor(dwCol) = .HighlightBackColor
                    objItem.CellForecolor(dwCol) = IIf(dwCol <> .Columns( _
                      KeyName).Index, .HighlightForeColor, vbYellow)
                    objItem.FixColBackColor(1) = .HighlightBackColor
                End If
            Next dwCol
 
            objItem.CellBold(KeyName) = True
            .NoHighlight = True
 
        End With
 
    Else
 
        objDatagrid.NoHighlight = False
        objItem.FixColBackColor(1) = FixedBackColor
 
        For dwCol = 1 To objDatagrid.Cols
            objItem.CellBackcolor(dwCol) = CellBackcolor
            objItem.CellForecolor(dwCol) = CellForecolor
            objItem.CellBold(dwCol) = False
        Next dwCol
 
    End If
 
    Set objItem = Nothing
 
End Sub

CardManager (SmartCard Tools a la CARD)