pongo aca el code que muestra  Microsoft:

 'user defined type required by Shell_NotifyIcon API call
Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uId As Long
    uFlags As Long
    uCallBackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
 
'constants required by Shell_NotifyIcon API call:
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201     'Button down
Public Const WM_LBUTTONUP = &H202       'Button up
Public Const WM_LBUTTONDBLCLK = &H203   'Double-click
Public Const WM_RBUTTONDOWN = &H204     'Button down
Public Const WM_RBUTTONUP = &H205       'Button up
Public Const WM_RBUTTONDBLCLK = &H206   'Double-click
 
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
Public nid As NOTIFYICONDATA
 

Private Sub Form_Load()
       'the form must be fully visible before calling Shell_NotifyIcon
Me.Show
Me.Refresh
With nid
    .cbSize = Len(nid)
    .hwnd = Me.hwnd
    .uId = vbNull
    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    .uCallBackMessage = WM_MOUSEMOVE
    .hIcon = Me.Icon
    .szTip = "Your ToolTip" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'this procedure receives the callbacks from the System Tray icon.
Dim Result As Long
Dim msg As Long
'the value of X will vary depending upon the scalemode setting
If Me.ScaleMode = vbPixels Then
    msg = X
Else
    msg = X / Screen.TwipsPerPixelX
End If
 
Select Case msg
    Case WM_LBUTTONUP        '514 restore form window
         Me.WindowState = vbNormal
         Result = SetForegroundWindow(Me.hwnd)
         Me.Show
    Case WM_LBUTTONDBLCLK    '515 restore form window
         Me.WindowState = vbNormal
         Result = SetForegroundWindow(Me.hwnd)
         Me.Show
    Case WM_RBUTTONUP        '517 display popup menu
         Result = SetForegroundWindow(Me.hwnd)
         Me.PopupMenu Me.mPopupSys
End Select
 
End Sub
 
Private Sub Form_Resize()
'this is necessary to assure that the minimized window is hidden
If Me.WindowState = vbMinimized Then Me.Hide
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'this removes the icon from the system tray
Shell_NotifyIcon NIM_DELETE, nid
End Sub
 
Private Sub mPopExit_Click()
'called when user clicks the popup menu Exit command
Unload Me
End Sub
 
Private Sub mPopRestore_Click()
'called when the user clicks the popup menu Restore command
Dim Result As Long
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Sub
 

hay un programa que se llama Api Guide que tiene muchos ejemplo de Api de Windows, es una herramienta muy util para Visual Basic...

con un serial valido. hace mucho no utilizo XP ya, buscate en taringa o en google en si, alguno que no esta en l lista negra de Microsoft tiene que haber...

mejor dicho, no es para nada recomendable usar el empaquetador que viene con Visual Basic 6.0

tendria que bastar con solo la dll esa (shdocvw.dll).

al crear un instalador de un proyecto realizado con vb6, lo apropiado es incorporar los activex que utilizas en dicho proyecto, si no estas 100% seguro de cuales son, solo tenes que abrir el archivo.vbp, y mirar Referenc y Object, osea el archivo.vbp tiene la extructura de un archivo ini, por ejemplo:
Proyecto.vbp

Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
Startup="Form1"
Command32=""
Name="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
; Resto del archivo de proyecto.vbp que no viene al caso poner aca
 

la ubicacion exacta de cada archivo de Referenc u Object las podes encontrar en el registro de Windows en la siguiente rama:
"HKEY_CLASSES_ROOT\TypeLib\" mas la clave {xxxx-xxxxx-xxxx} y bajando un \ por cada # y finalizando con Win32

por ejemplo:

bue en resumen aca dejo un programita que hice yo hace muchisimos años para rejuntar las dependencias de vb6.
el programa en si es un desastre pero hasta donde me acuerdo funcionaba casi bien.
Descargar: VB6RunTime.exe

NSIS es un muy buen generador de instaladores

PD: si usas alguna dll standar(no activex) no va a estar incluida en las referencias del proyecto pero esa tambien tiene que ser incluida en el instalador.

cual es el fin del post, osea es un aporte, consulta, o que?



no es necesario ni obligatorio usar Option Explicit