1Public Enum webpages
 2        yet_test1
 3        yet_test2
 4        yet_m_test2
 5        yet_m_test1
 6    End Enum
 7
 8    <ToolboxData("<{0}:Forum runat=""server""></{0}:Forum>")> _
 9    Public Class class1
10        Inherits System.Web.UI.UserControl
11
12        Private Sub Forum_load(ByVal sender As Object, ByVal e As EventArgs)
13            Dim webpages1 As webpages
14            Dim m_baseDir As String = config.ConfigSection.Item("root")
15            Try
16                webpages1 = CType([Enum].Parse(GetType(webpages), MyBase.Request.QueryString.Item("g"), True), webpages)
17            Catch ex As Exception
18                webpages1 = webpages.yet_m_test1
19            End Try
20            Dim src As String = String.Format("{0}/{1}.ascx", m_baseDir, webpages1)
21
22            'Try
23            '    Dim webpage As ForumPage = CType(MyBase.LoadControl(src), ForumPage)
24            '    webpage.ForumControl = Me
25            '    Me.Controls.Add(webpage)
26            'Catch exception2 As System.IO.FileNotFoundException
27            '    Throw New ApplicationException(("Failed to load " & m_baseDir & "."))
28            'End Try
29
30
31
32        End Sub