Rename: RDSFactorWeb -> web, RDSFactor -> server

server/RDSFactor.Designer.vb

@@ -0,0 +1,69 @@
+Imports System.ServiceProcess
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class RDSFactor
+    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 RDSFactor()
+
+        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.cleanupEvent = New System.Timers.Timer()
+        CType(Me.cleanupEvent, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'cleanupEvent
+        '
+        Me.cleanupEvent.Enabled = True
+        Me.cleanupEvent.Interval = 60000.0R
+        '
+        'RDSFactor
+        '
+        Me.ServiceName = "Service1"
+        CType(Me.cleanupEvent, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Public WithEvents cleanupEvent As System.Timers.Timer
+
+End Class