help me

[sevin]

http://tarcian.com/attachments/0906231923e2dc47f0e154b36a.png
Who can help me?
my code many error
i want to use random number and random operator to calculate by this program

Public Class frmCalculate
Dim intNo1 As Integer
Dim intNo2 As Integer
Dim myRnd As New Random
Dim answer As Integer

Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
Try
Dim no As Integer
Dim myRnd2 As New Random

no = myRnd2.Next(3)
Select Case no
Case 1

If btnNew.Text = "New" Then

lblNo1.Text = intNo1
lblNo2.Text = intNo2
lblOperator.Text = "+"
btnNew.Text = "check"
txtanswer.Text = ""
txtanswer.Focus()
Else
If Integer.Parse(txtanswer.Text) = (intNo1 + intNo2) Then
MessageBox.Show("Correct !")
Else
answer = intNo1 + intNo2
lblcorrectanswer.Text = answer.ToString
End If

btnNew.Text = "New"


End If
Case 2

If btnNew.Text = "New" Then
lblNo1.Text = intNo1
lblNo2.Text = intNo2
lblOperator.Text = "-"
btnNew.Text = "check"
txtanswer.Text = ""
txtanswer.Focus()
Else
If Integer.Parse(txtanswer.Text) = (intNo1 - intNo2) Then
MessageBox.Show("Correct !")
Else
answer = intNo1 - intNo2
lblcorrectanswer.Text = answer.ToString
End If

btnNew.Text = "New"

End If

Case 3
If btnNew.Text = "New" Then

lblNo1.Text = intNo1
lblNo2.Text = intNo2
lblOperator.Text = "x"
btnNew.Text = "check"
txtanswer.Text = ""
txtanswer.Focus()
Else
If Integer.Parse(txtanswer.Text) = (intNo1 * intNo2) Then
MessageBox.Show("Correct !")
Else
answer = intNo1 * intNo2
lblcorrectanswer.Text = answer.ToString
End If

btnNew.Text = "New"

End If
End Select

Catch ex1 As FormatException
MessageBox.Show("Error: invalid input!")
Catch ex2 As OverflowException
MessageBox.Show("Error: OverflowAction!")
End Try

End Sub

Private Sub radLevel1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radLevel1.CheckedChanged, radLevel2.CheckedChanged, radLevel3.CheckedChanged
Dim myRadioButton As RadioButton

myRadioButton = CType(sender, RadioButton)

Select Case myRadioButton.Name
Case "radLevel1"
intNo1 = myRnd.Next(10) 'or Mod 100
intNo2 = myRnd.Next(10)
Case "radLevel2"
intNo1 = myRnd.Next(100) 'or Mod 100
intNo2 = myRnd.Next(100)
Case "radLevel3"
intNo1 = myRnd.Next(1000) 'or Mod 100
intNo2 = myRnd.Next(1000)
End Select

End Sub
End Class