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

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

Sub Main()
 Dim Timer1 As Timer   ' Один из пробных вариантов, которые не срабатывают
 Set Timer1 = Timer
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
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetMessage Lib "user32" Alias "GetMessageW" (lpMsg As msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
Public Declare Function TranslateMessage Lib "user32" (lpMsg As msg) As Long
Public Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageW" (lpMsg As msg) As Long
 
Const VK_SCROLL = &H91
Const KEYEVENTF_KEYUP = &H2
Const WM_TIMER = &H113
Public Type POINTAPI
    x   As Long
    y   As Long
End Type
Public Type msg
    hwnd    As Long
    message As Long
    wParam  As Long
    lParam  As Long
    time    As Long
    pt      As POINTAPI
End Type
 
Sub Main()
Dim msg As msg
Dim ret As Long
MsgBox "Timer On"
SetTimer 0, 0, 200, 0
Do
ret = GetMessage(msg, 0, 0, 0)
        If ret = -1 Or ret = 0 Then Exit Do
        Select Case msg.message
        Case WM_TIMER
            TimerProc
        Case Else
            TranslateMessage msg
            DispatchMessage msg
        End Select
'Sleep 100
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)
 
Sub Main()
    Do
        sub_DoSmth
        DoEvents
        Sleep 200
    Loop
End Sub
 
Sub sub_DoSmth()
    MsgBox "OK"
End Sub