Protected Overrides Sub OnAfterInstall(ByVal savedState As _
  System.Collections.IDictionary)
 
  Dim sc As New System.ServiceProcess.ServiceController("jsMonitor")
  sc.Start()
 
  MyBase.OnAfterInstall(savedState)
 
End Sub