<%@ Page Language="vb" %>
Sub Page_Load()
Try
Throw New HttpException("Threw an error from Page_Load")
Catch HttpEx As HttpException
Message.Text = "ERROR:"
Message.Text &= "Message: " & HttpEx.Message & ""
End Try
End Sub