' Start the COM+ application with the input name' Note: requires a reference to the COM+ Admin Type Library'' Example: StartComPlusApplication("MyComPlusApp", "")Sub StartComPlusApplication(ByVal applicationName As String, _ ByVal serverName As String) Dim catalog As New COMAdmin.COMAdminCatalog catalog.Connect(serverName) ' start the application catalog.StartApplication(applicationName)End Sub