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