Public Function Main(ByVal args() As String) As Integer
 
        Dim p As New Process()
        Dim Regasm_Path As String
 
        'Ermittelt den Pfad anhand eines Registryeintrags.
        Regasm_Path = Get_RegValue("LocalMachine", "Software", "MBTCM", _
          "TimeControlManagement", "RegisterDll_Path")
 
        p.StartInfo.Arguments = " MBTCM_License.dll /tlb:MBTCM_License.tlb" & _
          "/codebase MBTCM_License.dll"
        p.StartInfo.FileName = Regasm_Path & "regasm.exe"
        p.Start()
        p.WaitForExit()
 
        'Nur als Versuch gedacht ob er die Registrierung anhand einer Batch 
        ' Datei über das Weitergabeprojekt ordnungsgemäß erstellt.. Nachstehend 
        ' den Code der Batch Datei.
        p.StartInfo.FileName = Regasm_Path & "register.bat"
 
        Return p.ExitCode
 
    End Function

@echo off
echo Registriere Assembly
echo.
regasm.exe MBTCM_License.dll /tlb:MBTCM_License.tlb /codebase MBTCM_License.dll
echo.
echo.