Private Sub cmdKeluar_Click()
If MsgBox("Apakah Anda ingin keluar ???", vbExclamation + vbYesNo, "Konfirmasi") = vbYes Then End
End Sub
dan lihat hasilnya
dan bagaimana jika ingin hasilnya seperti ini :
gampang tinggal rubah kodenya menjadi seperti ini
123
Private Sub cmdKeluar_Click()
If MsgBox("Apakah Anda ingin keluar ???", vbExclamation + vbYesNo + vbDefaultButton2, "Konfirmasi") = vbYes Then End
End Sub
