Implementing SysTray Notifications

[mhz_zarei]

من به زبان VB6 کار می کنم
من در سورسی می خواهم که در System try پنجره به شکل عکس زیر ایجاد کند
[img=http://www.vbaccelerator.com/home/NET/Code/Libraries/Shell_Projects/SysTray/sysTray.png]http://www.vbaccelerator.com/home/NET/Code/Libraries/Shell_Projects/SysTray/sysTray.png[/img]

http://www.vbaccelerator.com/home/NET/Co...rticle.asp
در سایت بالا سورس آن به زبان .Net است ولی من ویژوال بیسیک آن را می‌خواهم

من به سورس VB6 آن نیاز دارم لطفا دوستان عزیز کمک کنند
با تشکر از زحماتتان

[Payman62]

سلام.
از این کد استفاده کن.

کد:

Option Explicit
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (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

Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIM_MODIFY = &H1
Const LB_ITEMFROMPOINT = &H1A9

Const WM_LBUTTONDOWN = &H201
Const WM_RBUTTONUP = &H205
Dim pic_num As Integer

Private IC As NOTIFYICONDATA

Private Sub Form_Load()

pic_num = 1
picSymbol.Picture = Me.Icon
    
  
    With IC
        .cbSize = Len(IC)
        .hwnd = picSymbol.hwnd
        .uID = 2&
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        .uCallbackMessage = &H200
        .hIcon = picSymbol.Picture
        .szTip = "ÈÑäÇãå ÂíßæäåÇí ÓíÓÊã äæÔÊå ÔÏå ÈÇ ÈíÓß" + vbNullChar
    End With
    
  
    Shell_NotifyIcon NIM_ADD, IC
    
End Sub

[mhz_zarei]

کسی نیست جواب بده؟؟؟