VB窗口一直显示

让一个窗口在最顶层显示
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 Sub Command1_Click()
Dim rtn
'让窗口在顶层
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
'取消窗口在顶层
'rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub

执行完一段代码后，加下面的代码：
Me.visual=flase '隐藏
Unload Me '卸载

在你要的条件满足时用个form.visual=flase可以了。

不明你问什么
是指模式窗口吗?