把程序放到Windows系统栏

先新建一个模块把下面的内容复制进去 Option Explicit


'判断窗体是是否是最小化了，如果返回的值不为0则窗体最小化了
Public Declare Function IsIconic Lib "user32" (ByVal Hwnd As Long) As Long


'把图标加入任务栏的函数
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long


'SHELL_NOTIFYICON函数要用到的 dwMessage 参数中的常数数
Public Const NIM_ADD = &H0


Public Const NIM_DELETE = &H2


Public Const NIM_MODIFY = &H1


Public Const NIF_TIP = &H4


Public Const NIF_MESSAGE = &H1


Public Const NIF_ICON = &H2


Public Const WM_RBUTTONDOWN = &H204


Public Const WM_LBUTTONDOWN = &H201


Public Type NOTIFYICONDATA
cbSize As Long
Hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type


'把图标加入到任务栏目的系统区
Public Function Add_Icon(Hwnd As Long, sTip As String, hIcon As Long, iId As Long) As Long
Dim IconV As NOTIFYICONDATA
With IconV
.Hwnd = Hwnd
.szTip = sTip + Chr$(0)
.hIcon = hIcon
.uID = iId
.uCallbackMessage = WM_RBUTTONDOWN
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.cbSize = Len(IconV)
End With
Add_Icon = Shell_NotifyIcon(NIM_ADD, IconV)
End Function


'删除任务栏目中的图标
Public Function Del_Icon(Hwnd As Long, iId As Long) As Long
Dim IconV As NOTIFYICONDATA
With IconV
.Hwnd = Hwnd
.uID = iId
End With
Del_Icon = Shell_NotifyIcon(NIM_DELETE, IconV)
End Function


'更改图标
Public Function Modify_Icon(Hwnd As Long, sTip As String, hIcon As Long, iId As Long) As Long
Dim IconV As NOTIFYICONDATA
With IconV
.Hwnd = Hwnd
.szTip = sTip + Chr$(0)
.hIcon = hIcon
.uID = iId
.uCallbackMessage = WM_RBUTTONDOWN
.uFlags = NIF_MESSAGE Or NIF_TIP Or NIF_ICON
.cbSize = Len(IconV)
End With
Modify_Icon = Shell_NotifyIcon(NIM_MODIFY, IconV)
End Function如果你想要把图标加到任务栏的托盘区的话，就用Add_Icon(me.hwnd,me.caption,me.icon,0) 就行了，删除就用 Delete_Icon(me.hwnd,0)