Option Compare Database
Option Explicit

Public Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * 128
   dwState As Long
   dwStateMask As Long
   szInfo As String * 256
   uTimeout As Long
   szInfoTitle As String * 64
   dwInfoFlags As Long
End Type

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const NIF_INFO = &H10


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

Public nid As NOTIFYICONDATA

Public Const WM_MOUSEMOVE = &H200

Option Compare Database
Option Explicit

Private Sub Form_Load()
On Error Resume Next
        With nid
            .cbSize = Len(nid)
            .hWnd = Me.hWnd
            .uID = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallbackMessage = WM_MOUSEMOVE
            .hIcon = Img.ListImages("Icon").Picture
            .szTip = "База Access" & vbNullChar
        End With
        Shell_NotifyIcon NIM_ADD, nid
        
        If Err Then
            MsgBox Err.Description
        End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
            Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub Кнопка6_Click()
    With nid
     .dwInfoFlags = vbInformation
     .uFlags = NIF_INFO
     .szInfoTitle = "ToolTip" & vbNullChar
     .szInfo = "Message" & vbNullChar
    End With
    Shell_NotifyIcon NIM_MODIFY, nid
End Sub