不必用API吧,VB中现有的就可以了吧!用systime=Now就行了,加分!

解决方案 »

  1.   

    加一个timer控件.
    interval设成1000.
    Private Sub Timer1_Timer()
        Label1.Caption = Now
    End Sub
      

  2.   

    能不能不用timer啊,如果我试通过了
    我就给了,一般的我帖子都给的,你可以去看
      

  3.   

    label1.caption=format(now,"hh:mm:ss")
    timer的时间不太准
      

  4.   

    Timer非常好呀,为什么不用,有得用,就用呀。
    人家的方法可都是正确的呀。
      

  5.   

    加一timer控件.
    interval设成1000.
    Private Sub Timer1_Timer()
    Label1.Caption = Format(Now,"hh:mm:ss")
    End Sub