请问一个很菜得问题！望高手解答！

Question

用Label1显示系统时间，如何写Label1时间到某一点时触发某以事件？ 
例如到7：30调用过程ppp。

Answer 1

加一个Timer控件,将其Interval设为1000
在Timer控件中写上如下代码:
label1=time
得到小时:Hour(Now),分钟Minute(Now),秒Second(Now)
将这三个数值一比较就可以得到你要的了
if h=7 and m=30 then ppp

Answer 2

'定时执行某程序
'放一个timer控件
'在timer1_timer事件中获得当前时间 Now
'timer时间间隔设置为1秒钟
'如果是指定时间则运行你的程序Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Dim aa As Date
    aa = CDate("2003-12-11 17:20:39")
    If DateDiff("n", Now, aa) = 0 Then
        Shell "你的程序"
    End If
    
End Sub

Answer 3

要是只判断时间，不判断日期怎么写？
怎样将timer时间间隔设置得尽量长一点，比如1分钟！

Answer 4

if label1.caption="7:30" then call ppp

Answer 5

能否将SoHo_Andy(冰)得代码改为要是只判断时间，不判断日期？
怎样将timer时间间隔设置得尽量长一点，比如1分钟！

Answer 6

有必要从标签上去取时间吗？标签上的时间也来源于系统时间，所以不如改为Private Sub Timer1_Timer()
    dim lngHour as long
    dim lngMinute as long
    
    lngHour=Hour(now)
    lngMinute=minute(now)    if lngHour=7 and lngMinute=30 then
        Shell "你的程序"
    End If    
End Sub

Answer 7

设置为1秒。
timer.interval=1000要设置在一分钟，
timer.interval=10000是不是很搞笑？