vb窗口前端显示，看不见msgbox怎么办

vb窗口前端显示，看不见msgbox怎么办
我是按这个方法做得前端显示
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
Private Const SWP_NOSIZE& = &H1
Private Const SWP_NOMOVE& = &H2

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

但是。。。msgbox看不见了！
我总不能把那么多msgbox都变成form吧。。。太费劲了！。。。

如何用VB实现窗口的前端显示（即使窗口总在最前）？ 如何能让VB中弹出对话框（就是用MSG函数）总是出现在最前端？ VB窗口一直显示 VB窗口显示 怎样取消VB程序的前端显示？ 请问|VB 中|MSG是什么意思? 如果修改街头篮球窗口最前端显示 语言栏无法在窗口前端显示怎么办？ 如何使vb窗体显示在桌面最前端， VB中无标题窗口显示在任务栏