To stop the TimerObject:
Private Sub CommandButton1_Click()
Dim Var1 As Object
Dim Var2 As Object
Set Var1 = GetObject (,"FixBackGroundServer.Application")
Set Var2 = Var1.System.FindObject("sched.Timer1")
Var2.TimerEnabled = False
End Sub
To start the TimerObject:
Private Sub CommandButton2_Click()
Dim Var1 As Object
Dim Var2 As Object
Set Var1 = GetObject (,"FixBackGroundServer.Application")
Set Var2 = Var1.System.FindObject("sched.Timer1")
Var2.TimerEnabled = False
Var2.StartTimer
End Sub