NYlOn he probado tu código..
Estoy intentando que cuando se haga dobleclick en el icono se vuelva a mostrar el formulario..
No sé cómo lo tendrás tú, o si lo han probado los demás pero yo hago esto y no resulta:
Private Sub Form_Resize()
If Form1.WindowState = "1" Then
Form1.Hide
Iconito "Ejemplo..", Picture1
End If
End Sub
Con esto de arriba consigo que mi form1 se oculte y aparezca el icono. Hasta aquí bien..
Y luego para que cuando haga dobleclick en el icono, desaparezca el icono y aparezca mi form, hago esto otro:
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
MsgBox "Boton Izquierdo doble click."
Form1.Show
Form1.WindowState = 0
BorrarIconito
End If
End Sub
Todo lo demás del módulo lo he copiado bien.. El resultado es que el icono desaparece pero el formulario no aparece.. Se queda oculto.. Cómo has solucionado esto?? Gracias..