Hola a todos,

Tengo un problema y no se como puedo solucionarlo.

El problemas es el siguiente, tengo una aplicacion realizada en vb 6.0 la cual se inicia con windows y queda minimizada junto al reloj o bien al minimizarla nosotros.
A veces este icono desaparece, el programa sigue ejecutandose con normalidad pero es imposible acceder a la aplicacion.
He probado desde el administrador de tareas "traer al frente" pero no hace nada.
No se xq puede pasar ni por que desaparece el icono ya q no pasa siempre.

Espero que alguien puede ayudarme. Gracias



Hola,

Gracias por tu ayuda, ya he revisado los post q me dejastes y he usado otro systray.ocx diferente que venia en uno de los ejemplos.
Pensaba que ya lo habia soluicona pero esta mañana me ha vuelto a pasar.
Te escribo las lineas de codigo donde uso el systray (en mi aplicacion se llama IconoEscritorio).


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 tu ayuda