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
' Constants for methods associated with tray icons
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
' Constants for determining event associated with tray icon
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Dim tCurrentTxt As String
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
ثم ضع على الفورم الرئيسية Picture Box

واعطه اسم picHook

ثم اجعل الأيقونه التى تريدها أن تظهر هى أيقونة الفورم

حتى تظهر هذه الأيقونه بجوار الساعة

ثم ضع هذا الكود فى form_Load

    With t
        .cbSize = Len(t)
        .hwnd = picHook.hwnd

        .uId = 1&
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .ucallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon
        .szTip = "Zino Reminder..." & Chr$(0)
        Shell_NotifyIcon NIM_ADD, t
    End With