Imports System.Management
Dim mosQuery As New ManagementObjectSearcher("SELECT * FROM Win32_Service")
Dim mocCollection As ManagementObjectCollection = mosQuery.Get
For Each mo As ManagementObject In mocCollection
    With mo
        console.WriteLine(.Properties("Caption").Value & ":" & _
                          .Properties("Description").Value & ":" & _
                          .Properties("State").Value & ":" & _
                          .Properties("StartMode").Value
                         )
    End With
Next