Как сделать что бы при нажатии на кнопку, программа сворачивалась в системный трей? - VB

Private Sub Form_Load()
' Заносим иконку в трей и скрываем форму
TaskIcon1.Add Form1.Icon, "Example"
Form1.Hide
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' Удаляем иконку из трея
TaskIcon1.Delete
End Sub
 
Private Sub Form_Resize()
' Если окно минимизировано, то скрываем форму и возвращаем ей нормальный размер
If Form1.WindowState = 1 Then Form1.Hide: Form1.WindowState = 0
End Sub
 
Private Sub menu1_Click()
MsgBox "Пример помещения иконки" + Chr$(34) + "туда где часики" + Chr$(34)
End Sub
 
Private Sub menu3_Click()
Unload Form1
End Sub
 
Private Sub TaskIcon1_DblClick()
Form1.Show
End Sub
 
Private Sub TaskIcon1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' При нажатии правой кнопки мыши выводим меню
If Button = 2 Then PopupMenu menu
End Sub