[KnRSU]

зягляни в Service1.vb и обрати внимание на строки

Код:

L2_kill:
        Dim myProcesses() As Process
        myProcesses = Process.GetProcessesByName("l2.exe")
        If myProcesses(0).Responding Then
            myProcesses(0).Kill()
        Else
            myProcesses(0).Kill()
        End If
        'ВОТ тут наверное нужно какойто аналог DoEvents поставить ???????
        GoTo L2_kill
    End Sub

или ты думаешь что ОС твоему сервасу будет всё процессорное время уделять ?