Excel 请问如何实现，一个窗体，yes/no2个按钮，10秒钟不点击则自动执行“宏A”

Private Sub UserForm_Activate()
i = Format(Now(), "hh:mm:ss")
Do Until False
DoEvents
x = Format(Now(), "hh:mm:ss")
        DoEvents
       If TimeValue(x) > TimeValue(i) + TimeValue("00:00:10") Then
        UserForm1.Hide
         End
    End If
    Loop
End Sub
***********************************

Application.OnTime Now + TimeValue("00:00:10"), "宏A"

不行的啊，这个我也知道的，这样的话过程中不让你点击 是和否 2个按钮的