При нажатии на кнопку "Закрыть", свернуть программу в трей - VB

Формулировка задачи:

Как можно сделать так, чтобы при нажатии на кнопку "Закрыть", программа сворачивалась в трей? А кликнув правой кнопкой на трей, там меюшка чтобы типо была...
Решение задачи: «При нажатии на кнопку "Закрыть", свернуть программу в трей»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim nid As NOTIFYICONDATA
 
 
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
 
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 'ГЉГ®Г*Г±ГІГ*Г*ГІГ» Г¤Г«Гї Г¤Г®ГЎГ*ГўГ«ГҐГ*ГЁГї, ГіГ¤Г*Г«ГҐГ*ГЁГї ГЁ Г¬Г®Г¤ГЁГґГЁГЄГ*Г¶ГЁГЁ ГўГ*ГёГҐГ© ГЁГЄГ*Г®ГЄГЁ:
Private Const NIM_ADD = 0
Private Const NIM_MODIFY = 1
Private Const NIM_DELETE = 2
'ГЉГ®Г*Г±ГІГ*Г*ГІГ» Г®ГІГўГҐГІГ±ГІГўГҐГ*Г*Г»ГҐ Г§Г* Г±Г®ГЎГ»ГІГЁГї ГЇГ°Г®ГЁГ±ГµГ®Г¤ГїГ№ГЁГҐ ГўГ*ГіГІГ°ГЁ ГЈГ°Г*Г*ГЁГ¶ ГЁГЄГ®Г*ГЄГЁ, Г°Г*Г±ГЇГ®Г«Г®Г¦ГҐГ*Г*Г®Г© Гў Traybar:
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = 1
Private Const NIF_ICON = 2
Private Const NIF_TIP = 4
'ГЉГ®Г*Г±ГІГ*Г*ГІГ» Г®ГІГўГҐГІГ±ГІГўГҐГ*Г*Г»ГҐ Г§Г* Г±Г®ГЎГ»ГІГЁГї ГЇГ®ГўГҐГ¤ГҐГ*ГЁГї Г¬Г»ГёГЄГЁ ГЇГ°Г®ГЁГ±ГµГ®Г¤ГїГ№ГЁГҐ ГўГ*ГіГІГ°ГЁ ГЈГ°Г*Г*ГЁГ¶ ГЁГЄГ®Г*ГЄГЁ, ' Г°Г*Г±ГЇГ®Г«Г®Г¦ГҐГ*Г*Г®Г© Гў Traybar:
':
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
 
Private Sub Command1_Click()
nid.cbSize = Len(nid)
nid.hWnd = Form1.hWnd
nid.uID = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallbackMessage = WM_MOUSEMOVE
nid.hIcon = Form1.Icon
nid.szTip = "ГЏГ°ГЁГўГҐГІ" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub
 
Private Sub Command2_Click()
nid.hIcon = Form1.Icon
nid.szTip = "Г„Г*Г°Г®Гў" & vbNullChar
Shell_NotifyIcon NIM_MODIFY, nid
End Sub
 
Private Sub Command3_Click()
Shell_NotifyIcon NIM_DELETE, nid
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'ГЋГЎГєГїГўГ«ГїГҐГ¬ ГЇГҐГ°ГҐГ¬ГҐГ*Г*Г»ГҐ:
 
Dim msg As Long
Dim sFilter As String
 
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
'Г‘ГѕГ¤Г* ГІГ» Г¬Г®Г¦ГҐГёГј ГўГ±ГІГ*ГўГЁГІГј ГЄГ®Г¤, ГЄГ®ГІГ®Г°Г»Г© Г§Г*ГµГ®Г·ГҐГёГј:
Print "ГЌГ*Г¦Г*ГІГ* Г«ГҐГўГ*Гї ГЄГ*Г®ГЇГЄГ* Г¬Г»ГёГЁ(ГЌГ*Г¦Г*ГІГ*)"
 
Case WM_LBUTTONUP
'Г‘ГѕГ¤Г* ГІГ» Г¬Г®Г¦ГҐГёГј ГўГ±ГІГ*ГўГЁГІГј ГЄГ®Г¤, ГЄГ®ГІГ®Г°Г»Г© Г§Г*ГµГ®Г·ГҐГёГј:
Print "ГЌГ*Г¦Г*ГІГ* Г«ГҐГўГ*Гї ГЄГ*Г®ГЇГЄГ* Г¬Г»ГёГЁ(ГЋГІГ¦Г*ГІГ*)"
Case WM_LBUTTONDBLCLK
'Г‘ГѕГ¤Г* ГІГ» Г¬Г®Г¦ГҐГёГј ГўГ±ГІГ*ГўГЁГІГј ГЄГ®Г¤, ГЄГ®ГІГ®Г°Г»Г© Г§Г*ГµГ®Г·ГҐГёГј:
Print "Г’Г» ГЄГ«ГЁГЄГ*ГіГ« 2 Г°Г*Г§Г* ГЇГ® Г€ГЉГЋГЌГЉГ…(Г‹ГҐГўГ®Г© ГЄГ*Г®ГЇГЄГ®Г©)"
Case WM_RBUTTONDOWN
'Г‘ГѕГ¤Г* ГІГ» Г¬Г®Г¦ГҐГёГј ГўГ±ГІГ*ГўГЁГІГј ГЄГ®Г¤, ГЄГ®ГІГ®Г°Г»Г© Г§Г*ГµГ®Г·ГҐГёГј:
'ГЋГЎГ»Г·Г*Г® ГЅГІГ® PopupMenu:
Print "ГЌГ*Г¦Г*ГІГ* ГЇГ°Г*ГўГ*Гї ГЄГ*Г®ГЇГЄГ* Г¬Г»ГёГЁ(ГЌГ*Г¦Г*ГІГ*)"
Case WM_RBUTTONUP
'Г‘ГѕГ¤Г* ГІГ» Г¬Г®Г¦ГҐГёГј ГўГ±ГІГ*ГўГЁГІГј ГЄГ®Г¤, ГЄГ®ГІГ®Г°Г»Г© Г§Г*ГµГ®Г·ГҐГёГј:
Print "ГЌГ*Г¦Г*ГІГ* Г«ГҐГўГ*Гї ГЄГ*Г®ГЇГЄГ* Г¬Г»ГёГЁ(ГЋГІГ¦Г*ГІГ*)"
Case WM_RBUTTONDBLCLK
'Г‘ГѕГ¤Г* ГІГ» Г¬Г®Г¦ГҐГёГј ГўГ±ГІГ*ГўГЁГІГј ГЄГ®Г¤, ГЄГ®ГІГ®Г°Г»Г© Г§Г*ГµГ®Г·ГҐГёГј:
Print "Г’Г» ГЄГ«ГЁГЄГ*ГіГ« 2 Г°Г*Г§Г* ГЇГ® Г€ГЉГЋГЌГЉГ…(ГЏГ°Г*ГўГ®Г© ГЄГ*Г®ГЇГЄГ®Г©)"
End Select
End Sub
 
Private Sub Form_Terminate()
Shell_NotifyIcon NIM_DELETE, nid
End Sub
                        