托盘图标问题

一个添加托盘图标测试，但是在系统栏中增加了一个图标的位置，就是没有图标的图像。是否对图标有什么限制，还是偶程序的问题。
程序如下：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
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private TheData As NOTIFYICONDATA
Private Sub AddIcon()
With TheData
    .Uid = 0
    .HWnd = frmmain.HWnd             'frm.HWnd是程序主窗体的句柄
    .cbSize = Len(TheData)
    .HIcon = frmmain.Icon.Handle    'frm.Icon.Handle指向主窗体的图标
    .UFlags = NIF_ICON
    .UCallbackMessage = TRAY_CALLBACK
         '作用是允许返回消息，在下一节中会有详细解释。
    .UFlags = .UFlags Or NIF_MESSAGE
    .cbSize = Len(TheData)
End With
      Shell_NotifyIcon NIM_ADD, TheData
    '根据前面定义NIM_ADD，设置为“添加模式”，然后添加
End Sub
Private Sub cmdload_Click()
    Call AddIcon
End Sub