Sub SelecAtPoint ()
	Dim YourPoint(0 to 2) as double
	Dim Setobj as acadselectionset
	Dim SetColl as acadselectionsets
	Dim dxfcode(0) as Integer
	dxfcode(0) = 0
	Dim dxfdata(0) as variant
	dxfdata(0) = "Text"
	With thisdrawin
		Set Setcoll =.Selectionsets
		For each setObj in SetColl
			if SetObj.name = "Myselectionset" then
				.Selectionsets.Item("Myselectionset").Delete
				Exit for
			End if
		Next
		Set Setobj =.Selectionsets.Add("Myselectionset")

	End With
	Dim P1(0 to 2) as double
	Dim P2(0 to 2) as double
	P1(0) = YourPoint(0) + 1:P1(1) = YourPoint(1) + 1
	P2(0) = YourPoint(0) - 1:P2(1) = YourPoint(1) - 1
	SetObj.select acSelectionsetCrossing,P1,P2,dxfcode,dxfdata
End Sub