Creo que en las FAQ's no está el código. Así que lo pongo aquí:
Código:
Private TrueClose As Boolean
Private Sub Form_Unload (Cancel As Boolean)
If Not TrueClose Then Cancel = -1
End Sub
Private Sub cmdClose_Click()
TrueClose = True
Unload Me
End Sub