Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End Sub Private Sub Form_Unload(Cancel As Integer) End Sub