Maximize minimize and random size of internet explorer window using VBA,VBA Teacher Sourav,Kolkata 08910141720

 Declare Function apiIEsize Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal CmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
 Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2

Sub differntIEsize()

Set ie = CreateObject("InternetExplorer.Application")

 ie.Visible = True
apiIEsize ie.hwnd, SW_MAXIMIZE

ie.navigate "https://www.google.com"

 End Sub 


Source:https://www.youtube.com/watch?v=Kiro_vuS6Bo&index=4&list=PLe_F6wC3Fvdrh3aUyLExNcuofDAmb0nGV