Private Sub MDIForm_Unload(Cancel As Integer)
Dim Jawab As Integer
Jawab = MsgBox("Anda yakin akan keluar dari program ini ?", _
vbQuestion + vbYesNo, "Konfirmasi Keluar")
If Jawab = vbNo Then Cancel = -1
End Sub
Saturday, July 19, 2008
Unload MDI
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment