Partial Class BrowserHistory
    Inherits System.Web.UI.Page


    Protected Sub ScriptManager1_Navigate(ByVal sender As Object, ByVal e As System.Web.UI.HistoryEventArgs) _
            Handles ScriptManager1.Navigate

        If Not e.State("rbYesNoMaybe") Is Nothing Then
            If e.State("rbYesNoMaybe") = "Yes" Then
                rbYes.Checked = True
                rbNo.Checked = False
                rbMaybe.Checked = False
            ElseIf e.State("rbYesNoMaybe") = "No" = True Then
                rbYes.Checked = False
                rbNo.Checked = True
                rbMaybe.Checked = False
            ElseIf e.State("rbYesNoMaybe") = "Maybe" Then
                rbYes.Checked = False
                rbNo.Checked = False
                rbMaybe.Checked = True
            End If
        End If

        If Not e.State("ListBox1") Is Nothing Then
            ListBox1.SelectedValue = e.State("ListBox1")
        End If



    End Sub

    Protected Sub buttonChoices_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonChoices.Click
        Dim pageTitle As String
        If ScriptManager1.IsInAsyncPostBack = True Then
            Dim rbYesNoMaybe As String = ""
            If rbYes.Checked = True Then
                rbYesNoMaybe = "Yes"
            ElseIf rbNo.Checked = True Then
                rbYesNoMaybe = "No"
            ElseIf rbMaybe.Checked = True Then
                rbYesNoMaybe = "Maybe"
            End If

            Dim listBox1Choice As String = ListBox1.SelectedValue
            Dim title As String = Page.Title & " (" & rbYesNoMaybe & "/" & listBox1Choice & ")"
            ScriptManager1.AddHistoryPoint("rbYesNoMaybe", rbYesNoMaybe, title)
            ScriptManager1.AddHistoryPoint("ListBox1", listBox1Choice, title)
        End If
    End Sub
End Class