• Home
 · 
• Windows System Services
 · 
• Hides and Shows the Start Menu

Hides and Shows the Start Menu

Hides and Shows the Start Menu

API Declarations



Public Const SW_SHOW = 5

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Const SW_HIDE = 0



Rate Hides and Shows the Start Menu

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Sub Computer_Hide_Startmenu()
Dim findstartmenu&
Dim hidenow&
findstartmenu& = FindWindow("Shell_TrayWnd", vbNullString)
hidenow& = ShowWindow(findstartmenu&, SW_HIDE)
End Sub

'Shows Start Menu
Sub Computer_Show_StartMenu()
Dim findstartmenu&
Dim shownow&
findstartmenu& = FindWindow("Shell_TrayWnd", vbNullString)
shownow& = ShowWindow(findstartmenu&, SW_SHOW)
End Sub