Visual Basic - Mostrar un icono en la barra de tareas

Saludos a tod@s

Esperando que tod@s se encuntren bien, me permito distraerlos con la siguiente consulta:

El siguiente código muestra (momentáneamente) un ícono en la barra de tareas:

' Mostrar un icono en la barra de tareas

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
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" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, _
pnid As TIPONOTIFICARICONO) As Boolean

Private Declare Function WinExec& Lib "kernel32" (ByVal IpCmdLine As String, ByVal nCmdShow As Long)
Dim t As TIPONOTIFICARICONO

Sub Main()
Dim MiConfiguración As rgConfiguración
InitCommonControls
' Inica código del Sistema
Tapiz_Fondo = "C:\Riesgos\Riesgos.jpg"
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash
t.cbSize = Len(t)
t.uId = 1&
t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.ucallbackMessage = WM_MOUSEMOVE
t.hIcon = fMainForm.Icon
t.szTip = "Ejemplo de barra de tareas..." & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
App.TaskVisible = False
fMainForm.Show
End Sub

¿Cómo puedo hacer para que el icono mostrado lo haga en forma permanente?

Agradezco de antemano la atención que se sirvan dar a la presente.

La forma más facil es hacerlo con el systray.ocx, aquí lo puedes descargar y ver dos ejemplos

http://www.lawebdelprogramador.com/temas/iconomovimientoreloj.php

http://www.lawebdelprogramador.com/temas/iconoreloj.php

Saludos

Gracias.