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
   31   32   33   34   35   36   37   38   39   40   41