新建From1（窗体），新建Command1（按钮CommandButton），代码：

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

Private Sub Command1_Click()
    Call s_TimeOut
End Sub

Private Sub s_TimeOut()
    Dim dtmStartTime As Date
    dtmStartTime = Now
    
    Sleep 3000

    If DateDiff("s", dtmStartTime, Now) > 2 Then
        Debug.Print "超时了"
    End If
End Sub