Imports System.IO
 
Public Class ShutdownTest
 
    Protected Overrides Sub OnStart(ByVal args() As String)
 
        Dim filename As String = "c:/start.txt"
 
        If File.Exists(filename) Then
            File.Delete(filename)
        End If
 
        Dim Writer As New StreamWriter(filename, False)
        Writer.Close()
 
    End Sub
 
    Protected Overrides Sub OnStop()
 
        Dim filename As String = "c:/stop.txt"
 
        If File.Exists(filename) Then
            File.Delete(filename)
        End If
 
        Dim Writer As New StreamWriter(filename, False)
        Writer.Close()
 
    End Sub
 
    Protected Overrides Sub OnShutdown()
 
        Dim filename As String = "c:/shutdownt.txt"
 
        If File.Exists(filename) Then
            File.Delete(filename)
        End If
 
        Dim Writer As New StreamWriter(filename, False)
        Writer.Close()
 
    End Sub
 
End Class