Public Class MainClass
 
    Public Shared Function Main(ByVal args() As String) As Integer
        Dim p As New Process
        p.StartInfo.Arguments = "deine komponente"
        p.StartInfo.FileName = "regasm.exe"
        p.Start()
        p.WaitForExit()
        Return p.ExitCode
    End Function
 
End Class