Cara Membuat Exit Button Di Vb 2010

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

4. Langkah selanjutnya tinggal coba (klik F5)