Как программно создать таймер?

Sub Main()
    Dim Timer1 As Timer
    Set Timer1 = Timer
End Sub

Sub Main()
    Dim Timer1 As New Timer
End Sub

Sub Main()
    Dim Timer1 As Control
    Set Timer1 = Timer
End Sub

Option Explicit
Public Declare Function SetTimer Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long
 
Public Declare Function KillTimer Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long
Public Interval As Integer
 
 
Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTime As Long)
Call Form1.MyJob             'К сожалению, Sub TimerProc должна находиться в модуле. Приходится извращаться
End Sub

 Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Const VK_SCROLL = &H91
Const KEYEVENTF_KEYUP = &H2
Sub Main()
Dim x
MsgBox "Timer On"
SetTimer 0, 0, 200, AddressOf TimerProc
Do While x = 0
DoEvents
Sleep 200
Loop
End Sub
Sub Scroll_LockOnOff()
  Call keybd_event(VK_SCROLL, 0, 0, 0)
  Call keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0)
End Sub
 
Sub TimerProc()
Win = GetForegroundWindow         ' Получаем активное окно.
Thread = GetWindowThreadProcessId(Win, 0) ' Получаем поток активного окна.
 
R = GetKeyboardLayout(Thread)
' раскладка EN индикатор не горит
If R = 67699721 And GetKeyState(VK_SCROLL) > 0 Then Scroll_LockOnOff
' раскладка RU индикатор  горит
If R <> 67699721 And GetKeyState(VK_SCROLL) = 0 Then Scroll_LockOnOff
End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Do While x = 0
DoEvents
Sleep 200
Loop