Attribute VB_Name = "mdlFunction"
Option Explicit

'獲取窗口句柄:0-窗體沒有打開;非0-窗體已打開
'lpClassName:VbNullString;
'lpWindowName:From Caption
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'窗口是否可見:1-可見;0-隱藏
'hwnd:窗體句柄
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

'窗口是否最小化:0-沒有最小化;1-最小化
'hwnd:窗體句柄
Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

'激活窗體
'hwnd:窗體句柄
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long