Dim auswahl As Boolean
Private Sub Form_Load()
MSFlexGrid1.Cols = 4
MSFlexGrid1.TextMatrix(1, 1) = "A1"
MSFlexGrid1.TextMatrix(1, 2) = "A2"
MSFlexGrid1.TextMatrix(1, 3) = "A3"
 
MSFlexGrid1.TextMatrix(2, 1) = "B1"
MSFlexGrid1.TextMatrix(2, 2) = "B2"
MSFlexGrid1.TextMatrix(2, 3) = "B3"
 
MSFlexGrid1.TextMatrix(3, 1) = "C1"
MSFlexGrid1.TextMatrix(3, 2) = "C2"
MSFlexGrid1.TextMatrix(3, 3) = "C3"
Label1.Caption = MSFlexGrid1.MouseRow
Me.MSFlexGrid1.RowSel = 0
End Sub 
 
 
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
    If Button = 2 Then
        If MSHFlexGrid1.MouseRow <> 0 Then
            Label1.Caption = MSHFlexGrid1.MouseRow
            If auswahl = True Then
               Form1.Edit_Erinnerung.Enabled = True
               Form1.Delete_Erinnerung.Enabled = True
            Else
               Form1.Edit_Erinnerung.Enabled = False
               Form1.Delete_Erinnerung.Enabled = False
            End If
           Form1.PopupMenu menu 
        Else
            MsgBox ("Kopfzeile")
        End If
    End If
End Sub

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD