Problem with DNN Module

I have created a DNN Module, Everything looks fine in VWD, no errors. However when I try to load the page, I get the following error. My .vb is also included, the upload, download, & paypal code is actually in there 12 times, I removed some of them to make this post shorter.

Error: PGT is currently unavailable.
DotNetNuke.Services.Exceptions.ModuleLoadException: Object reference not set to an instance of an object. ---> System.NullReferenceException: Object reference not set to an instance of an object. at YourCompany.Modules.PGT.ViewPGT..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 152 at ASP.desktopmodules_pgt_viewpgt_ascx..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 912304 at __ASP.FastObjectFactory_app_web_6gkdbv9i.Create_ASP_desktopmodules_pgt_viewpgt_ascx() at System.Web.Compilation.BuildResultCompiledType.CreateInstance() at System.Web.UI.TemplateControl.LoadControl(IWebObjectFactory objectFactory, VirtualPath virtualPath, Type t, Object[] parameters) at System.Web.UI.TemplateControl.LoadControl(VirtualPath virtualPath) at System.Web.UI.TemplateControl.LoadControl(String virtualPath) at DotNetNuke.UI.Skins.Skin.InjectModule(Control objPane, ModuleInfo objModule, PortalSettings PortalSettings) --- End of inner exception stack trace ---

'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2006
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
' DEALINGS IN THE SOFTWARE.
'
Imports DotNetNuke
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.Page
Imports System.Collections.Generic
Imports System.Reflection
Imports DotNetNuke.Security.PortalSecurity
Imports DotNetNuke.Entities.Modules.ModuleController
Imports DotNetNuke.Entities.Modules.ModuleSettingsBase
Imports DotNetNuke.Entities.Modules.ModuleInfo

Partial Class DesktopModules_PGT_ViewPGT
    Inherits Entities.Modules.PortalModuleBase


End Class
Namespace YourCompany.Modules.PGT


    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' The ViewDynamicModule class displays the content
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Partial Class ViewPGT
        Inherits Entities.Modules.PortalModuleBase
        Implements Entities.Modules.IActionable

#Region "Private Members"

        Private strTemplate As String

#End Region

