VB的显示/隐藏Start按钮

'*ModuleName:Start_Module
　　'*ModuleFilename:Start.bas
　　'*********************************************************
　　'*Comments:Show/Hidethestartbutton
　　'********************************************************
　　PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
　　
　　PrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong
　　
　　PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong
　　
　　PublicFunctionhideStartButton()
　　'ThisFunctionHidestheStartButton'
　　OurParent&=FindWindow("Shell_TrayWnd","")
　　OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)
　　ShowWindowOurHandle&,0
　　EndFunction
　　
　　PublicFunctionshowStartButton()
　　'ThisFunctionShowstheStartButton'
　　OurParent&=FindWindow("Shell_TrayWnd","")
　　OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)
　　
　　ShowWindowOurHandle&,5
　　EndFunction->