Asp Control ASP.Net

<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Not IsPostBack Then
        Panel1.Visible = True
        Panel2.Visible = False
        lblTitle.Text = "Quiz Page"
    End If
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Dim TotalCorrect as Integer
    Panel1.Visible = False
    Panel2.Visible = True
    lblTitle.Text = "Results Page"
    If DDLAnswer1.SelectedItem.Text = "Second" Then
        TotalCorrect = TotalCorrect + 1
    End If
    If DDLAnswer2.SelectedItem.Text = "False" Then
        TotalCorrect = TotalCorrect + 1
    End If
    If DDLAnswer3.SelectedItem.Text = "False" Then
        TotalCorrect = TotalCorrect + 1
    End If
    lblResult.Text = "You scored " & TotalCorrect _
        & " out 3 correct."
End Sub



Quiz Sample Page




    id="lblTitle" 
    runat="server"
/>
    id="Panel1" 
    runat="server"
>
    id="lblQuestion1"
    runat="server"
    Text="Question 1"
/>


    id="DDLAnswer1" 
    runat=server>
    Hour
    Minute
    Second




    id="lblQuestion2"
    runat="server"
    Font-Bold="True"
    Text="Question 2."
/>


    id="DDLAnswer2" 
    runat=server>
    True
    False




    id="lblQuestion3"
    runat="server"
    Font-Bold="True"
    Text="Question 3"
/>


    id="DDLAnswer3" 
    runat=server>
    True
    False




    id="butOK"
    text="OK"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>

    id="Panel2" 
    runat="server"
>
    id="lblResult"
    runat="server"
    Font-Bold="True"
/>