Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongDeclare Function ShowWindow Lib "user32" Alias "ShowWindow" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPublic Const SW_SHOW = 5Public Const SW_HIDE = 0Private hwnd5 as Longhwnd5 = FindWindow("Shell_traywnd","")Call ShowWindow(hwnd5, SW_HIDE) '隐藏任务栏Call ShowWindow(hwnd5, SW_SHOW) '显示任务栏这不是一个好的方式，如果您将任务栏隐藏了，但没有将之显示，那我们只有重新开机才能使之重新出现，当使用者发现叫不出任务栏时，他可能会很生气。（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/） 
