CodeItBetter Programming Another VB Programming Blog

'Internet - How to make all opened Internet Explorer windows to Full screen mode
Sub MakeIEwindowsToFullScreen(Optional ByVal bFullScreen As Boolean = True)
    'Add reference to Microsoft Internet Controls and to Microsoft Shell Controls and Automation.
    Dim oShell As Shell
    Dim oIE As InternetExplorer
    Dim oExplorer As ShellFolderView
    Dim obj As Object
 
    Set oShell = New Shell
    For Each obj In oShell.Windows
        If TypeName(obj.Document) = "HTMLDocument" Then
        'It is an Internet Explorer window
            Set oIE = obj
            oIE.FullScreen = bFullScreen
        Else
        'It is an Windows Explorer window
        'Nothing to do here.
        End If
    Next obj
End Sub
 
'How can I call this function:
'To set all opened IE windows to Full Screen
'Call MakeIEwindowsToFullScreen(True)
'To restore all opened IE windows from Full Screen
'Call MakeIEwindowsToFullScreen(False)