需要引用命名空间:
Imports System.ServiceProcess
以下代码启动名为ServiceName的服务:
Public Function StartServece(ByVal ServiceName As String) As Boolean
Dim Services() As ServiceController
Dim Service As ServiceController
Services = ServiceController.GetServices
For Each Service In Services
If UCase(Service.ServiceName) = UCase(ServiceName) Then
Service.Start()
Return True
End If
Next
End Function