RE:Icono en area notificación
Debes agregar el siguiente componente a tu proyecto:
http://u3gwng.bay.livefilestore.com/y1pHA9fdxqgiHBftt_Sq_bCsvGeGyeFXglYvHL-MOGcKbvovC4TBmLU1FvngwTUdcllbdpfBv_qdvg/systray.ocx?download
Una vez que lo has descargado digamos en la carpeta de tu proyecto, te vas al menú Proyecto, Componentes, en la ficha Controles, botón Examinar, enseguida buscas el archivo systray.OCX y la agregas, ahora tendrás en la barra de controles el control sysTray el cual deberás agregar al formulario que deseas que lo utilice...
Estas son las propiedades a configurar del systray:
Private Sub Form_Load()
sysTray1.IconPicture = LoadPicture("C:icono.icon") '--> Icono del systray icon
sysTray1.ToolTipText = "Mi Programa" '--> ToolTipText
Me.Icon = sysTray1.IconPicture '--> Asigna al formulario el mismo icono del systray
End Sub
Private Sub Form_Resize()
If (Me.WindowState = 1) Then '--> Ventana Minimizada
sysTray1.PonerSystray '--> Pone el Icono
Me.Hide '-->Esconde el formulario
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'-->Cuando cerramos el formulario quitamos el systray
sysTray1.RemoverSystray
End Sub
Private Sub mnuRestaurar_Click() '-->Opción Restarurar del Popup menu del systray
Me.WindowState = vbNormal '-->Maximiza el formulario
sysTray1.RemoverSystray '-->Quita el systray
Me.Show '-->Muestra el formulario
End Sub
Private Sub mnuSalir_Click() '-->Opción Salir del Popup menu del systray
Unload Me
End Sub
'--> Al hacer Clic sobre el systray
Private Sub sysTray1_MouseUP(Button As Integer)
If Button = vbLeftButton Then '-->Si se presionó el botón izquierdo
If (Me.WindowState = 1) Then '-->Si el formulario está minimizado
Me.WindowState = 0 '-->Maximiza el formulario
sysTray1.RemoverSystray '--> Quita el systray
Me.Show '-->Muestra el formulario
End If
End If
If Button = vbRightButton Then '-->Si se presionó el botón derecho
Me.PopupMenu mnuOpciones '-->Muestra el Popup Menu
End If
End Sub