Как на форму поставить таймер?

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub cmdDvaPotoka_Click()
    Dim objTicks1 As New clsTicks
    Dim objTicks2 As New clsTicks
 
    Debug.Print Vizovi(objTicks1, objTicks2) & " Oba vizova zaversheni..."
    Debug.Print Potoki(objTicks1, objTicks2) & " Oba potoka zaversheni..."
    
    Set objTicks1 = Nothing
    Set objTicks2 = Nothing
End Sub
 
Private Function Vizovi(ByRef ioobjTicks1 As clsTicks, _
                        ByRef ioobjTicks2 As clsTicks) As Long
    Dim lngNachalo As Long
    
    lngNachalo = GetTickCount
    plngVixodPervogoPotoka = ioobjTicks1.ProdolzhitelnostIntervala(INTERVAL_ODIN)
    plngVixodVtorogoPotoka = ioobjTicks2.ProdolzhitelnostIntervala(INTERVAL_DVA)
    
    plngVixodPervogoPotoka = 0
    plngVixodVtorogoPotoka = 0
    
    Vizovi = GetTickCount - lngNachalo
    
End Function
 
Private Function Potoki(ByRef ioobjTicks1 As clsTicks, ByRef ioobjTicks2 As clsTicks) As Long
    Dim lngPotok As Long
    Dim lngNachalo As Long
    
    lngNachalo = GetTickCount
    lngPotok = CreateThread(ByVal 0&, ByVal 0&, AddressOf IntervalOdin, ByVal 0&, ByVal 0&, 0&)
    CloseHandle lngPotok
    lngPotok = CreateThread(ByVal 0&, ByVal 0&, AddressOf IntervalDva, ByVal 0&, ByVal 0&, 0&)
    CloseHandle lngPotok
    
    While plngVixodPervogoPotoka = 0 Or plngVixodVtorogoPotoka = 0
        DoEvents
    Wend
     
    plngVixodPervogoPotoka = 0
    plngVixodVtorogoPotoka = 0
   
    Potoki = GetTickCount - lngNachalo
    
End Function
 
Dobav' modul' i skopiruj v nego etot kod:
 
Option Explicit
 
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Public plngVixodPervogoPotoka As Long
Public plngVixodVtorogoPotoka As Long
 
Public Const INTERVAL_ODIN  As Long = 2000 'millisecundi
Public Const INTERVAL_DVA  As Long = 4000 'millisecundi
 
Public Sub IntervalOdin()
    Dim objTick As New clsTicks
    plngVixodPervogoPotoka = objTick.ProdolzhitelnostIntervala(INTERVAL_ODIN)
    Set objTick = Nothing
End Sub
 
Public Sub IntervalDva()
    Dim objTick As New clsTicks
    plngVixodVtorogoPotoka = objTick.ProdolzhitelnostIntervala(INTERVAL_DVA)
    Set objTick = Nothing
End Sub

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Function ProdolzhitelnostIntervala(ByVal plngSekundi As Long) As Long
    Dim lngNachalo As Long
    
    lngNachalo = GetTickCount
    
    Do Until GetTickCount - lngNachalo >= plngSekundi
    Loop
    
   ProdolzhitelnostIntervala = plngSekundi
End Function