04vbu04

Vt, Timertst - Microsoft Visual Basic [run]

File Edit View Insert Run Tools Add-lns h

30

4£

aa*

&

^ , Object: |(General)

Proc:

(declarations)

H Forml

HE]

Option Explicit

1.039063

Private Suto Commandl_Click() End End Suto

Close

Time & Chaos

View Form

View Codę

gjTlMERTST.FRM Forml

Private Suto Timerl_Timer()

Static sngLastTime As Single Static sngCurrentTime As Single

sngCurrentTime = Timer

He.Cis

He.Print sngCurrentTime - sngLastTime sngLastTime = sngCurrentTime End Suto

			LdJ	jJI
^Microsoft W...	■ri | Control Panel	‘tfj Timertst - Mi... Q Forml		S 6:18 PM