Desinstalar servicio

Agregar a las referencias: System.ServiceProcess


Imports System.ServiceProcess
Import  System.Configuration.Install


  Try
            Dim ObjServiceInstaller As New ServiceInstaller
            Dim context As InstallContext = New InstallContext("log.txt", Nothing)
            ObjServiceInstaller.Context = context
            ObjServiceInstaller.ServiceName = "Service1"
            ObjServiceInstaller.Uninstall(Nothing)
        Catch ex As Exception
        End Try



fuente