• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make a form cover the entire screen including taskbar and office toolbar

Make a form cover the entire screen including taskbar and office toolbar

Make a form cover the entire screen including taskbar and office toolbar

API Declarations


Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40



Rate Make a form cover the entire screen including taskbar and office toolbar

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim cy As Long
Dim RetVal As Long
' Determine if screen is already maximized.
If Me.WindowState = vbMaximized Then
   ' Set window to normal size
   Me.WindowState = vbNormal
End If         ' Get full screen width.
cx = GetSystemMetrics(SM_CXSCREEN)         ' Get full screen height.
cy = GetSystemMetrics(SM_CYSCREEN)
' Call API to set new size of window.
RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW)