Hides and Shows the Start Menu

by Brandon Watrous (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 14^th December 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



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

Download this snippet Add to My Saved Code

Hides and Shows the Start Menu Comments

No comments have been posted about Hides and Shows the Start Menu. Why not be the first to post a comment about Hides and Shows the Start Menu.

Hides and Shows the Start Menu

Hides and Shows the Start Menu Comments

Post your comment

Difficulty