Dim mcServices As New Management.ManagementClass("Win32_Service")
Dim moService As Management.ManagementObject
For Each moService In mcServices.GetInstances()
'Dim srvArray As String()
'srvArray =
If moService.GetPropertyValue("Name").ToString() = "MyServiceName" Then
MessageBox.Show(moService.GetPropertyValue("StartName").ToString())
End If
Next