[VB6] Impedire la chiusura dei form

[axsw]

Ciao raga qualcuno di voi sà come Impedire la chiusura dei form dal bottone in alto "[X]" a sinistra?
Vi ringrazio anticipatamante.

[goku370]

Le soluzioni sono due:
1) Togli il pulsante X (controlBox= false)
2) utilizzi questo codice:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub

Dimmi se la soluzione di va bene... :sgrat:

[axsw]

Ti ringrazio Goku sei stato gentilissimo.

[axsw]

Ciao goku la soluzione va bene solo a metà
nel senso che se metto un command button che dovrebbe chiudere la form col codice che mi hai dato tu
'''''''''''''''''''''''''''''''''''''''''''''''''' '''
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
La form non viene scaricata, in parole povere io vorrei che l'utente finale chiuda la form solo da un apposito command button che inserisco io ma lo devo fare da codice, non posso usare la proprietà control box.
Ti ringrazio goku.

[junx]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
        Case 1
            Cancel = False
        Case Else
            Cancel = True
    End Select
End Sub

[junx]

poi se vuoi essere + conciso....

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = (UnloadMode <> 1)
End Sub

[axsw]

junx grazie, perfetto!