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


Private Sub Form_Load()

Shape1.Visible = False

End Sub

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

If Button = vbRightButton Then

PopupMenu mnuMod

End If

End Sub

Private Sub mnuCircle_Click()

End Sub

Private Sub mnuCir_Click()

Shape1.Visible = True

End Sub

Private Sub mnuErs_Click()

Shape1.Visible = False

End Sub

Private Sub mnuExit_Click()

End

End Sub

Private Sub mnuExp_Click()

Shape1.Width = Shape1.Width + 50

Shape1.Height = Shape1.Height + 50

End Sub

Private Sub mnuSh_Click()

Shape1.Width = Shape1.Width – 50

Shape1.Height = Shape1.Height – 50

End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s