property ExplorerTree.GroupListFromPoint (X as OLE_XPOS_PIXELS, Y as OLE_YPOS_PIXELS) as Group
Gets the group's list 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 Y location of the mouse pointer. The y values is always expressed in client coordinates.
Group A Group object whose list is under the cursor.
Use the GroupFromPoint property to get the group's list from the point specified by the {X,Y}. 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 GroupListFromPoint property determines the group'slist from the cursor. Use the ItemFromPoint property to get the cell or item from the cursor. Use the ColumnFromPoint property to access the column over the point. Use the GroupFromPoint property to get the group's caption from the cursor. Use the ShortcutFromPoint property to retrieve the shortcut from the cursor.

The following VB sample prints the cell 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 h As Long, c As Long, hit as Long
                h = .ItemFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY, c, hit)
                If Not (h = 0) Then
                    With g.Items
                        Debug.Print .CellCaption(h, c)
                    End With
                End If
            End With
        End If
    End With
End Sub

The following VFP sample prints the cell's caption from the cursor:

*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y

with thisform.Olecontrol1
	local g
	g = .GroupListFromPoint(-1,-1)
    If !isnull(g) Then
    	with g
	        local h, c, hit
	        c = 0
	        hit = 0
	        h = .ItemFromPoint(-1,-1,@c,@hit)
	        If h # 0 Then
	        	with .Items
	        		.DefaultItem = h
	                wait window .CellCaption(0, c) nowait
	        	endwith
	        EndIf
	    endwith
    EndIf
endwith