'************************************** '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 '************************************** ' Name: * Ultimate Window Handler! * ' Description:This is the ultimate windo ' w handler. This can *Hide a window* *Show a window* *Minimize Window* *Maximize Window* *Close Window* ' By: Matt Evans (from psc cd) ' ' ' Inputs:none ' ' Returns:none ' 'Assumes:none ' 'Side Effects:none '************************************** 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