VB显示/隐藏 开始按扭

' 作者: Waty Thierry
'  * Module Name : Start_Module
' * Module Filename : Start.bas
' *********************************************************
'  * Comments : Show/Hide the start button
'  ********************************************************
Private  Declare  Function  FindWindow Lib  " user32 "  Alias  " FindWindowA "  (ByVal lpClassName  As   String , ByVal lpWindowName  As   String )  As   Long
Private  Declare  Function  FindWindowEx Lib  " user32 "  Alias  " FindWindowExA "  (ByVal hWnd1  As   Long , ByVal hWnd2  As   Long , ByVal lpsz1  As   String , ByVal lpsz2  As   String )  As   Long
Private  Declare  Function  ShowWindow Lib  " user32 "  (ByVal hwnd  As   Long , ByVal nCmdShow  As   Long )  As   Long
Public   Function  hideStartButton()  ' This Function Hides the Start Button’
     OurParent &   =  FindWindow( " Shell_TrayWnd " ,  "" )
     OurHandle &   =  FindWindowEx(OurParent & ,  0 ,  " Button " , vbNullString)
     ShowWindow OurHandle & ,  0
End Function
Public   Function  showStartButton()  ' This Function Shows the Start Button’
     OurParent &   =  FindWindow( " Shell_TrayWnd " ,  "" )
     OurHandle &   =  FindWindowEx(OurParent & ,  0 ,  " Button " , vbNullString)
     ShowWindow OurHandle & ,  5
End Function

Private   Sub  Command1_Click()
 hideStartButton
End Sub

Private   Sub  Command2_Click()
 showStartButton
End Sub