Imports System.Reflection
 
Module DLLfunc
 
    ''' <summary>Ruft eine Form auf in einer DLL</summary>
    ''' <param name="DLLpath">Pfad zur DLL (C:\TEST.dll)</param>
    ''' <param name="DLLfile">DLL Dateiname mit Endung (TEST.dll)</param>
    ''' <param name="DLLname">DLL Dateiname ohne Endung (TEST)</param>
    ''' <param name="FormName">Form Name</param>
    Public Function CallDLLForm(ByVal DLLpath As String, ByVal DLLfile As _
      String, ByVal DLLname As String, ByVal FormName As String)
        Try
            Dim A As [Assembly] = [Assembly].LoadFrom(DLLpath)
            Dim B As [Module] = A.GetModule(DLLfile)
            Dim C As Type = B.GetType(DLLname & "." & FormName)
            Dim D As Form = DirectCast(Activator.CreateInstance(C), Form)
            D.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try
    End Function
 
End Module

Public Class Form1
 
    'Form1 aus ClassLibrary1.dll aufrufen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        CallDLLForm(Application.StartupPath & "\ClassLibrary1.dll", _
        "ClassLibrary1.dll", "ClassLibrary1", "Form1")
    End Sub
 
    'Form1 aus ClassLibrary2.dll aufrufen
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        CallDLLForm(Application.StartupPath & "\ClassLibrary2.dll", _
        "ClassLibrary2.dll", "ClassLibrary2", "Form1")
    End Sub
 
 
 
 
 
    '2 Formen aus einer ClassLibrary1.dll aufrufen
    'Form1 aus ClassLibrary1.dll aufrufen
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        CallDLLForm("C:\ClassLibrary1.dll", "ClassLibrary1.dll", _
        "ClassLibrary1", "Form1")
    End Sub
 
    'Form2 aus ClassLibrary1.dll aufrufen
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        CallDLLForm("C:\ClassLibrary1.dll", "ClassLibrary1.dll", _
        "ClassLibrary1", "Form2")
    End Sub
 
End Class