Tombol Keluar di VB 6.0

Akan sangat baik adanya jika tombol keluar pada sebuah aplikasi tidak langsung menutup form saat di klik. seharusnya di minta kepastian lagi apakah ingin keluar atau tidak. takutnya ada berkas yang belum tersimpan dan sebagainya, sehingga jika salah tekan tombol keluar tidak fatal.

contoh rancangan tombol keluar :

 

 codingnya cuma segini :

Private Sub cmdKeluar_Click()
    If (MsgBox("Yakin Keluar?", vbYesNo, "Keluar") = vbYes) Then
        Unload Me
    End If
End Sub

mudah kan? sangat simple dan sangat membosankan.. :)