Как получить список всех установленных служб на компьютере

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim services() As System.ServiceProcess.ServiceController
        services = System.ServiceProcess.ServiceController.GetServices()
        ListBox1.Items.Clear()
        For i = 0 To services.Length - 1
            ListBox1.Items.Add(services(i).ServiceName)
        Next
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListServices()
    End Sub
 
    Sub ListServices()
        Dim ListBox1 As ListBox
 
        Dim services() As System.ServiceProcess.ServiceController
        Dim i As Integer
        services = System.ServiceProcess.ServiceController.GetServices()
        'ListBox1.Items.Clear()
        For i = 0 To services.Length - 1
            Try
                ListBox1.Items.Add(services(i).ServiceName)
            Catch
            End Try
        Next
    End Sub