WinHandle

'Windows API/Global Declarations for :* Ultimate Window Handler!

'***************************************************************

Declare Function SendMessageByString Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Integer, _
ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10
Public Const SW_HIDE = 0
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Sub WindowHandle(win,cas as long)
'by storm

'Case 0 = CloseWindow

'Case 1 = Show Win

'Case 2 = Hide Win

'Case 3 = Max Win

'Case 4 = Min Win

Select Case cas
Case 0:
Dim X%
X% = SendMessage(win, WM_CLOSE, 0, 0)
Case 1:
X = ShowWindow(win, SW_SHOW)
Case 2:
X = ShowWindow(win, SW_HIDE)
Case 3:
X = ShowWindow(win, SW_MAXIMIZE)
Case 4:
X = ShowWindow(win, SW_MINIMIZE)
End Select
'any questions e-mail me at storm@n2.com

End Sub

Description:This is the ultimate window handler. This can
*Hide a window*
*Show a window*
*Minimize Window*
*Maximize Window*
*Close Window*