Windows API函数,希望大伙有用哦

				VERSION 5.00
				Begin VB.Form Form1 
				   Caption         =   "Form1"
				   ClientHeight    =   1110
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   4320
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   1110
				   ScaleWidth      =   4320
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton Command2 
				      Caption         =   "显示任务栏"
				      Height          =   405
				      Left            =   2310
				      TabIndex        =   1
				      Top             =   270
				      Width           =   1095
				   End
				   Begin VB.CommandButton Command1 
				      Caption         =   "隐藏任务栏"
				      Height          =   405
				      Left            =   630
				      TabIndex        =   0
				      Top             =   270
				      Width           =   1095
				   End
				End
				Attribute VB_Name = "Form1"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit
				Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
				Private Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsterAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
				Dim hWndl As Long
				Const SWP_HIDEWINDOW = &H80
				Const SWP_SHOWWINDOW = &H40
				Private Sub Form_Load()
				  hWndl = FindWindow("Shell_traywnd", "")
				End Sub
				Private Sub Command1_Click()
				  SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
				End Sub
				Private Sub Command2_Click()
				  SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
				End Sub