'TAKEN FROM LESSON 4 MAKING DECISIONS WITH IF STATEMENTS


'When they quit, you can ask them if they are sure.





Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click


If MessageBox.Show("Are you sure?", "System Message", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes 

Then
   Me.Close()
Else

   MessageBox.Show("Then make up your mind", "Last Chance", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If

End Sub