Dim Telescope
set Telescope = CreateObject("ASCOM.Celestron.Telescope")
Telescope.Connected = True
Telescope.Tracking = False
Telescope.SlewToAltAz 302, -1
Telescope.Connected = False