Systray

[zusende]

Este es el codigo q uso.
He probado a cambiar el systray.ocx por otro (siguendo als indicaciones del enlace q me dejaisteis) pero me sigue pasando.
muxas garcias por adelantado

Private Sub Form_Unload(Cancel As Integer)
'cuando descargamos el form removemos el Icono del systray
IconoEscritorio.RemoverSystray
End
End Sub

Private Sub IconoEscritorio_DblClick(Button As Integer)
Me.WindowState = vbNormal
Me.IconoEscritorio.RemoverSystray
Me.Show
End Sub

Private Sub Form_Resize()

'Sólo cuando esté minimizado el formulario
Call GestionarPantalla.MinimizarPantallaDemonio

If Me.WindowState = vbNormal Then
'Si se cambia la altura
If Me.Height <> ih Then
Me.Height = ih
End If
'Si se cambia el ancho
If Me.Width <> iw Then
Me.Width = iw
End If
End If

Me.WindowState = 0

End Sub

Sub MinimizarPantallaDemonio()
'DEMONIO.WindowState = 1
If DEMONIO.WindowState = vbMinimized Then
DEMONIO.IconoEscritorio.PonerSystray
DEMONIO.Visible = False
Else
DEMONIO.Visible = True
DEMONIO.IconoEscritorio.RemoverSystray
End If
End Sub


Muxas gracias por ayudarme