Public ReadOnly Property CurrentPoints() As Integer
        Get
            Return hfPoints.Value
        End Get
    End Property
 
    Public ReadOnly Property CurrentWrongQ() As Object
        Get
            Return hfWrongQ.Value
        End Get
    End Property

    Protected Sub cmdForward_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles cmdForward.Click
        Dim iPoints As Integer
        Dim strQues As String
 
        If PreviousPage.CurrentPoints = Nothing Then
            iPoints = 0
        Else
            iPoints = PreviousPage.CurrentPoints
        End If
 
        If PreviousPage.CurrentWrongQ = Nothing Then
            strQues = ""
        Else
            strQues = PreviousPage.CurrentWrongQ
        End If
 
        If Q18_2.Checked = True Then
            iPoints = iPoints + 1
        Else
            strQues = strQues & "Frage 18"
        End If
 
        hfPoints.Value = iPoints
        hfWrongQ.Value = strQues
 
    End Sub