Tutorial Membuat MsgBox Pertanyaan Di VB 6.0 dan VB.NET

assalamuaikum warrohmstullahi wabarakatu ..
salam sobat IT semua kali ini saya share tentang
"Bagaimana cara Membuat MsgBox Pertanyaan Di VB 6.0 dan VB.NET"
yaitu menambahkan perintah pada result klik msgbox , kali ini saya akan menambahkan perintah "End" pada result ok vbmsgbox nya

Nah seperti gambar diatas ,, ketika kita mengklik Ok maka form akan menutup programnya karena saya sisipkan perintah untuk keluar di msgbox resultnya ,, kita mulai di VB 6.0 dulu yuk gan cekidot

1. Siapkan satu buah form dan satu buah command button

setelah itu masukan coding dibawah ini

Spoiler for script

VB Code:

Private Sub Command1_Click()
Dim keluars As VbMsgBoxResult
keluars = MsgBox("Yakin mau keluar ?", vbQuestion + vbOKCancel, "Keluar?")
If keluars = vbOK Then
End
End If
End Sub

   perhatikan gambar diatas  , kemudian coba run project nya

VB 6.0 Selesai ... selanjutnya kita coba di VB.Net

1. Langkah pertama sama kita siapkan satu buah form dan 1 buah button

Masukan coding diwabah ini kedalam project code nya

Spoiler for script

VB Code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim keluar As MsgBoxResult
keluar = MsgBox("Yakin mau keluar ?", vbQuestion + vbOKCancel, "Keluar?")
If keluar = MsgBoxResult.Ok Then
Close()
End If

End Sub

perhatikan gambarnya coba ,,

Coba jalankan programnya :

Yapp sudah selsesai dua duanya ,, :) sekian tutorial dari saya :D sekian gan semoga bermanfaat :)