VS 2010 License Exam Help

im getting a error in my code saying Result is not declared or its private

Dim strGrades() As String = {"B", "D", "A", "A", "C", "A", "B", "A", "C", "D", "B", "C", "D", "A", "D", "C", "C", "B", "D", "A"}
Dim dtlResult(19) As Boolean
Dim intCorrect As Integer = 0
Dim validInput As Integer = 0

this is were im getting the error
Result.lstResult.Items.Clear()


Dim intCount As Integer = 0
Dim strInput(19) As String

strInput(0) = txt1.Text
strInput(1) = txt2.Text
strInput(2) = txt3.Text
strInput(3) = txt4.Text
strInput(4) = txt5.Text
strInput(5) = txt6.Text
strInput(6) = txt7.Text
strInput(7) = txt8.Text
strInput(8) = txt9.Text
strInput(9) = txt10.Text
strInput(10) = txt11.Text
strInput(11) = txt12.Text
strInput(12) = txt13.Text
strInput(13) = txt14.Text
strInput(14) = txt15.Text
strInput(15) = txt16.Text
strInput(16) = txt17.Text
strInput(17) = txt18.Text
strInput(18) = txt19.Text
strInput(19) = txt20.Text
Try

Catch ex As Exception

End Try
For intCount = 0 To (strGrades.Length - 1)

Next
If strInput(intCount).ToUpper() = "A" Or strInput(intCount).ToUpper() = "B" Or strInput(intCount).ToUpper() = "C" Or strInput(intCount).ToUpper() = "D" Then

End If
If strGrades(intCount) = strInput(intCount).ToUpper() Then
intCorrect += 1
dtlResult(intCount) = True
End If
validInput = validInput + 1
End If
Next intCount
Catch ex As Exception
End Try

If validInput = 20 Then
Dim frmResult As New Result
frmResult.lstResult.Items.Clear()
frmResult.lstResult.Items.Add("-----------------------------------------------")
frmResult.lstResult.Items.Add("Driver's License Exam Results")
frmResult.lstResult.Items.Add("-----------------------------------------------")
For intCount = 0 To (19)
If (dtlResult(intCount) = True) Then
frmResult.lstResult.Items.Add(intCount + 1 & " Correct" & " Answer: " & strGrades(intCount))
Else
frmResult.lstResult.Items.Add(intCount + 1 & " Wrong" & " Answer: " & strGrades(intCount))
End If
Next intCount
frmResult.lstResult.Items.Add("-----------------------------------------------")
frmResult.lstResult.Items.Add(" Total :" & intCorrect & " /20")
If (intCorrect >= 15) Then
frmResult.lstResult.Items.Add("Your Result :" & " PASS")
Else
frmResult.lstResult.Items.Add("Your Result :" & " FAIL")
End If
frmResult.ShowDialog()
Else
MessageBox.Show("Input Should be A, B, C or D", "Input Validation")
End If