Como minimizarlo a la barra de tareas?

Hola de nuevo alguien se sabe el codigo para que haga la funcion del p2p ares galaxy cuando lo cierras? ven que le das en la X y se minimiza a la barra de tareas? eso quiero hacer con mi programa me podrian pasar el codigo porfavor? :huh:

[CODIGO PARA MINIMIZAR A LA BARRA DE TAREAS)

Código:

'CON ESTO HAGO QUE LA [X] SE ANULE Y HAGA UNA LLAMADA A IMAGEN_CHANGE.
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Imagen_Change

DESPUES SE CREA UN PICTUREBOX EN EL FORM1 LE CAMBIAS EL VISIBLE A FALSE Y ESCOGES UNA IMAGEN QUE SEA .ICO Ó . CUR...

Código:

'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub

Código:

' ESTO TAMPOCO SE QUE HACE PEROE S PARTE DEL CODIGO..
Private Sub Imagen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
    FrmInicio.Show
    BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
    FrmInicio.Show
    BorrarIconito
End If
End Sub

DESPUES EN UN MODULO EL SIGUIENTE CODIGO:

Código:

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef lpData As NOTIFYICONDATA) As Long
Public 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 Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1 'Borrar si no se quiere animar la imagen
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Dim IC As NOTIFYICONDATA

Código:

Public Sub Iconito(Tip As String, Foto As PictureBox)
    IC.cbSize = Len(IC)
    IC.hwnd = Foto.hwnd
    IC.uID = 1&
    IC.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    IC.uCallbackMessage = WM_LBUTTONDOWN
    IC.hIcon = Foto.Picture
    IC.szTip = Tip & Chr(0)
    Shell_NotifyIcon NIM_ADD, IC
End Sub

Código:

Public Sub BorrarIconito()
    Shell_NotifyIcon NIM_DELETE, IC
End Sub

Si alguien podria explicarme el funcionamiento del codigo me harian feliz ::)

... Por cierto este codigo lo puso: E0N y el que me dio el link fue Celaya asi que gracias a los dos y a losdemas que tambien ayudaron

Aqui les dejo el link:
http://foro.elhacker.net/index.php/topic,151860.0.html