#Region " HANDLER "
 
    Structure SERVICE_TABLE_ENTRY
        Dim lpServiceName As String
        Dim lpServiceProc As servicemain
    End Structure
    Private Structure SERVICE_STATUS
        Dim dwServiceType As Integer
        Dim dwCurrentState As Integer
        Dim dwControlsAccepted As Integer
        Dim dwWin32ExitCode As Integer
        Dim dwServiceSpecificExitCode As Integer
        Dim dwCheckPoint As Integer
        Dim dwWaitHint As Integer
    End Structure
#Region "Konst"
    Const SERVICE_CONTROL_STOP% = &H1
    Const SERVICE_CONTROL_PAUSE% = &H2
    Const SERVICE_CONTROL_CONTINUE% = &H3
    Const SERVICE_CONTROL_INTERROGATE% = &H4
    Const SERVICE_CONTROL_SHUTDOWN% = &H5
    Const SERVICE_STOPPED% = &H1
    Const SERVICE_START_PENDING% = &H2
    Const SERVICE_STOP_PENDING% = &H3
    Const SERVICE_RUNNING% = &H4
    Const SERVICE_CONTINUE_PENDING% = &H5
    Const SERVICE_PAUSE_PENDING% = &H6
    Const SERVICE_PAUSED% = &H7
    Const SERVICE_WIN32_OWN_PROCESS% = &H10&
    Const SERVICE_WIN32_SHARE_PROCESS% = &H20&
    Const SERVICE_WIN32% = SERVICE_WIN32_OWN_PROCESS + _
    SERVICE_WIN32_SHARE_PROCESS
    Const SERVICE_ACCEPT_STOP% = &H1
    Const SERVICE_ACCEPT_PAUSE_CONTINUE% = &H2
    Const SERVICE_ACCEPT_SHUTDOWN% = &H4
#End Region
 
    Friend Delegate Sub HandlerDele(ByVal fdwControl%)
    Private hServiceStatus As Integer
    Private ServiceStatus As New SERVICE_STATUS
    Private Declare Function SetServiceStatus Lib "advapi32.dll" (ByVal _
      hServiceStatus As Integer, ByRef lpServiceStatus As SERVICE_STATUS) As _
      Integer
    Private Declare Function StartServiceCtrlDispatcher Lib "advapi32.dll" _
    Alias "StartServiceCtrlDispatcherA" (ByRef lpServiceStartTable As _
    SERVICE_TABLE_ENTRY) As Integer
    Declare Function RegisterServiceCtrlHandler Lib "advapi32.dll" Alias _
    "RegisterServiceCtrlHandlerA" ( _
    ByVal lpServiceName As String, _
    ByVal lpHandlerProc As HandlerDele) As Integer
    Friend Delegate Sub servicemain(ByVal dwArgc As Integer, ByVal lpszArgv As _
      Integer)
 
    ' diese function stellt verbindung mit dem servicecontrolmanager her 
    ' hier klappt das ganze mit dem delegate leider schon nicht so wies aussieht
    Friend Function Startdispatch() As Boolean
        Dim ste As New SERVICE_TABLE_ENTRY
        ste.lpServiceName = "mwns"
        ste.lpServiceProc = AddressOf doMain
        If Not StartServiceCtrlDispatcher(ste) = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
 
    ' dieser sub setz den service status auf start pending dann auf running 
    ' und registriert den handler...
    Friend Sub doMain(ByVal dwArgc As Integer, ByVal lpszArgv As Integer)
        ServiceStatus.dwServiceType = SERVICE_WIN32_OWN_PROCESS
        ServiceStatus.dwCurrentState = SERVICE_START_PENDING
        ServiceStatus.dwControlsAccepted = SERVICE_ACCEPT_STOP _
        Or SERVICE_ACCEPT_PAUSE_CONTINUE _
        Or SERVICE_ACCEPT_SHUTDOWN
        ServiceStatus.dwWin32ExitCode = 0
        ServiceStatus.dwServiceSpecificExitCode = 0
        ServiceStatus.dwCheckPoint = 0
        ServiceStatus.dwWaitHint = 0
        Dim d As New HandlerDele(AddressOf HandlerProc)
        hServiceStatus = RegisterServiceCtrlHandler("mwns", d)
        ServiceStatus.dwCurrentState = SERVICE_START_PENDING
        Dim b As Integer = SetServiceStatus(hServiceStatus, ServiceStatus)
        ServiceStatus.dwCurrentState = SERVICE_RUNNING
        b = SetServiceStatus(hServiceStatus, ServiceStatus)
    End Sub
 
    ' hier der handler für die eingehenden controlanweisungen ..
    Private Sub HandlerProc(ByVal fdwControl%)
        Dim B%
        Select Case fdwControl
            Case SERVICE_CONTROL_PAUSE
                ServiceStatus.dwCurrentState = SERVICE_PAUSED
            Case SERVICE_CONTROL_CONTINUE
                ServiceStatus.dwCurrentState = SERVICE_RUNNING
            Case SERVICE_CONTROL_STOP
                ServiceStatus.dwWin32ExitCode = 0
                ServiceStatus.dwCurrentState = SERVICE_STOP_PENDING
                ServiceStatus.dwCheckPoint = 0
                ServiceStatus.dwWaitHint = 0
                B = SetServiceStatus(hServiceStatus, ServiceStatus)
                ServiceStatus.dwCurrentState = SERVICE_STOPPED
            Case SERVICE_CONTROL_INTERROGATE
            Case Else
        End Select
        B = SetServiceStatus(hServiceStatus, ServiceStatus)
    End Sub
 
#End Region

Dim t As New Threading.Thread(AddressOf inst)
Sub inst()
          Dim i As New icem
            i.Startdispatch()
    End Sub