Private Sub Timer1_Timer()
a = "16:00:00"
If Time = CDate(a) Then
Shell "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf", vbNormalFocus
MsgBox "打卡时间到"
End if
a="16:30:00"
If Time = CDate(a) Then
Shell "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf", vbNormalFocus
MsgBox "打卡时间到"
End If
End Sub
  我的本意是，到16:00:00，让所有程序最小化，然后弹出打卡时间到这个框，也就是从16：00：00起，30分钟执行那个步骤一次，
然后把下一个时间赋值给A，再重复运行，能不能有什么循环命令更简单控制呢，而且我这个显示桌面.scf运行出来有问题，调戏报错：无效的过程调用或参数， 请教高手咯，

我修改了下代码，帮我看看代码是不是有问题呢？

Dim a As Variant rem '定义变量
----------------------
Private Sub Form_Load()
a = Time rem '把当前时间赋值给变量A
Timer1.Interval = 1000
End Sub
---------------------------
Private Sub Timer1_Timer()
Select Case a
Case a = CDate("00:30:00")  rem '判断当时时间是否是00:30:00
MsgBox "打卡时间到"
Case a = CDate("01:00:00")  rem '判断当时时间
MsgBox "第二次打卡时间到"
Case a = CDate("01:30:00")  rem '判断当时时间
MsgBox "第三次打卡时间到"
Case a = CDate("02:00:00")  rem '判断当时时间
MsgBox "第四次打卡时间到"
Case a = CDate("02:30:00")  rem '判断当时时间
MsgBox "第五次打卡时间到"
Case a = CDate("03:00:00")  rem '判断当时时间
MsgBox "第六次打卡时间到"
Case a = CDate("03:30:00")  rem '判断当时时间
MsgBox "第七次打卡时间到"
Case a = CDate("04:00:00")  rem '判断当时时间
MsgBox "第八次打卡时间到"
Case a = CDate("04:30:00")  rem '判断当时时间
MsgBox "第九次打卡时间到"
Case a = CDate("05:00:00")  rem '判断当时时间
MsgBox "第十次打卡时间到"
Case a = CDate("05:30:00")  rem '判断当时时间
MsgBox "第十一次打卡时间到"
Case a = CDate("06:00:00")  rem '判断当时时间
MsgBox "第十二次打卡时间到"
End Select

End Sub

我是想让每隔半小时运行一次，版本能给点好的建议吗，用什么样的代码可以现实呢，