Cómo agregar un ícono de programa a la bandeja

Primero cree un nuevo módulo y copie el siguiente contenido en la Opción Explícita

'Determinar si el formulario está minimizado, si el valor devuelto no es 0 entonces el formulario está minimizado

Función de declaración pública IsIconic Lib "user32" (ByVal Hwnd As Long) As Long

'Una función para agregar iconos a la barra de tareas

Función de declaración pública Shell_NotifyIcon Lib "shell32.dll" Alias" Shell_NotifyIconA " (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

el número de constantes en el parámetro dwMessage que utilizará la función SHELL_NOTIFYICON

Public Const NIM_ADD = amp; H0

Const pública NIM_DELETE = H2

Const pública NIM_MODIFY = H1

Const pública NIF_TIP = H4

Const pública NIF_MESSAGE = amp; H1 <

Const pública NIF_ICON = amp; H2

Const pública WM_RBUTTONDOWN = amp H204

Constante pública WM_LBUTTONDOWN = amp; >Tipo público NOTIFYICONDATA

cbSize As Long

Hwnd As Long

uID As Long

uFlags As Long

uCallbackMessage As Long

hIconAs Long

szTip As String * 64

End Type

'Agrega el icono al área del sistema de ​​la sección de tareas

Función pública Add_Icon(Hwnd As Long, sTip As String, hIcon As Long, iId As Long) As Long

Dim IconV As NOTIFYICONDATA

Con IconV

.Hwnd = Hwnd

.szTip = sTip Chr$(0)

.hIcon = hIcon

.uID = iId

.uCallbackMessage = WM_RBUTTONDOWN

.uFlags = NIF_MESSAGE o NIF_ICON o NIF_TIP

.uCallbackMessage = WM_RBUTTONDOWN

.uFlags = NIF_MESSAGE o NIF_ICON o NIF_TIP.uID = iId

.uCallbackMessage = WM_RBUTTONDOWN

.uFlags = NIF_MESSAGE o NIF_TIP o NIF_ICON

.uCallbackMessage = WM_RBUTTONDOWN

.uFlags = NIF_MESSAGE o NIF_TIP o NIF_ICON