有春夏秋冬的诗句:请问如何解决这个程序问题?

Dim strinfor As String
Private Sub frmselect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strinfor = "学历:本科生"
End Sub

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click

strinfor = Trim(Txtname.Text) + " " + strinfor + vbCrLf + "所选的课程为:" + vbCrLf
If Chkcourse1.Checked Then
strinfor = strinfor + Chkcourse1.Text + vbCrLf
End If
If Chkcourse2.Checked Then
strinfor = strinfor + Chkcourse2.Text + vbCrLf

End If
If Chkcourse3.Checked Then
strinfor = strinfor + Chkcourse3.Text + vbCrLf
End If
If Chkcourse4.Checked Then
strinfor = strinfor + Chkcourse4.Text + vbCrLf
End If
MsgBox(strinfor)
End Sub

Private Sub Radlevel1andRadleve2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radlevel1.CheckedChanged, Radleve2.CheckedChanged
Select Case sender.tabindex
Case 0
strinfor = "学历:本科生"
Chkcourse1.Text = "军事理论"
Chkcourse2.Text = "大学语文"
Chkcourse3.Text = "法律基础"
Chkcourse4.Text = "职业心理"
Case 1
strinfor = "学历: 研究生"
Chkcourse1.Text = "计算技术"
Chkcourse2.Text = "国际贸易"
Chkcourse3.Text = "国际经融"
Chkcourse4.Text = "职业教育"

End Select
End Sub

End Class
错误提示说在这个程序中未找到 sub main