VB中用什么api函数实现程序的后台运行，且图标显示在状态栏的右下角

VB中用什么api函数实现程序的后台运行，且图标显示在状态栏的右下角（托盘），就象病毒监控程序一样；有详细代码的加100分；

解决方案 »

  1.   

    可以用Shell_NotifyIcon()函数.
    添加时:
    Dim nid As NOTIFYICONDATAnid.cbSize = Len(nid)
    nid.hwnd = Me.hwnd
    nid.uID = 9999
    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    nid.hIcon = Picture1.Picture
    nid.uCallbackMessage = WM_USER + 100
    nid.szTip = "tray" + Chr(0)Shell_NotifyIcon NIM_ADD, nid
    Me.Hide
    删除时用:
    Dim nid As NOTIFYICONDATA
    nid.cbSize = Len(nid)
    nid.hwnd = FrmUpdate.Picture1.hwnd
    nid.uID = 9999
    nid.uFlags = NIF_ICONShell_NotifyIcon NIM_DELETE, nid
      

  2.   

    可以将上述内容封装成类，以后可以经常使用。
    后台运行：其实就是把窗体都Visible=False掉
      

  3.   

    http://www.csdn.net/cnshare/soft/16/16015.shtm