Dim CrystalReportName As String Dim NewWrapper As WrapperBase Dim oCrystalReport As CrystalDecisions.CrystalReports.Engine.ReportDocument Dim strassem As String = GetAssemblyName() 'loop through all the reports selected by the user For Each CrystalReportName In CrystalReportsList 'create a new wrapper for this report NewWrapper = New WrapperBase 'set the name NewWrapper.CrystalReportName = CrystalReportName 'create an instance of the report so we can get the parameters Dim assemb As System.Reflection.Assembly 'load the assebly assemb = System.Reflection.Assembly.LoadFile(strassem) If Not (assemb Is Nothing) Then 'create the report Dim objTest As Object = assemb.CreateInstance(System.IO.Path.GetFileNameWithoutExtension(CrystalReportName), True) oCrystalReport = CType(objTest, CrystalDecisions.CrystalReports.Engine.ReportDocument) End If 'Do some more stuff to finish the wrapper Me.WrapperList.Add(NewWrapper) Next