Dim Telescope,count ' create a telescope object set Telescope = CreateObject("AstroPhysicsV2.Telescope") ' connect and unpark the mount Telescope.Connected = True If (Telescope.AtPark = True) Then Telescope.Unpark End If ' make sure tracking is enabled Telescope.Tracking = True ' Save Starting RA/Dec Dim ra, dec ra = Telescope.RightAscension dec = Telescope.Declination ' Issue ten pulseguide moves, each 500 milliseconds in duration, ' with one second duration between moves For count = 1 To 10 Telescope.PulseGuide 1, 500 ' move declination Telescope.PulseGuide 2, 500 ' move ra WScript.Sleep 1000 Next ' Calculate movement in arc-seconds. ' Note: RA is also multipling by 15 to convert from seconds to arc-seconds Dim deltaRA, deltaDec deltaRA = (Telescope.RightAscension - ra) * 3600 * 15 deltaDec = (Telescope.Declination - dec) * 3600 ' Display the ra/dec movements: MsgBox("Date/Time = " & FormatDateTime(Now, vbGeneralDate) & vbcrlf & "RA Movement = " & deltaRA & " arc-seconds" & vbCrLf & "Dec Movement = " & deltaDec & " arc-seconds")