Private Sub MSHFlexGrid1_MouseDown(Index As Integer, Button As Integer, Shift _
  As Integer, x As Single, y As Single)
 
With MSHFlexGrid1(0)
   If Button = vbRightButton Then
      prp_Nr = MSHFlexGrid1(0).TextMatrix(.Row, .Col)
      PopupMenu frm_MDI.mnu_PopupÜbersicht
   End If
End With
 
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *