نقل قول نوشته شده توسط akram_raeespour مشاهده تاپیک
سلام
من به یک اکتیوایکس که آیکن برنامه را به system tray ویندوز اضافه کند احتیاج دارم.
لطفا من را راهنمایی کنید.

یک ماژول بساز و این کد را در آن کپی کن این api امکان اضافه کردن آیکون به tray را در اختیارت قرار می ده . 

 

Option Explicit

'Win32 API declaration

Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

' Constants used to detect clicking on the icon

Public Const WM_LBUTTONDBLCLK = &H203

Public Const WM_RBUTTONUP = &H205

' Constants used to control the icon

Public Const NIM_ADD = &H0

Public Const NIM_MODIFY = &H1

Public Const NIF_MESSAGE = &H1

Public Const NIM_DELETE = &H2

Public Const NIF_ICON = &H2

Public Const NIF_TIP = &H4

' Used as the ID of the call back message

Public Const WM_MOUSEMOVE = &H200

' Used by Shell_NotifyIcon

Public Type NOTIFYICONDATA

    cbSize As Long

    hwnd As Long

    uId As Long

    uFlags As Long

    ucallbackMessage As Long

    hicon As Long

    szTip As String * 255

End Type

'create variable of type NOTIFYICONDATA

Public TrayIcon As NOTIFYICONDATA
حالا برای اینکه آیکونت را در tray قرار بدی از کد زیر استفاده کن 
        Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)

        TrayIcon.cbSize = Len(TrayIcon)

        TrayIcon.hwnd = frmmain.hwnd

        TrayIcon.uId = vbNull

        TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

        TrayIcon.ucallbackMessage = WM_MOUSEMOVE

        TrayIcon.hicon = frmmain.Icon

        TrayIcon.szTip = "Tray icon tooltip text"

        Call Shell_NotifyIcon(NIM_ADD, TrayIcon)