Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim dienst As New ServiceProcess.ServiceController("Nachrichtendienst")
        If dienst.Status = ServiceProcess.ServiceControllerStatus.Stopped Then
            dienst.Start()
            Label1.Text = dienst.Status.ToString
        Else
            dienst.Stop()
            Label1.Text = dienst.Status.ToString
        End If
    End Sub