VB6.0 怎么调用obj.Start？

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Dim lngTmp As Long
Dim lngBak As Long
Dim lngCnt As Long

Private Sub Timer1_Timer()
lngTmp = GetKeyState(vbKeyF12)

If lngTmp <> lngBak And lngTmp <> 0 And lngTmp <> 1 Then
lngBak = lngTmp
lngCnt = lngCnt + 1
Me.Caption = lngCnt
End If
End Sub