Formumuza 1 button üç textbox üç label ekliyoruz formumuzun genel aşağıda ki gibi olacaktır.
Buton 1 olayına aşağıdaki kodu yazıyoruz;
[code language=”VBNet”]Dim a as Integer
a=msgbox (“merhaba,msgboxstyle ,Informatıon + msgboxstyle.default button1,”deneme”)
If MsgBox("Devam etmek istiyor musunuz?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Soru") = _
MsgBoxResult.Yes Then
MsgBox("Devam edebilirsiniz")
Else
MsgBox("Program kapatılıyor")
Else
Msgbox (“vazgez tuşuna bastınız”)
End If[/code]
Programı çalıştırdığınız zaman aşagıdaki pencere karşınıza gelecektir.
Evet, butonuna basarsak aşağıdaki mesaj iletisi ile karşılaşırız.
Hayır butonuna basarsak aşağıdaki mesaj iletisi ile karşılaşırız.