#Region "Event Handlers"

        ''' -----------------------------------------------------------------------------
        ''' <summary>
        ''' Page_Load runs when the control is loaded
        ''' </summary>
        ''' <remarks>
        ''' </remarks>
        ''' <history>
        ''' </history>
        ''' -----------------------------------------------------------------------------
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                If Not Page.IsPostBack Then
                    If CType(Settings("template"), String) <> "" Then
                        strTemplate = CType(Settings("template"), String)
                    Else
                        strTemplate = Localization.GetString("Template.Text", LocalResourceFile)
                    End If

                    Dim objPGTs As New PGTController
                    Dim colPGTs As List(Of PGTInfo)

                    ' get the content from the PGT table
                    colPGTs = objPGTs.GetPGTs(ModuleId)

                    If colPGTs.Count = 0 Then
                        If Localization.GetString("DefaultContent", LocalResourceFile) <> "" Then
                            ' add the content to the PGT table
                            Dim objPGT As PGTInfo = New PGTInfo
                            objPGT.ModuleId = ModuleId
                            objPGT.Content = Localization.GetString("DefaultContent", LocalResourceFile)
                            objPGT.CreatedByUser = Me.UserId
                            objPGTs.AddPGT(objPGT)
                            ' get the content from the PGT table
                            colPGTs = objPGTs.GetPGTs(ModuleId)
                        End If
                    End If

                    ' bind the content to the repeater
                    lstContent.DataSource = colPGTs
                    lstContent.DataBind()
                End If
            Catch exc As Exception        'Module failed to load
                ProcessModuleLoadException(Me, exc)
            End Try

        End Sub

        Protected Sub lstContent_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles lstContent.ItemDataBound
            Dim strContent As String = strTemplate
            Dim strValue As String

            ' add content to template
            Dim objProperties As ArrayList = Common.Utilities.CBO.GetPropertyInfo(GetType(PGTInfo))
            Dim intProperty As Integer
            Dim objPropertyInfo As PropertyInfo
            For intProperty = 0 To objProperties.Count - 1
                objPropertyInfo = CType(objProperties(intProperty), PropertyInfo)
                If strContent.IndexOf("[" & objPropertyInfo.Name.ToUpper & "]") <> -1 Then
                    strValue = Server.HtmlDecode(DataBinder.Eval(e.Item.DataItem, objPropertyInfo.Name).ToString())
                    strContent = strContent.Replace("[" & objPropertyInfo.Name.ToUpper & "]", strValue)
                End If
            Next intProperty

            ' assign the content
            Dim lblContent As Label = CType(e.Item.FindControl("lblContent"), Label)
            lblContent.Text = strContent
        End Sub

#End Region

#Region "Optional Interfaces"

        ''' -----------------------------------------------------------------------------
        ''' <summary>
        ''' Registers the module actions required for interfacing with the portal framework
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        ''' <history>
        ''' </history>
        ''' -----------------------------------------------------------------------------
        Public ReadOnly Property ModuleActions() As Entities.Modules.Actions.ModuleActionCollection Implements Entities.Modules.IActionable.ModuleActions
            Get
                Dim Actions As New Entities.Modules.Actions.ModuleActionCollection
                Actions.Add(GetNextActionID, Localization.GetString(Entities.Modules.Actions.ModuleActionType.AddContent, LocalResourceFile), Entities.Modules.Actions.ModuleActionType.AddContent, "", "", EditUrl(), False, Security.SecurityAccessLevel.Edit, True, False)
                Return Actions
            End Get
        End Property

#End Region
        Dim coach As String = school & " - Coach"
        Dim school As String = CType(Settings("school"), String).ToString
        Dim league As String = CType(Settings("league"), String).ToString
        Dim sport As String = CType(Settings("sport"), String).ToString
        Dim subPrice As String = CType(Settings("subPrice"), String).ToString
        Dim subTerm1 As String = CType(Settings("subTerm1"), String).ToString
        Dim subTerm2 As String = CType(Settings("subTerm2"), String).ToString
        Dim singlePrice As String = CType(Settings("singlePrice"), String).ToString
        Dim singleTerm1 As String = CType(Settings("singleTerm1"), String).ToString
        Dim singleTerm2 As String = CType(Settings("singleTerm2"), String).ToString

        Dim strPath1 As String = "~/uploads/" & school & "/1/"
        Dim FileName1 As String = Path.GetFileNameWithoutExtension(strPath1)
        Dim DLPath1 As String = strPath1 & FileName1

        Dim strPath2 As String = "~/uploads/" & school & "/2/"
        Dim FileName2 As String = Path.GetFileNameWithoutExtension(strPath2)
        Dim DLPath2 As String = strPath2 & FileName2

        Dim strPath3 As String = "~/uploads/" & school & "/3/"
        Dim FileName3 As String = Path.GetFileNameWithoutExtension(strPath3)
        Dim DLPath3 As String = strPath3 & FileName3

        Dim strPath4 As String = "~/uploads/" & school & "/4/"
        Dim FileName4 As String = Path.GetFileNameWithoutExtension(strPath4)
        Dim DLPath4 As String = strPath4 & FileName4

        Dim strPath5 As String = "~/uploads/" & school & "/5/"
        Dim FileName5 As String = Path.GetFileNameWithoutExtension(strPath5)
        Dim DLPath5 As String = strPath5 & FileName5

        Dim strPath6 As String = "~/uploads/" & school & "/6/"
        Dim FileName6 As String = Path.GetFileNameWithoutExtension(strPath6)
        Dim DLPath6 As String = strPath6 & FileName6

        Dim strPath7 As String = "~/uploads/" & school & "/7/"
        Dim FileName7 As String = Path.GetFileNameWithoutExtension(strPath7)
        Dim DLPath7 As String = strPath7 & FileName7

        Dim strPath8 As String = "~/uploads/" & school & "/8/"
        Dim FileName8 As String = Path.GetFileNameWithoutExtension(strPath8)
        Dim DLPath8 As String = strPath8 & FileName8

        Dim strPath9 As String = "~/uploads/" & school & "/9/"
        Dim FileName9 As String = Path.GetFileNameWithoutExtension(strPath1)
        Dim DLPath9 As String = strPath9 & FileName9

        Dim strPath10 As String = "~/uploads/" & school & "/10/"
        Dim FileName10 As String = Path.GetFileNameWithoutExtension(strPath10)
        Dim DLPath10 As String = strPath10 & FileName10

        Dim strPath11 As String = "~/uploads/" & school & "/11/"
        Dim FileName11 As String = Path.GetFileNameWithoutExtension(strPath11)
        Dim DLPath11 As String = strPath11 & FileName11

        Dim strPath12 As String = "~/uploads/" & school & "/12/"
        Dim FileName12 As String = Path.GetFileNameWithoutExtension(strPath12)
        Dim DLPath12 As String = strPath12 & FileName12
        Public Sub Page_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load
            '-------------------------------------------------------------------------------------------------------------------- Access
            '
            '--------------------------------------------------------------------------------------------------------------------

            If IsInRole(coach) Then
                FileUpload1.Visible = True
                Upload1.Visible = True
                ULLabel1.Visible = True
                FileUpload2.Visible = True
                Upload2.Visible = True
                ULLabel2.Visible = True
                FileUpload3.Visible = True
                Upload3.Visible = True
                ULLabel3.Visible = True
                FileUpload4.Visible = True
                Upload4.Visible = True
                ULLabel4.Visible = True
                FileUpload5.Visible = True
                Upload5.Visible = True
                ULLabel5.Visible = True
                FileUpload6.Visible = True
                Upload6.Visible = True
                ULLabel6.Visible = True
                FileUpload7.Visible = True
                Upload7.Visible = True
                ULLabel7.Visible = True
                FileUpload8.Visible = True
                Upload8.Visible = True
                ULLabel8.Visible = True
                FileUpload9.Visible = True
                Upload9.Visible = True
                ULLabel9.Visible = True
                FileUpload10.Visible = True
                Upload10.Visible = True
                ULLabel10.Visible = True
                FileUpload11.Visible = True
                Upload11.Visible = True
                ULLabel11.Visible = True
                FileUpload12.Visible = True
                Upload12.Visible = True
                ULLabel12.Visible = True
                Label2.Visible = True
                Label3.Visible = False
                Label4.Visible = True
            Else
                FileUpload1.Visible = False
                Upload1.Visible = False
                ULLabel1.Visible = False
                FileUpload2.Visible = False
                Upload2.Visible = False
                ULLabel2.Visible = False
                FileUpload3.Visible = False
                Upload3.Visible = False
                ULLabel3.Visible = False
                FileUpload4.Visible = False
                Upload4.Visible = False
                ULLabel4.Visible = False
                FileUpload5.Visible = False
                Upload5.Visible = False
                ULLabel5.Visible = False
                FileUpload6.Visible = False
                Upload6.Visible = False
                ULLabel6.Visible = False
                FileUpload7.Visible = False
                Upload7.Visible = False
                ULLabel7.Visible = False
                FileUpload8.Visible = False
                Upload8.Visible = False
                ULLabel8.Visible = False
                FileUpload9.Visible = False
                Upload9.Visible = False
                ULLabel9.Visible = False
                FileUpload10.Visible = False
                Upload10.Visible = False
                ULLabel10.Visible = False
                FileUpload11.Visible = False
                Upload11.Visible = False
                ULLabel11.Visible = False
                FileUpload12.Visible = False
                Upload12.Visible = False
                ULLabel12.Visible = False
                Label2.Visible = False
                Label3.Visible = True
                Label4.Visible = False
            End If

            If IsInRole(school + " Temp1") Then
                Download1.Visible = True
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy1.Visible = False
            ElseIf IsInRole(school + " Temp2") Then
                Download1.Visible = False
                Download2.Visible = True
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy2.Visible = False
            ElseIf IsInRole(school + " Temp3") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = True
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy3.Visible = False
            ElseIf IsInRole(school + " Temp4") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = True
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy4.Visible = False
            ElseIf IsInRole(school + " Temp5") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = True
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy5.Visible = False
            ElseIf IsInRole(school + " Temp6") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = True
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy6.Visible = False
            ElseIf IsInRole(school + " Temp7") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = True
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy7.Visible = False
            ElseIf IsInRole(school + " Temp8") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = True
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy8.Visible = False
            ElseIf IsInRole(school + " Temp9") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = True
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = False
                Buy9.Visible = False
            ElseIf IsInRole(school + " Temp10") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = True
                Download11.Visible = False
                Download12.Visible = False
                Buy10.Visible = False
            ElseIf IsInRole(school + " Temp11") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = True
                Download12.Visible = False
                Buy11.Visible = False
            ElseIf IsInRole(school + " Temp12") Then
                Download1.Visible = False
                Download2.Visible = False
                Download3.Visible = False
                Download4.Visible = False
                Download5.Visible = False
                Download6.Visible = False
                Download7.Visible = False
                Download8.Visible = False
                Download9.Visible = False
                Download10.Visible = False
                Download11.Visible = False
                Download12.Visible = True
                Buy12.Visible = False
            ElseIf IsInRole(school) Or IsInRole(coach) Then
                Download1.Visible = True
                Download2.Visible = True
                Download3.Visible = True
                Download4.Visible = True
                Download5.Visible = True
                Download6.Visible = True
                Download7.Visible = True
                Download8.Visible = True
                Download9.Visible = True
                Download10.Visible = True
                Download11.Visible = True
                Download12.Visible = True
                Buy1.Visible = False
                Buy2.Visible = False
                Buy3.Visible = False
                Buy4.Visible = False
                Buy5.Visible = False
                Buy6.Visible = False
                Buy7.Visible = False
                Buy8.Visible = False
                Buy9.Visible = False
                Buy10.Visible = False
                Buy11.Visible = False
                Buy12.Visible = False
            Else
                Download1.Visible = False
                Buy1.Visible = True
                Download2.Visible = False
                Buy2.Visible = True
                Download3.Visible = False
                Buy3.Visible = True
                Download4.Visible = False
                Buy4.Visible = True
                Download5.Visible = False
                Buy5.Visible = True
                Download6.Visible = False
                Buy6.Visible = True
                Download7.Visible = False
                Buy7.Visible = True
                Download8.Visible = False
                Buy8.Visible = True
                Download9.Visible = False
                Buy9.Visible = True
                Download10.Visible = False
                Buy10.Visible = True
                Download11.Visible = False
                Buy11.Visible = True
                Download12.Visible = False
                Buy12.Visible = True
            End If

            Label10.Text = ("Purchase Season pass to all " & school & "," & league & " " & sport & " Game Tapes - $" & subPrice)
            vid1.Text = FileName1
            vid2.Text = FileName2
            vid3.Text = FileName3
            vid4.Text = FileName4
            vid5.Text = FileName5
            vid6.Text = FileName6
            vid7.Text = FileName7
            vid8.Text = FileName8
            vid9.Text = FileName9
            vid10.Text = FileName10
            vid11.Text = FileName11
            vid12.Text = FileName12
        End Sub
        Protected Sub Upload1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Upload1.Click
            If FileUpload1.HasFile Then
                Try
                    If Not Directory.Exists(strPath1) Then
                        Directory.CreateDirectory(strPath1)
                    End If
                    FileUpload1.SaveAs(Server.MapPath(strPath1 + FileUpload1.FileName))
                    ULLabel1.Text = "File Uploaded!"
                Catch ex As Exception
                    ULLabel1.Text = "ERROR: " & ex.Message.ToString()
                End Try
            Else
                ULLabel1.Text = "You have not specified a file."
            End If
        End Sub

        '-------------------------------------------------------------------------------------------------------------------- PayPal
        '
        '--------------------------------------------------------------------------------------------------------------------
        Protected Sub Subscription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Subscription.Click
            Response.Write(PayPalPostForm0().ToString)

        End Sub
        Public Function PayPalPostForm0() As String
            Dim PostUrl As String = "https://www.paypal.com/cgi-bin/webscr"
            Dim Cmd As String = "_xclick-subscriptions"
            Dim no_shipping As String = "1"
            Dim BusinessEmail As String = "_________@truvista.net"
            Dim Currency As String = "USD"
            Dim ItemName As String = school
            Dim a3 As String = subPrice
            Dim ret As String = "http://www._______________.com/dnn/desktopmodules/uldl/Payment_success.aspx"
            Dim cancel As String = "http://www.___________.com"
            Dim Note As String = "1"
            Dim p3 As String = subTerm1
            Dim t3 As String = subTerm2
            Dim bn As String = "PP-SubscriptionsBF"
            'Create the Form to write to the page with PayPal parameters
            Dim ppForm As New StringBuilder
            ppForm.Append("<Form name=" + """" + "frmPP" + """" + " id=" + """" + "frmPP" + """" + " action=" + """" + PostUrl + """" + " method=" + """" + "post" + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "cmd" + """" + " value=" + """" + Cmd + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_shipping" + """" + " value=" + """" + no_shipping + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "business" + """" + " value=" + """" + BusinessEmail + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "currency_code" + """" + " value=" + """" + Currency + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "item_name" + """" + " value=" + """" + ItemName + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "a3" + """" + " value=" + """" + a3 + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "return" + """" + " value=" + """" + ret + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_shipping" + """" + " value=" + """" + no_shipping + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "cancel_return" + """" + " value=" + """" + cancel + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_note" + """" + " value=" + """" + Note + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "bn" + """" + " value=" + """" + bn + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "p3" + """" + " value=" + """" + p3 + """" + ">")
            ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "t3" + """" + " value=" + """" + t3 + """" + ">")
            Return ppForm.ToString
        End Function

        '-------------------------------------------------------------------------------------------------------------------- Download
        '
        '--------------------------------------------------------------------------------------------------------------------

        Protected Sub Download1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Download1.Click

            Response.TransmitFile(Server.MapPath(DLPath1))
        End Sub

    End Class
End Namespace