Imports System.IO
 
Public Class ShutdownTest
 
    Sub New()
 
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        Me.CanShutdown = True
        Me.CanStop = True
 
    End Sub
    Protected Overrides Sub OnStart(ByVal args() As String)
 
        Dim filename As String = "c:/log.txt"
 
        Dim Writer As New StreamWriter(filename, True)
        Writer.WriteLine("Start on " & Date.Now.ToString)
        Writer.Close()
 
    End Sub
 
    Protected Overrides Sub OnStop()
 
        Dim filename As String = "c:/log.txt"
 
        Dim Writer As New StreamWriter(filename, True)
        Writer.WriteLine("Stop on " & Date.Now.ToString)
        Writer.Close()
 
    End Sub
 
    Protected Overrides Sub OnShutdown()
 
        Dim filename As String = "c:/log.txt"
 
        Dim Writer As New StreamWriter(filename, True)
        Writer.WriteLine("Shutdown on " & Date.Now.ToString)
        Writer.Close()
 
    End Sub
 
End Class

Zitat:

Start on 10.05.2012 10:58:00 Stop on 10.05.2012 10:58:07 Start on 10.05.2012 10:58:14 Start on 10.05.2012 10:59:13