拜求广州亚运会的VB倒计时程序

添加timer和text控件各一个
timer 的属性interval 设为1000,即每一秒动一下

在timer 控件的timer 事件中写如下代码：

Private Sub Timer1_Timer()
Dim datanow As Double
Dim data As Date
date = #11/12/2010#
datanow = date - Now
text1.text="距离开幕还有: " & Int(datanow) & "天 " & Hour(datanow) & "时 " & Minute(datanow) & "分 " & Second(datanow) & "秒!"
End Sub

我发给你。加我