إلى أصحاب الخبرة

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

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

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim TrayI As NOTIFYICONDATA
Private Sub Form_Load()
    TrayI.cbSize = Len(TrayI)
    'Set the window's handle (this will be used to hook the specified window)
    TrayI.hWnd = pichook.hWnd
    'Application-defined identifier of the taskbar icon
    TrayI.uId = 1&
    'Set the flags
    TrayI.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    'Set the callback message
    TrayI.ucallbackMessage = WM_LBUTTONDOWN
    'Set the picture (must be an icon!)
    TrayI.hIcon = imgIcon(2).Picture
    'Set the tooltiptext
    TrayI.szTip = "Recent" & Chr$(0)
    'Create the icon
    Shell_NotifyIcon NIM_ADD, TrayI

    Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'remove the icon
    TrayI.cbSize = Len(TrayI)
    TrayI.hWnd = pichook.hWnd
    TrayI.uId = 1&
    Shell_NotifyIcon NIM_DELETE, TrayI
    End
End Sub
Private Sub mnuPop_Click(Index As Integer)
    Select Case Index
        Case 0
            MsgBox "KPD-Team 1998" + Chr$(13) + "URL: http://www.allapi.net/" + Chr$(13) + "E-Mail: KPDTeam@Allapi.net", vbInformation + vbOKOnly
        Case 2
            Unload Me
    End Select
End Sub
Private Sub pichook_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Msg = X / Screen.TwipsPerPixelX
    If Msg = WM_LBUTTONDBLCLK Then
        'Left button double click
        mnuPop_Click 0
    ElseIf Msg = WM_RBUTTONUP Then
        'Right button click
        Me.PopupMenu mnuPopUp
    End If
End Sub
Private Sub Timer1_Timer()
    Static Tek As Integer
    'Animate the icon
    Me.Icon = imgIcon(Tek).Picture
    TrayI.hIcon = imgIcon(Tek).Picture
    Tek = Tek + 1
    If Tek = 3 Then Tek = 0
    Shell_NotifyIcon NIM_MODIFY, TrayI
End Sub

جرب هذا

السلام عليكم ورحمة الله وبركاته

اخى الفاضل , مالحاجة الى كتابة كود طوييييل مع وجود هذه الاداة الرائعة وطريقة استعمالها سهلة جداً

من خصائص الاداة خاصية Icon ضع فيها الايكونة التى ستظهر بجوار الساعة ثم اكتب هذا الكود

Tray1.Create

ولازالة الايكونة

Tray1.Destroy

جربها وستعجبك جداً :rolleyes:

MBTRAY

و لكن سوف تحتاج لبعض الأضافات و التعديلات :)

فعلاً اخي GHOST2010

أداة رائعة جزاك الله خيراً

أنا عن نفسي لا أحب أستخدام الأدوات

أحب أن أعرف ماذا يحدث داخل برنامجى :)

السلام عليكم

ألف شكرا لكم جميعا على رد الجواب ولكن أنا أريد أن يتم تصغير البرنامج بجانب الساعة بدلن من تصغيره في شريط المهام

الكود والاداة يقومان بعمل ماتريد فهل يعقل ان يكون كل هذا الكود او اداة متخصصة لتصغير البرنامج فى شريط المهام.

السلام عليكم

طيب أشرح كيف يتم تصغير البرنامج بجوار الساعة

مثال :

عند النقر على زر Minimize في شريط العنوان يتم تصغير البرنامج بجوار الساعة والسماعة وغيرها

وشكرا

الموضوع سهل جداً

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
    Me.Visible = False
    Tray1.Create
End If
End Sub

Private Sub Tray1_DblClick(ByVal Button As Long)
Me.WindowState = vbNormal
Me.Visible = True
Tray1.Destroy
End Sub

شكرا على مساعدتك

هو الكود صعب ولا أيه :)

الكود الى أنا جبتة :)