有什么函数可以实现“弹出窗口”的功能吗？

Question

我现在想实现：
弹出某个已经最小化的窗体在线等

Answer 1

Private Sub Command1_Click()
Form2.WindowState = 0
End SubPrivate Sub Form_Load()
Form2.Show
Form2.WindowState = 1
End Sub

Answer 2

'如果那个最小化的窗体是你自己的窗体就Private Sub Command2_Click()
Form2.WindowState = 0
End Sub
如果是其它程序的窗体就
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
Dim i As Long
i = ShowWindow(那个窗口的hwnd, SW_SHOWNORMAL)
i = SetForegroundWindow(那个窗口的hwnd)
End Sub

Answer 3

没想到Form2.WindowState = 0
就可以实现了，谢谢了