como hago para que en vez de que se cierre la ventana se minimise?

[mati89]

mi pregunta es como puedo hacer un codigo que que cuando apretes la cruz de la parte superior derecha de la ventana se produzca esto

from.visible = false

osea que no se cierre la aplicacion pero que paresca que esta cerrada

[MaN!FesT]

Hola mati89 aqui está tu codigo:

Agregar un command para cerrar el form, (obvio si quieres que no se cierre de plano quitalo o pon otro control):

Código:

Private EnabledClose As Boolean
Private Sub Form_Unload(Cancel As Integer)
If Not EnabledClose Then
Cancel = -1
End If
End Sub
Private Sub Command1_Click()
EnabledClose = True
Unload Me
End Sub

[MaN!FesT]

Perdón ando un poco despistado, el codigo anterior lo evita no lo miniminiza:

Código:

Private EnabledClose As Boolean
Private Sub Form_Unload(Cancel As Integer)
If Not EnabledClose Then
    Cancel = -1
Me.WindowState = 1
End If
End Sub
Private Sub Command1_Click()
EnabledClose = True
Unload Me
End Sub

[mati89]

este codigo minimisa la ventana yo queria que no sea visible tambien abajo en la barra de inicio como lo podria hacer?

espero no ser muy pesado

[Guan]

   En las propiedades del formulario, pon showintaskbar a false

Saludos

[MaN!FesT]

Bueno y lo del para que cuando pinchen la cruz se vuelva invisible sera lo mismo es cosa de usar la cabesita un pocito mas:
Codigo anterior:

Código:

Private EnabledClose As Boolean
Private Sub Form_Unload(Cancel As Integer)
If Not EnabledClose Then
    Cancel = -1
Me.WindowState = 1
End If
End Sub
Private Sub Command1_Click()
EnabledClose = True
Unload Me
End Sub

Es así

Código:

Private EnabledClose As Boolean
Private Sub Form_Unload(Cancel As Integer)
If Not EnabledClose Then
    Cancel = -1
Form1.visible = False
End If
End Sub

[mati89]

muxas gracias Manifest_06
me sirvio mucho para diseñar mi troyano

[MaN!FesT]

De nada cochinon jeje no es cierto.