This inserts a move point as if you had pressed the Print button on your jog box or pressed CTRL + M keys in PC-DMIS.

 

Public Sub InsertMovePoint() 

Private Sub CommandInsertMovePoint()
' This subroutine inserts a move point.
Dim App As PCDLRN.Application
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As PCDLRN.PartProgram
  Set Part = App.ActivePartProgram
  Dim Machine As PCDLRN.Machine
  Set Machine = Part.ActiveMachine
  Machine.InsertMovePoint
End Sub

Machine Object  | Machine Members