остановить службу Windows на событие

Question

Мне нужно остановить службу на событии. Куда я отправляю файл через ftp, а ftp генерирует ответ в текстовом файле. Поэтому я проверяю ответ в текстовом файле, если сообщение об отказе есть, тогда мне нужно остановить службу. Но поскольку это не исключение, я не могу вызвать метод OnStart, где я могу остановить службу. Как остановить службу в классе?

Dim text As String = "Error: Could not open connection"
Dim lines() As String = Filter(System.IO.File.ReadAllLines(SFtpLogFullPath), text)

If UBound(lines) = -1 Then
    'MsgBox("not found")
Else
    'MsgBox("found")
    Dim UpdFailFTPStatus As New AseCommand("update tb_kamp_filesprocess set FileFTPStatus = '" & "" & "' where FILENAME = '" & fileName & "' ", _SQLConnection)
    recordsAffected = UpdFailFTPStatus.ExecuteNonQuery()
    ExecuteSP("ml_test_kamp")
    writelog("Error occured during SFTP ")
    'Need to stop the service here
    Exit Sub
End If