vb中弹出消息框如何能不中断程序的运行

用MessageBox代替MsgBox

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Command1_Click()
Timer1.Interval = 1000
MessageBox hwnd, "消息文本", "标题", 64
End Sub

Private Sub Timer1_Timer()
Cls
Print Now
Print "时间还在走"
End Sub

Private Sub Command2_Click()
MsgBox "现在再看呢", 64, "还走吗"
End Sub

用窗体做成msgbox样子的框，功能做一样的就不会影响了

Private Sub Command1_Click()
Dim A As Integer
A = MsgBox("提示", vbOKCancel, "标题")
If A = 1 Then
'程序运行的代码
Else
'结束程序的代码
End If
End Sub