AutoCAD VB :: Select All Objects At A Particular Point

I'm trying to select all objects at a particular point, but using .SelectAtPoint appears to only return one entity, even though multiple lines are connected to the point.

Sub getSelection() Dim selection As AcadEntity Dim selPt As Variant ThisDrawing.Utility.GetEntity selection, selPt, "Select a segment..." Dim selStart As Variant selStart = selection.StartPoint Dim connSetStart As AcadSelectionSet Set connSetStart = ThisDrawing.SelectionSets.Add("ConnToStart") connSetStart.SelectAtPoint selStart Dim thing1 As Variant For Each thing1 In connSetStart Debug.Print "connSetStart: " & thing1.ObjectName Debug.Print "ID: " & thing1.ObjectID Next thing1 Debug.Print "#objs in startset: " & connSetStart.CountEnd Sub