Make the RADIUS server runnable from Visual Studio.

In other words, make it runnable not only as a service.

CICRadarR/CICRadarR.Designer.vb

@@ -19,7 +19,7 @@ Partial Class CICRadarR
     ' The main entry point for the process
     <MTAThread()> _
     <System.Diagnostics.DebuggerNonUserCode()> _
-    Shared Sub Main()
+    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
@@ -28,9 +28,17 @@ Partial Class CICRadarR
         '
         '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
         '
-        ServicesToRun = New System.ServiceProcess.ServiceBase() {New CICRadarR}
+        Dim server = New CICRadarR()
 
-        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+        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

CICRadarR/CICRadarR.vbproj

@@ -8,8 +8,8 @@
     <SchemaVersion>
     </SchemaVersion>
     <ProjectGuid>{04C6C533-9FEA-41B2-B554-A166C7C7FE32}</ProjectGuid>
-    <OutputType>WinExe</OutputType>
-    <StartupObject>CICRadarR.CICRadarR</StartupObject>
+    <OutputType>Exe</OutputType>
+    <StartupObject>Sub Main</StartupObject>
     <RootNamespace>CICRadarR</RootNamespace>
     <AssemblyName>CICRadarR</AssemblyName>
     <FileAlignment>512</FileAlignment>