Public Function addModulToSoftware(ByVal sFile As String) As Boolean
        Dim bReturn As Boolean = False
        Dim i As Integer = 0
        Try
            If myModSetup Is Nothing Then
                'myModSetup = New AppDomainSetup
                'myModSetup.ApplicationBase = Microsoft.VisualBasic.Left(sFile, 
                ' InStrRev(sFile, "\") - 1)
                'myModDomain = AppDomain.CreateDomain("AppModulBase", 
                ' myModEvidence, myModSetup)
                myModDomain = AppDomain.CurrentDomain
            End If
            If myModules Is Nothing Then
                ReDim myModules(0)
                i = 0
            Else
                i = myModules.Length + 1
                ReDim myModules(i)
            End If
            myModules(i) = myModDomain.CreateInstanceAndUnwrap( _
              System.Reflection.AssemblyName.GetAssemblyName(sFile).FullName, _
              Replace(Microsoft.VisualBasic.Right(sFile, Len(sFile) - InStrRev( _
              sFile, "\")), ".dll", "") & ".clsModul")
            Me.SplitContainer1.Panel2.Controls.Add(myModules(i).goNaviPageMain)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

fg viperbone