VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi

Di bawah ini merupakan fungsi VB6 untuk melakukan konfirmasi sebelum keluar dari aplikasi. Mengapa dibuat menjadi fungsi? agar memiliki sifat mudah digunakan kembali, karena hampir tiap software yang dibuat, memerlukan fungsi di bawah ini:

Option Explicit

Public Function ConfirmExit(Optional Title As String = "Konfirmasi") As Boolean
    If MsgBox("Are you sure want to exit?", vbQuestion + vbYesNo, Title) = vbYes Then
        ConfirmExit = ConfirmExit
    Else
        ConfirmExit = True
    End If
End Function

Contoh penggunaan fungsi di atas:

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

Penggunaan fungsi di atas dapat kita tempatkan pada event Unload ataupun QueryUnload.