Page 36 - Programming VB.NET
P. 36
32 Chapter 2: Graphical User Interface
Private Sub mnuexit_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles mnuexit.Click
Dim intResult As Integer
intResult = MessageBox.Show("Are you
sure?", "EXIT",
MessageBoxButtons.YesNo,
MessageBoxIcon.Information)
If intResult =
Windows.Forms.DialogResult.Yes Then
End
ElseIf intResult =
Windows.Forms.DialogResult.No Then
Me.Show()
End If