Dim Server_running As String = ""
Dim myServiceController As System.ServiceProcess.ServiceController
myServiceController = New System.ServiceProcess.ServiceController("mySQL")
Try
   Select Case myServiceController.Status
         Case Is = ServiceProcess.ServiceControllerStatus.Running
               Server_running = "Server ist verfügbar"
         Case Is = ServiceProcess.ServiceControllerStatus.Stopped
                Server_running = "Server ist gestoppt"
         Case Is = ServiceProcess.ServiceControllerStatus.Paused
                Server_running = "Server pausiert"
  End Select
Catch
   Server_running = ""
End Try
Return Server_running