RDSFactor/CICRadarR/CICRadarR.Designer.vb

Imports System.ServiceProcess

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class CICRadarR
    Inherits System.ServiceProcess.ServiceBase

    'UserService overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    ' The main entry point for the process
    <MTAThread()> _
    <System.Diagnostics.DebuggerNonUserCode()> _
    Shared Sub Main(ByVal args() As String)
        Dim ServicesToRun() As System.ServiceProcess.ServiceBase

        ' More than one NT Service may run within the same process. To add
        ' another service to this process, change the following line to
        ' create a second service object. For example,
        '
        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
        '
        Dim server = New CICRadarR()

        If Environment.UserInteractive Then
            server.OnStart(args)
            Console.WriteLine("Type any character to exit")
            Console.Read()
            server.OnStop()
        Else
            ServicesToRun = New System.ServiceProcess.ServiceBase() {server}
            System.ServiceProcess.ServiceBase.Run(ServicesToRun)
        End If
    End Sub

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    ' NOTE: The following procedure is required by the Component Designer
    ' It can be modified using the Component Designer.  
    ' Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.TimerCleanUpHash = New System.Timers.Timer()
        CType(Me.TimerCleanUpHash, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'TimerCleanUpHash
        '
        Me.TimerCleanUpHash.Enabled = True
        Me.TimerCleanUpHash.Interval = 60000.0R
        '
        'CICRadarR
        '
        Me.ServiceName = "Service1"
        CType(Me.TimerCleanUpHash, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Friend WithEvents TimerCleanUpHash As System.Timers.Timer

End Class