Torna al Thread
Imports System.Threading
Public Class Service1
Dim MyThread As Threading.Thread
Protected Overrides Sub OnStart(ByVal args() As String)
' Inserire qui il codice necessario per avviare il proprio servizio. Il metodo deve effettuare
' le impostazioni necessarie per il funzionamento del servizio.
MyThread = New Threading.Thread(AddressOf AvvioCalcolatrice)
MyThread.Start()
End Sub
Protected Overrides Sub OnStop()
' Inserire qui il codice delle procedure di chiusura necessarie per arrestare il proprio servizio.
MyThread.Abort()
End Sub
Private Sub AvvioCalcolatrice()
Dim Prc As New ProcessStartInfo("Calc.exe")
Prc.WindowStyle = ProcessWindowStyle.Maximized
Process.Start(Prc)
End Sub
End Class