怎样才能在msgbox弹出的同时,后台执行其它代码?

Question

我利用Timer控件实现了一个line的闪烁动画,我想在弹出MsgBox警告用户,同时后台窗口的动画依然闪烁。我用了DoEvents，可没有反映，MsgBox弹出后，动画不执行，只有点出确定，MsgBox消失后，闪烁才开始。有什么办法吗？下面是启动闪烁的代码：Private Sub mnuWink_Click()
    TimeDG.Enabled = True
    MsgBox "发现断轨!", , "警报"
    DoEvents
End Sub

Answer 1

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Command1_Click()
MessageBox FromForm.hWnd, 这是一个对话框", 0
End Sub

Answer 2

自己写一个弹出窗口，然后Show出来，让该窗口一直置前，后台继续执行程序。^_^

Answer 3

同意楼上，不过有点麻烦，如果msg很多的话，那得写多少？

Answer 4

//同意楼上，不过有点麻烦，如果msg很多的话，那得写多少？写一个就够了，msg多就改变里面的控件显示的东西。^_^