请问如何做倒记时器

呵呵,刚刚另一个问题的2008奥运会的倒计时,参考一下吧..

Private Sub Form_Load()
Me.Picture = LoadPicture("c:\1.bmp") '加这一行,就可以添加图片了,不过你还可以在窗体,或是用image或picbox来放图片呵..
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Cls
Print "距2008北京奥运会开幕时间还有"; DateDiff("d", Date, #8/8/2008#); "天 ";
Print Format(DateAdd("s", DateDiff("s", Time, #8:40:00 PM#), 0), "h小时m分钟s秒")
End Sub

给你一个奥运会倒计时程序

Dim SZSJ As Long
Dim H As Long, M As Long, S As Long, RI As Long, OYSJ

Private Sub Image2_Click()
Unload Me
时钟.Show
End Sub

Private Sub Image1_Click()
End
End Sub

Private Sub Form_Load()
H = 0: M = 0: S = 0: MS = 0
OYSJ = CDate("2008-8-8 20:00:00")
SZSJ = DateDiff("S", Now, OYSJ)
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub