api 问题

在状态栏显示小图标，要调用API函数，具体如下：
Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'
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 Dim mtIconData as NOTIFYICONDATA
'
Private Sub AddIconToTray() '添加图标
    On Error Resume Next
    With mtIconData
        .cbSize = Len(mtIconData)
        .hwnd = Me.hwnd
        .uCallbackMessage = WM_MOUSEMOVE
        .uID = 1&
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .hIcon = Image1.Picture
        .szTip = Image1.Tag & Chr$(0)
        If Shell_NotifyIcon(NIM_ADD, mtIconData) = 0 Then
            MsgBox Err.Description
        End If
    End With
End Sub
'
Private Sub DeleteIconFromTray() '删除图标
    On Error Resume Next
    If Shell_NotifyIcon(NIM_DELETE, mtIconData) = 0 Then
        MsgBox Err.Description
    End If
End Sub
在窗体上放置一个Image控件，设置好你需要使用的图标。
向系统栏增加了图标后，隐藏窗体就行了。退出时要删除添加的图标。
在窗体中定义的菜单可以让它在点击图标时弹出，执行相应的操作。