老问题了,
Declare Function shell_notifyicon Lib "shell32.dll" Alias " Shell_NotifyIconA " (ByVal dwmessage As Long, pnid As notifyicondata) As Long
里面
" Shell_NotifyIconA " 
引号里面多了空格,将里面的空格删除就可以了。

解决方案 »

  1.   

    你放Icon的应该是一个Image控件,我想你应该用.hicon = Image1.Picture.Handle而不是 .hicon = Image1.Picture ,这样才能将图标句柄传递给 shell_notifyicon 函数。
      

  2.   

    TechnoFantasy(www.applevb.com),您好:
       Image控件有handle吗?
      

  3.   

    Image控件没有hWnd
    但它的PictureBox属性是一个IPictureDisp型的类
    IPictureDisp类有handle属性
    它是IPictureDisp类中的图形的句柄
      

  4.   

    是呀,我给你的是Image1.Picture.Handle 而不是 Image1.Handle