Private Sub Command1_Click()
MsgBox _
    "Row=" & Me.MSFlexGrid1.Row & vbCrLf & _
    "Col=" & Me.MSFlexGrid1.Col & vbCrLf & _
    "RowSel=" & Me.MSFlexGrid1.RowSel & vbCrLf & _
    "ColSel=" & Me.MSFlexGrid1.ColSel, vbInformation
End Sub

Private Sub Form_Load()
Dim i As Integer
With Me.MSFlexGrid1
    .SelectionMode = flexSelectionFree
    .Rows =  10 
    .Cols =  3 
    .FixedRows =  1 
    .FixedCols =  1 
    For i =  0  To .Rows -  1 
        If i =  0  Then
        .TextMatrix(i,  0 ) = "Col0"
        .TextMatrix(i,  1 ) = "Col1"
        .TextMatrix(i,  2 ) = "Col2"
        Else
        .TextMatrix(i,  0 ) = i
        .TextMatrix(i,  1 ) = i
        .TextMatrix(i,  2 ) = i
        End If
    Next

End With

End Sub