Private Sub Grid1_CellClick(ByVal nRow As Long, _
  ByVal nCol As Long, _
  ByVal Button As Integer, _
  ByVal Shift As Integer)
 
  ' Kontextmenü anzeigen
  If Button = vbRightButton Then
    ' aktuelle Spalte "merken"
    Grid1.Tag = nCol
    PopupMenu MenuPopUp
  End If
End Sub
Private Sub mnuPopUp_Click(Index As Integer)
  ' Befehle "Kontextmenü"
  With Grid1
    Select Case Index
      Case 0
        ' Bearbeiten
        .DoEdit .Row, Val(.Tag)
 
      Case 1
        ' Löschen
        .DeleteRow
 
      Case 3
        ' Hinzufügen
        If cmdAddNew.Enabled Then
          cmdAddNew.Value = True
        End If
    End Select
  End With
End Sub
Private Sub Grid1_OnImageClick(ByVal nRow As Long, _
  ByVal nCol As Long, nImage As Long, Button As Integer, Shift As Integer)
 
  ' Beim Klick auf ein Symbol kein CellClick-Event auslösen!
  Button = 0  
End Sub