Dim scpa As ServiceProcess.ServiceControllerPermissionAccess = _
  ServiceProcess.ServiceControllerPermissionAccess.Control
Dim c As New ServiceProcess.ServiceControllerPermissionEntry(scpa, _
"{HOSTNAME}", "{SERVICE_NAME}")
Dim scp As New ServiceProcess.ServiceControllerPermission(New _
ServiceProcess.ServiceControllerPermissionEntry() {c})
scp.Assert()
[....]