Hola Anderson.
Esto funciona sin OCX.

'Declaraciones (Declarations)

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


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 NOTIFYICONDATA) As Boolean

'Código (Code)

Dim t As NOTIFYICONDATA

Private Sub Form_Load()

    t.cbSize = Len(t)
    t.hwnd = Me.hwnd
    t.uId = 1&
    t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    t.ucallbackMessage = WM_MOUSEMOVE
    t.hIcon = Me.Icon
    t.szTip = "Ejemplo de barra de tareas..." & Chr$(0) ' O vbNullChar
    Shell_NotifyIcon NIM_ADD, t
    Me.Hide
    App.TaskVisible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim lp%
  lp = X / Screen.TwipsPerPixelX 'Parte del mensage se encuentra
codificado en x
    Select Case lp
      Case WM_LBUTTONDBLCLK 'Botón izquierdo
        Me.Visible = True 'Mostramos el form
      Case WM_RBUTTONDOWN
        Call SetForegroundWindow(Me.hwnd) 'Si no hacemos esto, al pulsar
fuera del menú,
           'no se ocultará.
        PopupMenu mMenu 'Mostramos el menú flotante
    End Select

End Sub

Hasta otra.
Manuel
____________________________________
Manuel Cano & María Alvira
manu@tcp.ip.lu
manu@slipper.ip.lu
--------------------------------------------
Spanish people from Luxembourg (Europe)



----
De: Anderson Machado <anderson@alohanet.com.br>
Para: vb-esp@ccc.uba.ar
Fecha: viernes 6 de junio de 1997 14:19
Asunto: (VB-ESP) Ocx para colocar o programa no task bar do windows 95




Hola a Todos,

Espero que seja possivel que as minhas mensagens em (PORTUGUES) sejam
lidas
e entendidas por vc's. Por estou achando está lista uma ótima oportunidade
de troca de idéias entre os usuários do VISUAL BASIC.

Espero que algum de vc's saibam de alguma VBX ou OCX que faça que o ICONE
do
progama fique no TASK BAR do WINDOWS 95 !!!!!

Exemplo : O CLOCK do windows 95.

Espero estar sendo claro, embora este E-MAIL esteja todo em PORTUGUES
!!!!!

---------------------------------------------------------------------
Anderson de Oliveira Machado (anderson@alohanet.com.br)

Paxina Web : http://www.alohanet.com.br
Aloha Systems Informática - (55)0246-453106
Brasil - Cabo Frio - RJ
---------------------------------------------------------------------

Mensaje enviado por "JM Hernandez" <JM_Hernandez@iname.com>

Jorge,
          ahí te va una clase que me hice gracias a la ayuda de José Rubí y
que me esta trabajando. Cualquier sugerencia es bienvenida. Disculpa que no
este mas comentada.

Regards:
                J.M.
                JM_Hernandez@iName.com
----- Original Message -----
From: george <george@reduc.cmw.edu.cu>
To: <vb-esp@ccc.uba.ar>
Sent: Tuesday, October 26, 1999 5:30 PM
Subject: vb-esp : Colocar un icono en el Systray


>
>
> No se si me hago entender con lo de systray, en donde esta el reloj, el
> iconio de la soundblaster, etc.
>
> necesito un metodo para colocar un icono en este lugar
> por favor quien lo tenga que lo mande.
> Muchas gracias
>
>

 icon.cls