Visual Basic: Test and Grading

Public Class frmExam

  Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    End
  End Sub

  Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    txt1.Clear()
    txt2.Clear()
    txt3.Clear()
    txt4.Clear()
    txt5.Clear()
    txt6.Clear()
    txt7.Clear()
    txt8.Clear()
    txt9.Clear()
    txt10.Clear()
    txt11.Clear()
    txt12.Clear()
    txt13.Clear()
    txt14.Clear()
    txt15.Clear()
    txt16.Clear()
    txt17.Clear()
    txt18.Clear()
    txt19.Clear()
    txt20.Clear()

  End Sub


  Private Sub btnScore_Click(sender As Object, e As EventArgs) Handles btnScore.Click
    frmAnswers.Show()
  End Sub
End Class