VBFlexGrid Control (Replacement of the MSFlexGrid control)

[smileyoufucn]

Dim k As Long
For k = 0 To Me.VBFlexGrid1.Cols - 1
Debug.Print "Debug.Print ColIndex= " & k & "   GetColKeyByIndex =  " & Me.VBFlexGrid1.ColKey(k)
Next  
'Debug.Print ColIndex= 0   GetColKeyByIndex =
'Debug.Print ColIndex= 1   GetColKeyByIndex =
'Debug.Print ColIndex= 2   GetColKeyByIndex =
'Debug.Print ColIndex= 3   GetColKeyByIndex =
'Debug.Print ColIndex= 4   GetColKeyByIndex =
'Debug.Print ColIndex= 5   GetColKeyByIndex =
'Debug.Print ColIndex= 6   GetColKeyByIndex =
'Debug.Print ColIndex= 7   GetColKeyByIndex =
'Debug.Print ColIndex= 8   GetColKeyByIndex =
'Debug.Print ColIndex= 9   GetColKeyByIndex =
'Debug.Print ColIndex= 10   GetColKeyByIndex =
'Debug.Print ColIndex= 11   GetColKeyByIndex =
'Debug.Print ColIndex= 12   GetColKeyByIndex =
'Debug.Print ColIndex= 13   GetColKeyByIndex =
'Debug.Print ColIndex= 14   GetColKeyByIndex =
'Debug.Print ColIndex= 15   GetColKeyByIndex =
'Debug.Print ColIndex= 16   GetColKeyByIndex =
'Debug.Print ColIndex= 17   GetColKeyByIndex =
'Debug.Print ColIndex= 18   GetColKeyByIndex =
'Debug.Print ColIndex= 19   GetColKeyByIndex =

Debug.Print "Debug.Print ColIndex= " & k & " GetColKeyByIndex = " & Me.VBFlexGrid1.ColKey(k)=Null ?