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
        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