Dim Services() As ServiceController
        Dim Service As ServiceController
        Dim Liste As ArrayList = New ArrayList
        Services = ServiceController.GetServices
        For Each Service In Services
            If Service.ServiceName = "Apache" Then
                apache1status = Service.Status
                Button2.Enabled = False
                Label5.Text = "Status: " & apache1status
            End If
            If Service.ServiceName = "Apache2" Then
                apache2status = Service.Status
                Button4.Enabled = False
                Label6.Text = "Status: " & apache2status
            End If
            If Service.ServiceName = "MySQL" Then
                mysqlstatus = Service.Status
                Button2.Enabled = False
                Label7.Text = "Status: " & mysqlstatus
            End If
 
        Next

(Visual Basic .net - Version 2008)