求高人救命啊!!!

我不是要记录当前时间,我是要显示程序运行了多久.
记录当前时间的,我会
再次求高人

'LZ你的签名图 能不能贴个GIF出来 我想下载
Private Sub Timer1_Timer()
Static t As Double
If t = 0 Then t = Now
Me.Caption = Format(Now - t, "HH:MM:SS")
End Sub

直接右键保存图片就可以了
回复：4楼

回复：4楼
你这个能超出24小时吗？

回复楼主 另存不了GIF 只能是BMP 。。。
回复 6楼:
Interval=1000？
你认为这样就是1秒？

回复：8楼
不是？

Private Sub cmdExit_Click()
If d * 24 + h = 1 Then
MsgBox "本次使用的时间为" & d * 24 + h & "小时" & m & "分钟" & s & "秒" & vbCrLf & "谢谢使用!" & vbCrLf & "但请您别太劳累,注意休息哦!", vbOKOnly, "再见"
Else                           
MsgBox "本次使用的时间为" & h & "小时" & m & "分钟" & s & "秒" & vbCrLf & "谢谢使用!" & vbCrLf, vbOKOnly, "再见"
End If                          
End                                     
End Sub

回复：8楼
我之前保存这个图时就是那样保存的,右键保存,
不行的话,你进我百度空间相册去弄吧,那里有
谢谢大家的帮助

d * 24 + h = 1这个怎么可能等于1呢?有点费解.