Option Explicit
'------------------
'///////////////////CREA ICONO//////////////////////////////////
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
'--------------------
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" _
Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, _
pnid As TIPONOTIFICARICONO) As Boolean
'--------------------
Dim t As TIPONOTIFICARICONO
Private Type TIPONOTIFICARICONO
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 Sub CreaIcono(ByRef Frm As Form)
With t
.cbSize = Len(t)
.hwnd = Frm.hwnd
.uId = 1&
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.ucallbackMessage = WM_MOUSEMOVE
.hIcon = Frm.Icon
' Es un string de "C" ( \0 )
.szTip = Frm.Caption & Chr$(0)
End With
Shell_NotifyIcon NIM_ADD, t
Frm.Hide
End Sub
Public Sub QuitaIcono(ByRef Fr