VB Msgbox提示窗口超时限后自动关闭

Public Function F_Msgbox_time(para_msg As String, title1 As String) As Long
    On Error Resume Next
    Dim hwnd As Long
    Timer3.Enabled = True
    F_Msgbox_time = MsgBox(para_msg, vbOKCancel + vbApplicationModal, title1)
    Timer3.Enabled = False
End FunctionPublic Function F_Msgbox_time(para_msg As String