Visual Basic - como puedo hacer esto?

he hecho un programa, y me gustaria que al minimizar, no aparezca en la barra de herramientas como una carpeta minimizada, sino que aparezca a lado del reloj un icono, alguien me puede dar una idea de como hacerlo? gracias

El código es este:

'#########################################################
' Icono en la barra de tareas (Inicio)
'#########################################################
Private NID as NOTIFYICONDATA
private fIconTaskCreado as boolean

'Agrega el ícono a la barra de tareas
Public Function CrearIconTask() As Boolean
If fIconTaskCreado = True Then CambiarIcono: CambiarToolTipText
On Error Resume Next
With NID
.cbSize = Len(NID)
.hwnd = UserControl.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = picIcono.Handle 'picIcono es un StdPicture que contiene al ícono
.szTip = strToolTipText & vbNullChar
End With
fIconTaskCreado = (Shell_NotifyIcon(NIM_ADD, NID) <> 0)
CrearIconTask = fIconTaskCreado
End Function

'Quita el ícono de la barra de tareas
Public Function QuitarIcono() As Boolean
Dim f As Boolean
On Error Resume Next
f = (Shell_NotifyIcon(NIM_DELETE, NID) <> 0)
fIconTaskCreado = Not f
QuitarIcono = f
End Function

'Cambia el ícono de la barra de tareas
Private Function CambiarIcono() As Boolean
On Error Resume Next
NID.hIcon = picIcono
CambiarIcono = Shell_NotifyIcon(NIM_MODIFY, NID)
End Function

'Cambia el ícono de la barra de tareas
Private Function CambiarToolTipText() As Boolean
On Error Resume Next
NID.szTip = strToolTipText & vbNullChar
CambiarToolTipText = Shell_NotifyIcon(NIM_MODIFY, NID)
End Function

'#########################################################
' Icono en la barra de tareas (Fin)
'#########################################################

El código es parte de un módulo más amplio, buscá las declaraciones del Api que faltan y probalo

Saludos Ruri