Private Sub Command3_Click()

End Sub

Private Sub Label1_Click()
    cmdStart.Enabled = True
    cmdStop.Enabled = False
    cmdSZero.Enabled = False
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdStart_Click()
    tmrCount.Enabled = True
    cmdStop.Enabled = True
    cmdStart.Enabled = False
    cmdZero.Enabled = False
End Sub

Private Sub cmdStop_Click()
    tmrCount.Enabled = False
    cmdZero.Enabled = True
    cmdStop.Enabled = False
End Sub

Private Sub cmdZero_Click()
    lblCount.Caption = "0"
    cmdStart.Enabled = True
    cmdStop.Enabled = False
    cmdZero.Enabled = False
End Sub

Private Sub tmrCount_Timer()
     lblCount.Caption = Val(lblCount.Caption) + 1
End Sub
为什么我编出来的代码安运行他自己就开始计时了。我开始还没点呢。不知道是哪里少了语句

新人来了！。。。我现在要开始学习VB了。

灌毛个水。直接举报，你要学么就学好了。关我吊事

选择一 :
ccrptimer时间控件，可精确到千分之一秒
http://

选择二 :
用API吧～简单多了～

Option Explicit

Private Declare Function QueryPerformanceCounter Lib "kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (X As Currency) As Boolean

Public S1 As Currency, S2 As Currency, f As Currency, t1 As Currency

Public Function GetSeconds(Status As Boolean) As Currency
    If Status = True Then
        Call QueryPerformanceFrequency(f)
        Call QueryPerformanceCounter(S1)
    Else
        Call QueryPerformanceCounter(S2)
        t1 = (S2 - S1) / f
        GetSeconds = t1
    End If
End Function

使用～

Private Sub AAA()
    Call GetSeconds(True)
    ......
    ......
    MsgBox GetSeconds(False)
End Sub

选择三 :
加初始化试试～

Private Sub Form_Load()
    tmrCount.Enabled=False
End Sub

你在这里程序一启动就加载了时间变化啊
Private Sub tmrCount_Timer()
     lblCount.Caption = Val(lblCount.Caption) + 1
End Sub
不过是初学不知道对不对，

timer控件拖放到窗体后，默认就是Enabled=true ,Interval =0的
可能是你修改了Interval属性而没有修改enabled属性。