Скиньте исходник "часов"

[Daniil]

Скиньте исходник чтобы часы ходили. с помощью метода time/
Vyне нужно чтобы после нажатия снопки и после истечении 10 минут вылезло бы сообщения, как это сделать? Если можете, вышлете мне исходник или вышлите его в этот форум. А то у меня никак не получается чтобы часы ходили.....

[er_admin]

Код: Выделить всё

Dim datProgaVKL As Date

Private Sub Form_Load()
datProgaVKL = Now
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Me.Caption = Time
seconds = seconds
If DateDiff("n", datProgaVKL, Now) >= 10 Then
    Me.Caption = "Прошло 10 минут"
    Timer1.Enabled = False
End If
End Sub

ну что-то типа того?