Penggunaan msgbox YesNo pada VB6

Bila kita develop program adakalanya user diharuskan untuk memilih, untuk hal tersebut kita bisa memberikan pilihan pada user. misalnya data untuk simpanan wajib pada program koperasi.

Contoh : Simpanan wajib untuk Koperasi karyawan harus di Update setiap awal bulan, sehingga setiap awal bulan gaji karyawan dipotong untuk simpanan wajib koperasi. Dari contoh ini, kita bisa memakai fungsi MsgBox.

Langkahnya adalah :

1. Buka VB6. Pada New File pilih StandardExe lalu klik OK
2. Double Clik commandButton pada toolBox yang berada disebelah kiri, sehingga pada form1 akan muncul Command1.
3. Double Click Command1 yang ada di Form1 hingga muncul code :

Private Sub Command1_Click()
    'copykan disini
End Sub

lalu Copykan code dibawah di antara Private dan end sub

'--- code
Dim Msg, Style, Title, Response
Msg = "Tambahkan Simpanan Wajib bulan ini?"
Style = vbYesNo + vbDefaultButton2
Title = " Simpanan Wajib "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then 
   'letakan Kode disini bila di Update . . .
   MsgBox "Simpanan Wajib telah ditambahkan"
Else  
   'letakan Kode disini bila tidak jadi . . .
   MsgBox "Dibatalkan"
End If
'--- end code

setelah selesai, running dengan tekan tombol F5, lalu tekan tombol command1, mesagebox langsung keluar