Как получить текущие координаты курсора в АutoCAD 2006 (monitorInputPoint)?

<DllImport("user32")> _
Private Shared Function ScreenToClient(ByVal hwnd As Integer, ByRef pixel As System.Drawing.Point) As Integer
End Function
<DllImport("acad.exe", CallingConvention := CallingConvention.Cdecl, EntryPoint := "?acedCoordFromPixelToWorld@@YAXABVCPoint@@QAN@Z")> _
Private Shared Sub acedCoordFromPixelToWorld(ByRef pixel As System.Drawing.Point, ByRef worldPt As Autodesk.AutoCAD.Geometry.Point3d)
End Sub
<CommandMethod("CursorPos")> _
Public Sub CursorPos()
  Dim pixel As System.Drawing.Point = System.Windows.Forms.Cursor.Position
  Dim doc As Autodesk.AutoCAD.Interop.AcadDocument = DirectCast_
(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument, Autodesk.AutoCAD.Interop.AcadDocument)
  Dim hwnd As Integer = doc.HWND
  ScreenToClient(hwnd, pixel)
  Dim worldPt As New Autodesk.AutoCAD.Geometry.Point3d()
  acedCoordFromPixelToWorld(pixel, worldPt)
  Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
  ed.WriteMessage("" & Chr(10) & "pixel={0} point in WCS={1}", pixel, worldPt)
End Sub

Imports System
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Namespace HelloWorld
    Public Class PointMon
        ' Команда запуска PointMonitor
        <CommandMethod("P_START")> _
        Public Sub PMON_START()
            Dim ed As Autodesk.AutoCAD.EditorInput.Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
            AddHandler ed.PointMonitor, AddressOf callback_PointMonitor
            m_point = True
        End Sub
        ' Команда остановки PointMonitor
        <CommandMethod("P_END")> _
        Public Sub PMON_END()
            Dim ed As Autodesk.AutoCAD.EditorInput.Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
            If m_point Then
                RemoveHandler ed.PointMonitor, AddressOf callback_PointMonitor
                m_point = False
            End If
        End Sub
        ' Получение текущей координаты курсора в WCS (сохраненной из PointMonitor)
        <CommandMethod("GetCoord")> _
        Public Sub GetCoord()
            Dim ed As Autodesk.AutoCAD.EditorInput.Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
            ed.WriteMessage("" & Chr(10) & "Point in WCS = {0}", computed_point)
        End Sub
        Private Sub callback_PointMonitor(ByVal sender As Object, ByVal e As PointMonitorEventArgs)
            Dim ed As Autodesk.AutoCAD.EditorInput.Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
            computed_point = e.Context.ComputedPoint
        End Sub
        Shared m_point As Boolean = False
        Shared computed_point As Autodesk.AutoCAD.Geometry.Point3d
    End Class
End Namespace