Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Const WM_CLOSE = &H10

Private Sub Form_Load()
Dim lngHwnd As Long
Dim lngReturn As Long
lngHwnd = FindWindow(vbNullString, "Безымянный - Блокнот")
If lngHwnd <> 0 Then
lngReturn = PostMessage(lngHwnd, WM_CLOSE, 0&, 0&)
End If
End Sub

Option Explicit
Private Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
Private Const NIM_ADD = 0
Private Const NIM_MODIFY = 1
Private Const NIM_DELETE = 2
Private Const NIF_MESSAGE = 1
Private Const NIF_ICON = 2
Private Const NIF_TIP = 4
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_MBUTTONDOWN = &H207
Private Const WM_MBUTTONUP = &H208
Private Const WM_MBUTTONDBLCLK = &H209
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
Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, tip As String) As Long
Dim nidTemp As NOTIFYICONDATA
nidTemp.cbSize = Len(nidTemp)
nidTemp.hWnd = hWnd
nidTemp.uID = 0&
nidTemp.uFlags = NIF_ICON Or NIF_TIP
nidTemp.uCallbackMessage = 0&
nidTemp.hIcon = Icon
nidTemp.szTip = tip & Chr$(0)
SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp)
End Function



Private Sub picNotifier_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Îáðàáîòêà ñîáûòèé
Static Rec As Boolean, Msg As Long
Msg = X / Screen.TwipsPerPixelX
If Rec = False Then ' ×òîá íå ïîâòîðÿòü Çàïóñê
Rec = True
Select Case Msg
'Åñëè DoubleClick
Case WM_LBUTTONDBLCLK:
Me.Show
'Åñëè ëåâàÿ Êíîïêà íàæàòà
Case WM_LBUTTONDOWN:
'Åñëè ëåâàÿ Êíîïêà Îòæàòà
Case WM_LBUTTONUP:
'Ïðàâàÿ êíîïêà Click
Case WM_RBUTTONDBLCLK:
'Åñëè Ïðàâàÿ Êíîïêà íàæàòà
Case WM_RBUTTONDOWN:
'Åñëè Ïðàâàÿ Êíîïêà Îòæàòà
Case WM_RBUTTONUP:
' Çäåñü âû ìîæåòå âûçâàòü PoPup-ìåíþ:
' PopupMenu mnuPopMenu
End Select
Rec = False
End If
End Sub
' Äîáàâèòü èêîíêó ôîðìû â traybar
' SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test"
' Èçìåíèòü èêîíêó è tooltip
'SetTrayIcon NIM_MODIFY, Me.hWnd, Me.Icon, "It works!"
' Óäàëèòü èêîíêó èç traybar'a
'SetTrayIcon NIM_DELETE, Me.hWnd, 0&, ""
Private Sub Command1_Click()
SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test"
End Sub
Private Sub Command2_Click()
SetTrayIcon NIM_MODIFY, Me.hWnd, Me.Icon, "It works!"
End Sub
Private Sub Command3_Click()
SetTrayIcon NIM_DELETE, Me.hWnd, 0&, ""
End Sub