Private Sub Form_Load()Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer() Text1.Text = Time End Sub根据需要用format格式化
text1.text=format("00:00:00",time)
初值为0怎么搞??我还是不会。。别骂我。。。。
好象DateTime类型也属于Double类型的。直接赋值为0我用vb没多长时间,感觉vb比较简单的吗!不知道说的对不对我以前一直用delphi开发的。哈哈!我用vb写过宏代码。