渴望指点：如何使VB程序运行后图标置于任务栏右边图标框里？

Question

用windows API函数中的Shell_NotifyIcon函数,至于接受用户的响应你还得截取windows 的消息,留下点疑问好好研究吧
          惊喜敬上

Answer 1

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private 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
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private T As NOTIFYICONDATAPrivate Sub Form_Load()
    T.cbSize = Len(T)
    T.hwnd = picIcon.hwnd
    T.uId = 1&
    T.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    T.ucallbackMessage = WM_MOUSEMOVE
    T.hIcon = picIcon.Picture   '我这里用一个pictureBox来存图标
    T.szTip = "" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, T
    App.TaskVisible = FalseEnd Sub

Answer 2

去掉图标时用：
    T.cbSize = Len(T)
    T.hwnd = picIcon.hwnd
    T.uId = 1&
    Shell_NotifyIcon NIM_DELETE, T