Dim UnloadAllowed as Boolean
 
Private Sub Form_Load()
    UnloadAllowed = False
End sub
 
Private Sub Form_Unload(Cancel As Integer)
    If Not UnloadAllowed Then
        ' Unload abbrechen
        Cancel = 1
    End If
End Sub
 
Private Sub Command1_Click()
    UnloadAllowed = True
    Unload Me
End Sub

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)