I'm having difficulty with visual basic. The assign. directions is first, followed by my .vb code and errors I am receiving. Please review my code...

Outside back cover

1.40

Table 2 - Markup by Location

Step 1: Create the Project:

Create a Visual Basic Project using the project name "BuzzAdvertising".

Step 2 - Design the Form:

Design the form as shown in Figure 1. You will need three button controls, eight radio buttons, two group boxes, seven labels, and one picture box. Load the downloaded bee.jpg image into the picture box. Remove the control box because this program will run in a kiosk.

Step 3 - Create the Ad class

Add a Class file named Ad to the project. The Ad class should have the following properties: company, telephone, run date, size, location, and price. Create a method in the Ad class that calculates the final price of an ad.

Step 4 - Write code in the main form:

Set the size and location based on the radio button selections. Create a new Ad object, passing in the required data values to the constructor.  After the Ad object has been created, call the Ad object's calculate method to obtain the final price. Display the final price with appropriate formatting.

Step 7 - Finish up:

Be sure to add the code for the Clear and Exit buttons.

Step 8: Save and run

Save all files, then start the application. Figures 2 and 3 show sample runs of this program demonstrating the restrictions.

Here's my .vb:

Public Class Form1    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)        Handles MyBase.Load    Sub    Sub reserveButton_Click(ByVal sender System.Object, ByVal e System.EventArgs)        Handles reserveButton.Click        Dim ad Ad_to_project        halfPageButton.Checked =             outBackCoverButton.Enabled =                 quarterPageButton.Checked =             outBackCoverButton.Enabled =                 businessCardButton.Checked =             inFrontCoverButton.Enabled =             inBackCoverButton.Enabled =             outBackCoverButton.Enabled =                 companyTextBox.Text = String.Empty AndAlso telephoneTextBox.Text = String.Empty AndAlso dateTextBox.Text = String.Empty             MessageBox.Show(, , MessageBoxButtons.OK, MessageBoxIcon.Error)                fullPageButton.Checked =             ad.Size =                 halfPageButton.Checked =             ad.Size = *                 quarterPageButton.Checked =             ad.Size = *                 businessCardButton.Checked =             ad.Size =                 outBackCoverButton.Checked =             ad.Location =                 inBackCoverButton.Checked =             ad.Location =                 inFrontCoverButton.Checked =             ad.Location =                 interiorPageButton.Checked =             ad.Location =                 priceLabel.Text = ad.Price.ToString()    Sub    Sub exitButton_Click(ByVal sender System.Object, ByVal e System.EventArgs)        Handles exitButton.Click        Me.Close()    Sub    Sub reserveButton_Click(ByVal sender System.Object, ByVal e System.EventArgs)        Handles reserveButton.Click        Dim ad Ad_to_project        outBackCoverButton.Checked = AndAlso insidebackRadioButton.Checked = AndAlso insidefrontRadioButton.Checked = AndAlso interiorRadioButton.Checked =             MessageBox.Show(, , MessageBoxButtons.OK, MessageBoxIcon.Information)            Sub                companyTextBox.Text = String.Empty             AndAlso telephoneTextBox.Text = String.Empty            AndAlso dateTextBox.Text = String.Empty                 MessageBox.Show(, , MessageBoxButtons.OK, MessageBoxIcon.Information)            Sub                fullPageButton.Checked =             ad.Size =                 halfPageButton.Checked =             ad.Size = *                 quarterPageButton.Checked =             ad.Size = *                 businessCardButton.Checked =             ad.Size =                 outBackCoverButton.Checked =             ad.Location =         ElseIf inBackCoverButton.Checked =             ad.Location =         ElseIf inFrontCoverButton.Checked =             ad.Location =         ElseIf interiorPageButton.Checked =             ad.Location =                 priceLabel.Text = ad.Price.ToString() 

and here's the error list:

• Attachment 1
• Attachment 2
• Attachment 3