ну, самый простой способ, мне кажется, такой.
Создаешь форму, на нее кидаешь лэйбол (lblTime) и таймер (tim1) ну и далее:

Option Explicit

Dim h As Integer
Dim m As Integer
Dim s As Integer

Private Sub Form_Load()

Me.Width = 4800
Me.Height = 1950
tim1.Interval = 1000
lblTime.Caption = ""

End Sub

Private Sub tim1_Timer()

DoEvents
lblTime.Caption = timCulc
tim1.Interval = 1000

End Sub

Private Function timCulc() As String

If s < 59 Then
s = s + 1
Else
s = 0
If m < 59 Then
m = m + 1
Else

m = 0

If h < 23 Then
h = h + 1
Else
h = 0
End If

End If

End If

timCulc = h & ":" & m & ":" & s

End Function

Экзешник выслал тебе по почте