assemb = System.Reflection.Assembly.LoadFrom(strassem)~~Bonnie
>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 >