Private Sub Form_Load()
    MSHFlexGrid1.Cols = 4
    MSHFlexGrid1.TextMatrix(1, 1) = "A1"
    MSHFlexGrid1.TextMatrix(1, 2) = "A2"
    MSHFlexGrid1.TextMatrix(1, 3) = "A3"
 
    MSHFlexGrid1.TextMatrix(2, 1) = "B1"
    MSHFlexGrid1.TextMatrix(2, 2) = "B2"
    MSHFlexGrid1.TextMatrix(2, 3) = "B3"
 
    MSHFlexGrid1.TextMatrix(3, 1) = "C1"
    MSHFlexGrid1.TextMatrix(3, 2) = "C2"
    MSHFlexGrid1.TextMatrix(3, 3) = "C3"
 
End Sub
 
Private Sub MSHFlexGrid1_Click()
    If MSHFlexGrid1.MouseRow <> 0 Then
        Label1.Caption = MSHFlexGrid1.MouseRow
    Else
        MsgBox ("Kopfzeile")
    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