Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
MsgBox “Kullanici Control menüsünden Close’u seçti”
Case vbFormCode

MsgBox “Kod içinden Unload çagrilarak kapatildi”
Case vbAppWindows
MsgBox “Geçerli MS Windows oturumu kapandi”
Case vbAppTaskManager
MsgBox “MS Windows Task Manager formu programi kapatiyor”
Case vbFormMDIForm
MsgBox “MDI child window kapanirken ana ekranida kapatiyor”
End Select
End Sub