To use this code, add a flexgrid control to a form, and add the following to the MouseDown or MouseUp event of the control.
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim cont As Integer
Dim found As Boolean
'Only do it if the button is the left one, and there
'are no mask keys pressed.
'Of course, you can vary this to fit your needs.
If (Button = vbLeftButton) And (Shift = 0) Then
'Do not proceed if the row clicked is
'not the header row.
If (.RowHeight(0) < y) Then
cont = 0
found = False
'Find the column clicked using mouse coords
Do While (cont < .Cols) And Not (found)
If (.ColPos(cont) + .ColWidth(cont) < x) Then
cont = cont + 1
found = True
'If column found, proceed to run the appropriate code
If found Then
MsgBox "You clicked the header for column " & .TextMatrix(0, cont)
The above will work for one fixed row only. However, you can easily adapt it to multiple fixed header rows.