Cara Membuat Exit Button Di Vb 2010
Langkah :
1. Buat sebuah Form
2. Tambahkan 1 buah "Button", maka akan terlihat seperti gambar berikut :
3. Klik double pada "Button1" dan paste kan kode berikut :
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Dim
response As MsgBoxResult
response = MsgBox("Anda yakin Ingin keluar??", MsgBoxStyle.Question + MsgBoxStyle.YesNo,
"Confirm")
If
response = MsgBoxResult.Yes Then
Me.Dispose()
ElseIf
response = MsgBoxResult.No Then
Exit Sub
End If
End Sub
