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
      If .MouseRow > 0 And .MouseCol > 0 Then
        prp_Nr = MSHFlexGrid1(0).TextMatrix(.MouseRow, .MouseCol)
        PopupMenu frm_MDI.mnu_PopupÜbersicht
     End If
  End If
End With
 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de