帮我看看哪里有错误，怎么到设置的时间不能运行指定的程序
我已把timer1.Interval=60000
'开始
Private Sub Command1_Click()
Frame1.Enabled = False
Command2.Enabled = True
Command1.Enabled = False
Timer1.Enabled = True
End Sub

'修改
Private Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Frame1.Enabled = True
End Sub

'退出
Private Sub Command3_Click()
End
End Sub
'浏览
Private Sub Command4_Click()
With CommonDialog1
     .DialogTitle = "运行程序"
     .ShowOpen
     Text3.Text = .FileName
End With
End Sub

Private Sub Timer1_Timer()
Dim h, m As Integer
Dim x As String
h = Hour(Now)
m = Minute(Now)
If h = Val(Text1.Text) And m = Val(Text2.Text) Then
   x = Shell(Text3.Text, 1)
End If
End Sub

[[it] 本帖最后由 zougonghua 于 2008-4-19 08:58 编辑 [/it]]

怎么没人来帮忙啊，自己顶下

没看你的程序。只看了一下开头。

这句有问题。
我已把timer1.Interval=60000


timer1.Interval 取值范围不能超过 0 - 32768
VB6内部范围规定。