Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Application.Get("Zufall") Is Nothing Then
            Dim bla As New Random
            Application.Add("Zufall", bla)
        End If
...
 
End Sub