Wednesday, May 10, 2017


Exit button and message box

 Private Sub btExit_Click(sender As Object, e As EventArgs) Handles pbExit.Click
        If MsgBox("Do you want to quit?", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Question, "Close application") = Windows.Forms.DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub









No comments:

Post a Comment