Windowsでのサービスのサービス名の取得です。
参照設定で、System.ServiceProcess.dll を参照に加えてください。
以下のコードでは、存在するサービス名を列挙し、コンソールに表示させています。
Function PrintSvcs()
Dim Svcs() As ServiceProcess.ServiceController
Svcs = System.ServiceProcess.ServiceController.GetServices
For Each svc As ServiceProcess.ServiceController In Svcs
Console.WriteLine(svc.DisplayName.ToString)
Next
End Function