'
' IsZoomed
'
' Author: Joe Strazzere
'
' "user32" Alias "IsZoomed" (ByVal hwnd As Long) As Long
shell("notepad")
UseWindow("NOTEPAD.EXE|Edit|Untitled - Notepad|1",1)
hwnd=GetWindowHandle("NOTEPAD.EXE|Notepad|Untitled - Notepad",1)
a = External("user32","IsZoomed", hwnd)
msgbox("Zoomed (Maximized) Status for the Notepad main window is : "+Str$(a),,"IsZoomed")
MaximizeWindow("NOTEPAD.EXE|Notepad|Untitled - Notepad",1)
a = External("user32","IsZoomed", hwnd)
msgbox("Zoomed (Maximized) Status for the Notepad main window is now : "+Str$(a),,"IsZoomed")
SendKeys("<Alt>fxn")
