How do I retrieve the Shape I dropped on?

Private Sub document_DragDrop(args As NNodeDragEventArgs) Handles document.DragDrop
Dim sFormats As String() = args.Data.GetFormats
Dim a As String = args.Data.GetData(sFormats(0))

Dim obj As Object = args.HitNode.ParentNode

' Dim shapes As NNodeList = view.Document.HitTest(New NPointF(args.X, args.Y), -1, NFilters.Shape2D, view.ProvideDocumentHitTestContext())

If TypeOf obj Is NDocument Then

Return
Else
Dim n As NShape = CType(obj, NShape)
n.Text = a
args.Handled = True
End If

End Sub