Public Class pcksrv
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        LogInfo("Stariting the service")
        myClock.Enabled = True

    End Sub

    Protected Overrides Sub OnStop()

 Dim objRequest As HttpWebRequest
 objRequest = WebRequest.Create(URL + PostData)
 Dim retProxy As WebProxy
 Dim retURI As Uri
 retURI = New Uri(URL)
 retProxy = New WebProxy(WebRequest.DefaultWebProxy.GetProxy(retURI))
 objRequest.Credentials = CredentialCache.DefaultCredentials