ايران ويج

من به زبان 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 آن نیاز دارم لطفا دوستان عزی Happy

ز کمک کنند
با تشکر از زحماتتان

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

کد: 
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

Payman62

mhz_zarei