This object lets you work with PC-DMIS's Probe Readout window.

Private Sub CommandAngles()
' This subroutine returns the AB Angles
Dim App As PCDLRN.Application
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As PCDLRN.PartProgram
  Set Part = App.ActivePartProgram
  Dim DRO As PCDLRN.ReadoutWindow
  Set DRO = Part.GetReadoutWindow(1)
  MsgBox "A = " & DRO.GetAAngle(1) & ", B = " & DRO.GetBAngle(1)
End Sub

ReadoutWindow Members  | Machine Object