Function StopService() As Boolean
        'ServiceController
        Dim Service As ServiceController = Nothing
 
        'Service beenden
        Try
            Service = New ServiceController("RemoteAccess")
            'Konnte Service zugewiesen werden (also installiert)
            If Service IsNot Nothing Then
                If Service.Status <> ServiceControllerStatus.Stopped AndAlso _
                  Service.Status <> ServiceControllerStatus.StopPending Then
                    If Service.CanStop Then
                        'Service stoppen
                        Service.Stop()
                        'abwarten bis Status erreicht wird
                        '...
                    End If
                End If
            End If
        Catch ex As Exception
 
        Finally
            If Service IsNot Nothing Then
                Service.Close()
            End If
        End Try
    End Function