AgregarIcono Handle, Icono, ToolTipText
'En Handle, ponemos el Handle de quien lo solicita, en general es Me.hWnd
'En Icono, ponemos el icono que va a estar en el SysTray, generalmente Me.Icon
'En ToolTipText, va el texto que va a mostrar el icono cuando nos posemos sobre el
'Ej: AgregarIcono Me.hWnd, Me.Icon, "Este es el ToolTipText"

MostrarGlobo Titulo, Texto, ToolTipText, Icono
'En Titulo, va el titulo que llevara en negrita
'En Texto, va el texto que queramos
'En ToolTipText, va el texto que se mostrara al posarse sobre el icono
'En Icono, van solo 5 tipos como en un MsgBox
'Ej: MostrarGlobo "Este es el titulo", "Este es el texto", "Mira, soy un ToolTipText", Informacion

CambiarIcono Icono
'En Icono, va el nuevo icono que estara en el SysTray
'Ej: CambiarIcono Form2.Icon

QuitarIcono
'Quita el icono que esta en el SysTray
'Ej: QuitarIcono

TipText ToolTipText
'En ToolTipText, va el nuevo texto que mostrara el icono al pasar sobre el
'Ej: TipText "Este es el nuevo ToolTipText"

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if EventTray(X) = "LEFTDOWN" then MsgBox "Click derecho apretado"
End Sub
'El evento Form_MouseMove tiene que ser si o si del form que llamo al AgregarIcono