You may try to see if the code below helped you.
Imports System.ServiceProcess
Module Module2
Public Sub Main()
Dim sc As New ServiceController("Themes")
sc.Stop()
Console.ReadLine()
sc.Start()
End Sub
End Module
Best regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.