property Group.ColumnFromPoint (X as OLE_XPOS_PIXELS, Y as OLE_YPOS_PIXELS) as Long
Retrieves the column from point.

TypeDescription
X as OLE_XPOS_PIXELS A single that specifies the current X location of the mouse pointer. The x values is always expressed in client coordinates.
Y as OLE_YPOS_PIXELS A single that specifies the current X location of the mouse pointer. The x values is always expressed in client coordinates.
Long A long expression that indicates the column's index, or -1 if there is no column at the point. The property gets a negative value less or equal with 256, if the point is in the area between columns where the user can resize the column.
Use the ColumnFromPoint property to access the column from the point specified by the {X,Y} coordinates. The ColumnFromPoint property gets the index of the column when the cursor hovers the control's header bar. The X and Y coordinates are expressed in client coordinates, so a conversion must be done in case your coordinates are relative to the screen or to other window. If the X parameter is -1 and Y parameter is -1 the ColumnFromPoint property determines the handle of the item from the cursor. Use the GroupFromPoint property to get the group's caption from the cursor. Use the GroupListFromPoint property to get the group's list from cursor. Use the ItemFromPoint property to get the cell or item from the cursor.

The following VB sample prints the caption of the column over the cursor:

Private Sub ExplorerTree1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim g As EXPLORERTREELibCtl.Group
    With ExplorerTree1
        Set g = .GroupListFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
        If Not (g Is Nothing) Then
            With g
                Dim c As Long
                c = .ColumnFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
                If (c >= 0) Then
                    With .Columns(c)
                        Debug.Print .Caption
                    End With
                End If
            End With
        End If
    End With
End Sub

The following VFP sample prints the caption of the column over the cursor:

with thisform.Olecontrol1
	local g
	g = .GroupListFromPoint(-1,-1)
    If !isnull(g) Then
    	with g
	        local c
	        c = .ColumnFromPoint(-1,-1)
	        If c >= 0 Then
	        	with .Columns.Item(c)
	                wait window .Caption nowait
	        	endwith
	        EndIf
	    endwith
    EndIf
endwith