求高手帮忙看下这个个每隔2个小时自动运行一个批处理文件的脚本

写了个每隔2个小时自动运行一个批处理文件的脚本，但是为什么运行就提示行6，字符1，缺少语句，800A0400的错误啊
求高手指点下


Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static s As Integer
s = s + 1
If s = 120 Then
set ws=WScript.CreateObject("WScript.Shell") 
ws.Run "C:\windows\11.bat",0 
End If
End Sub

Dim s as Integer
Private Sub Form_Load()
s=0
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
s = s + 1
If s = 120 Then
 s=0
 Shell "C:\windows\11.bat",vbHide
End If
End Sub

做成任务不是方便点