Эмуляция нажатия CommandButton1 на UserForm1 - VB

Формулировка задачи:

Добрый день! Помогите, пожалуйста, разобраться как работать с эмуляцией нажатия кнопки на форме. У меня есть

UserForm1

на которой расположена кнопка

Commanbutton1

Label1

. В

Label1

размещен таймер обратного отсчета. Когда таймер заканчивает свою работу появляется сообщение

Msg Box

и при нажатии на

ОК

мне нужно, чтобы по

Commanbutton1

прошло событие, как будто ее нажали, при этом сама форма скрывается (до истечения время форма активна и кнопка выполняет другие микро программы).

Решение задачи: «Эмуляция нажатия CommandButton1 на UserForm1»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public iTimer As Date
 Sub TimerStart() '(iTimer)
 
    UserForm1.Label1.Caption = Format(iTimer, "n:ss")
    iTimer = iTimer - TimeValue("0:00:01")
    If iTimer > 0 Then
        Application.OnTime Now + TimeValue("00:00:01"), "TimerStart"
    Else
                                                   
        UserForm1.Label1.Caption = 15
        MsgBox ("Г‚Г°ГҐГ¬Гї ГўГ»ГёГ«Г®!!!")
        UserForm1.Commanbutton1_Click
  
    End If
End Sub