Mendeteksi Cara Penutupan Form

Nilai yang dideteksi adalah nilai variabel 'UnloadMode' yang terdapat di event 'Form_QueryUnload'. Berikut ini nilai-nilai nya :

• vbFormControlMenu atau 0, nilai ketika Form ditutup melalui tombol close-nya (tombol x merah).
• vbFormCode atau 1, nilai ketika Form ditutup melalui kode VB. Contoh :
  Unload Form1
• vbAppWindows atau 2, nilai ketika Form ditutup dikarenakan komputer di-shutdown.
• vbAppTaskManager atau 3, nilai ketika Form ditutup melalui TaskManager.
• vbFormMDIForm atau 4, nilai ketika Form (sbg Form Child) ditutup karena Form MDI-nya ditutup.
• vbFormOwner atau 5, nilai ketika Form ditutup karena Form Owner-nya ditutup. Misalnya ada dua Form (Form1 dan Form2). Kemudian Form2 di-load  melalui Form1 dengan kode :
  Form2.Show , Me
  sehingga ketika Form1 ditutup (Form2 belum ditutup), maka nilai ini dideteksi ketika Form2 ditutup.

Contoh, ketikkan kode berikut di bagian 'Form_QueryUnload' dari Form.

If UnloadMode = vbAppTaskManager Then
MsgBox "Form ditutup melalui TaskManager !"
End If