隐藏Win95任务栏

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
　(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
　(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const SW_SHOW = 5
Public Const SW_HIDE = 0

Private hwnd5 as Long

hwnd5 = FindWindow("Shell_traywnd","")
Call ShowWindow(hwnd5, SW_HIDE) ''隐藏任务栏

Call ShowWindow(hwnd5, SW_SHOW) ''显示任务栏

　　这不是一个好的方式，如果你将任务栏隐藏了，但没有将之再显示出来，那我们只有重新启动才能使之重现，当用户发现叫不出任务栏时，他可能会很恼火。