كيف يتم التعامل مع علامة الصح في قوائم MenuStripItem

Private Sub SummaryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SummaryToolStripMenuItem.Click

' Calculate the average and display the totals

SummaryToolStripMenuItem.Checked = True

NumberofBooksInteger = Integer.Parse(NumberofBooksTextBox.Text)

Dim AverageDecimal As Decimal

Dim messageString As String

NumberofBooksInteger += NumberofBooksInteger

ReadersNameCountInteger += 1

If NumberofBooksTextBox.Text <= 0 Then

messageString = ("Sorry...Number of Books must be greater than 0")

MessageBox.Show(messageString, "Incorrect!!!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

ElseIf NumberofBooksTextBox.Text >= 1 And NumberofBooksTextBox.Text <= 3 Then

AverageDecimal = NumberofBooksInteger / ReadersNameCountInteger

messageString = ("Average is:" & AverageDecimal)

MessageBox.Show(messageString, "Summary", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

ElseIf NumberofBooksTextBox.Text >= 4 And NumberofBooksTextBox.Text <= 6 Then

AverageDecimal = NumberofBooksInteger / ReadersNameCountInteger

messageString = (AverageDecimal)

MessageBox.Show(messageString, "Summary", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

ElseIf NumberofBooksTextBox.Text > 6 Then

AverageDecimal = NumberofBooksInteger / ReadersNameCountInteger

messageString = (AverageDecimal)

MessageBox.Show(messageString, "Summary", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

End If

End Sub