Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module testingMotionCallback

   Public s As Session = Session.GetSession()
   Public ufs As UFSession = UFSession.GetUFSession()
   Public lw As ListingWindow = s.ListingWindow

   Sub Main()

      Dim message As String = "Testing Motion Callback"
      Dim screen_pos(2) As Double
      Dim viewTag As Tag = s.Parts.Display.Views.WorkView.Tag
      Dim response As Integer = 0
      Dim motion_cb_data As System.IntPtr
      Dim client_data As System.IntPtr = Nothing

      ufs.UI.LockUGAccess(ufconstants.uf_ui_fromcustom)

      ufs.Ui.SpecifyScreenPosition(message, AddressOf my_motion_cb, _
       motion_cb_data, screen_pos, viewTag, response)

      ufs.UI.UnLockUGAccess(ufconstants.uf_ui_fromcustom)

   End Sub

   Public Sub my_motion_cb(ByVal pos() As Double, _
                                ByRef mtn_cb_data As UFUi.MotionCbData, _
                                ByVal client_data As System.IntPtr)

      Dim orientation() As Double = {1, 0, 0, 0, 1, 0, 0, 0, 1}

      Dim theView As Tag = mtn_cb_data.view_tag
      ufs.Disp.DisplayOgpCircle(theView, orientation, pos, 10)

   End Sub

   Public Function GetUnloadOption(ByVal dummy As String) As Integer

      Return Session.LibraryUnloadOption.Immediately

   End Function

End Module