Private EnabledClose As Boolean Private Sub Form_Unload(Cancel As Integer) If Not EnabledClose Then Cancel = -1 End If End Sub 'Suponiendo que se cierra con un Botón Private Sub Command1_Click() EnabledClose = True Unload Me End Sub
Esto no impide que se haga Unload Me controlado por un boton o lo que sea.
Título: Re:Como Impedir que se cierre un Form
Publicado por: _katze_ en Julio 26, 2010, 12:10:55 PM