VBSlip 1_2_2015-16

=================================Slip 1_2=================================

Create the following application in VB. The form should contain the following menu

            Draw                           Modify             Exit

            Circle                           Shrink

                                                 Expand

                                                 Erase

========================================================================

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

                If Button AndvbRightButton Then

                                PopupMenumnuModify

                End If

End Sub

Private Sub mnuCircle_Click()

                Shape1.Visible = True

End Sub

Private Sub mnuErase_Click()

                Shape1.Visible = False

                Shape2.Visible = False

               

End Sub

Private Sub mnuExpand_Click()

                Shape2.Visible = False

                Shape1.Visible = True

               

End Sub

Private Sub mnuShrink_Click()

                Shape2.Visible = True

                Shape1.Visible = False

End Sub