Protected Sub Page_PreInit(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles Me.PreInit
Select Case Request.QueryString("theme")
Case "Blue"
<b>Page.Theme = "BlueTheme"</b>
Case "Theme2"
<b>Page.Theme = "PinkTheme"</b>
End Select
End Sub