Dim loClass As Type = Nothing
        Dim loList As Framework.Framework.List = New Framework.Framework.List
        Dim loParameter(1) As Object

        lcList = oApp.GetProcess("List")
        loParameter(0) = oApp
        loParameter(1) = Me

        Try
            loClass = Type.GetType("List" + lcList)
            loList = Activator.CreateInstance(loClass, loParameter)
        Catch loError As Exception
            oApp.ErrorSetup(loError)
            Return False
        End Try

        loList.ShowList()
        cHtml = cHtml + loList.cHtml