13518219792
1.添加一个模块.名字就用默认的吧.再复制代码到模块中.
创新互联公司服务项目包括荔城网站建设、荔城网站制作、荔城网页制作以及荔城网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，荔城网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到荔城省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Option Explicit
Dim rtn As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_HIDEWINDOW = H80
Public Const SWP_SHOWWINDOW = H40
2.回到form中,添加两个按钮,名字为"隐藏任务栏"、"显示任务栏"
3.下面用到代码了，看好了，要对号入座的。
首先是load
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
其次是显示任务栏的
rtn = FindWindow("Shell_traywnd", "")
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
最后是隐藏任务栏的
rtn = FindWindow("Shell_traywnd", "")
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
好了，编程完成！看能否运行
成功！
如果要编成恶意程序的话，只要将隐藏任务栏的命令复制到load中，再将整个程序的visible，showintaskbar设为false就行了,最后再加入unload me 让它运行完后自动结束。看我操作！
工具栏 一般都有自动隐藏，在工具栏的左或者右上方 有个图标可以选择隐藏的，我用的VS2010 反正在那里有设置的！
VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。
FindWindow函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。
IsWindowVisible函数检索指定窗口的可见性状态。
ShowWindow函数设置指定窗口的显示状态。
实现代码：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow("Shell_TrayWnd", "") '取任务栏窗口句柄
If IsWindowVisible(hwnd) 0 Then '如果任务栏是可视状态
ShowWindow hwnd, 0 '隐藏任务栏
Else
ShowWindow hwnd, 1 '显示任务栏
End If
End Sub
效果：
有的朋友喜欢用修改注册表的方法隐藏任务栏，这样有可能会影响系统稳定。
我以前试过，但是效果不好。
至于编写VB程序，我觉得也很麻烦。
我为这个问题苦恼了好久，后来终于被我找到了一个简单的软件，无需安装，真的非常方便。
可以随意隐藏你想隐藏的任务栏图标，或者窗口程序。而且可以轻易恢复。
PS
Tray
Factory
2.0破解版
1、没有事件是直接由最小化、还原触发的，它们都会触发SizeChanged事件。所以你可以写主窗体的SizeChanged事件来控制副窗体显隐，顺便改变副窗体的相对位置；
2、在SizeChanged事件中，通过判断窗体的WindowState属性来确定用户是最小化还是还原了；（FormWindowState.Minimized和FormWindowState.Normal枚举）
3、调用副窗体的BringToFront方法可以把副窗体带到最前面来
'这个问题也不是很难，先给你一个隐藏自己程序任务栏的例子，隐藏任务栏其他程序只需查找该程序的句柄即可
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_APPWINDOW As Long = H40000
Private Sub Form_Click()
Static ShowFlags As Boolean
Dim TempLng As Long
Me.Hide
TempLng = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
If ShowFlags Then
TempLng = TempLng Or WS_EX_APPWINDOW
Else
TempLng = TempLng And Not WS_EX_APPWINDOW
End If
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, TempLng)
'Debug.Print ShowFlags
ShowFlags = Not ShowFlags
Me.Show
End Sub
