[netrek-cvs] client/netrekxp/tools/VBasic config utility/Netrek_Configurator.NET AssemblyInfo.vb, NONE, 1.1 Form1.Designer.vb, NONE, 1.1 Form1.resX, NONE, 1.1 Form1.vb, NONE, 1.1 Form2.Designer.vb, NONE, 1.1 Form2.resX, NONE, 1.1 Form2.vb, NONE, 1.1 Form3.Designer.vb, NONE, 1.1 Form3.resX, NONE, 1.1 Form3.vb, NONE, 1.1 _UpgradeReport.htm, NONE, 1.1 netrekconfig.ico, NONE, 1.1 netrekconfig.log, NONE, 1.1 netrekconfig.sln, NONE, 1.1 netrekconfig.suo, NONE, 1.1 netrekconfig.vbproj, NONE, 1.1 netrekconfig.vbproj.user, NONE, 1.1

[Bill Balcerski]

Update of /cvsroot/netrek/client/netrekxp/tools/VBasic config utility/Netrek_Configurator.NET
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv13747/tools/VBasic config utility/Netrek_Configurator.NET

Added Files:
	AssemblyInfo.vb Form1.Designer.vb Form1.resX Form1.vb 
	Form2.Designer.vb Form2.resX Form2.vb Form3.Designer.vb 
	Form3.resX Form3.vb _UpgradeReport.htm netrekconfig.ico 
	netrekconfig.log netrekconfig.sln netrekconfig.suo 
	netrekconfig.vbproj netrekconfig.vbproj.user 
Log Message:
Adding Joe Evango's Visual Basic configuration utiity to client source code.  Not used in Netrek XP 2006, but left here in case anyone wants to use it or improve on it.

--- NEW FILE: AssemblyInfo.vb ---
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices

' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.


' TODO: Review the values of the assembly attributes


<Assembly: AssemblyTitle("")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("PlayNetrek.org")>
<Assembly: AssemblyProduct("")>
<Assembly: AssemblyCopyright("")>
<Assembly: AssemblyTrademark("")>
<Assembly: AssemblyCulture("")>

' Version information for an assembly consists of the following four values:

'	Major version
'	Minor Version
'	Build Number
'	Revision

' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:

<Assembly:  AssemblyVersion("1.0.*")>



--- NEW FILE: netrekconfig.vbproj.user ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Form1.resX ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Form2.vb ---
Option Strict Off
Option Explicit On
Friend Class Form2
	Inherits System.Windows.Forms.Form
	' Netrek Configurator v1.0 - written by Joe Evango
	'
	' Program notes from Joe 4/30/06-
	' Code contains some comments, pretty easy to follow the logic.
	' I am currently using a config directory that contains two netrekrc files, netrek.one and netrek.sep.
	' This is done for the two messaging window configs.  This should be easy enough to implement into the code
	' in order to eliminate the extra sub directory and files if someone has time.
	'
	' This utility writes to the netrekrc file and assumes it is in located the same folder as the utility so if the
	' netrekrc file does not exist the utility will not run properly and error out.  When it is run it will also save
	' your old netrekrc file as netrek.sav.
	'
	' Since Netrek code has always been freely shared in the community I will do the same with this config utility.
	' Please feel free to help improve the utility and/or include the utility as an add-on if you are working on
	' a Windows client.  Also feel free to use the logic in this code to create a config utility for another OS.  It
	' took a while to put the keymap portion of this together but it works well. I only ask that if any modifications
	' are made you also make your code changes available to the community.  It would also be nice if I was mentioned as
	' a contributor in your code comments.
	
	' Variables below for game options are self explanitory
	Dim playlist As Short
	Dim sound As Short
	Dim tips As Short
	Dim stars As Short
	Dim warp As Short
	
	
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Dim fnum2 As Short
		Dim pltxt As String
		Dim tiptxt As String
		Dim soundtxt As String
		Dim startxt As String
		Dim warptxt As String
		Dim metatxt As String
		
		
		fnum2 = FreeFile
		
		
		' Open the file for append.
		FileOpen(fnum2, ".\netrekrc", OpenMode.Append)
		' Add the command.
		If (Check1.CheckState = System.Windows.Forms.CheckState.Checked) Then
			sound = 1
		End If
		If (Check1.CheckState = System.Windows.Forms.CheckState.Unchecked) Then
			sound = 0
		End If
		
		If (Check2.CheckState = System.Windows.Forms.CheckState.Checked) Then
			tips = 1
		End If
		If (Check2.CheckState = System.Windows.Forms.CheckState.Unchecked) Then
			tips = 0
		End If
		If (Check3.CheckState = System.Windows.Forms.CheckState.Checked) Then
			stars = 1
		End If
		If (Check3.CheckState = System.Windows.Forms.CheckState.Unchecked) Then
			stars = 0
		End If
		
		If (Check4.CheckState = System.Windows.Forms.CheckState.Checked) Then
			warp = 1
		End If
		If (Check4.CheckState = System.Windows.Forms.CheckState.Unchecked) Then
			warp = 0
		End If
		
		
		If playlist = 1 Then
			pltxt = "playerListStyle:   1"
		End If
		
		If playlist = 2 Then
			pltxt = "playerListStyle:    2"
		End If
		
		If playlist = 3 Then
			pltxt = "playerListStyle:    3"
		End If
		
		If playlist = 4 Then
			pltxt = "playerListStyle:   4"
		End If
		
		
		
		If tips = 1 Then
			tiptxt = "showHints: on"
		End If
		
		If tips = 0 Then
			tiptxt = "showHints: off"
		End If
		
		
		If sound = 1 Then
			soundtxt = "sound: on"
		End If
		
		If sound = 0 Then
			soundtxt = "sound: off"
		End If
		
		
		If stars = 0 Then
			startxt = "showStars: off"
		End If
		
		If stars = 1 Then
			startxt = "showStars: on"
		End If
		
		If warp = 1 Then
			warptxt = "warpStreaks: on"
		End If
		
		If warp = 0 Then
			warptxt = "warpStreaks: off"
		End If
		
		
		PrintLine(fnum2, pltxt)
		PrintLine(fnum2, Chr(13))
		PrintLine(fnum2, tiptxt)
		PrintLine(fnum2, Chr(13))
		PrintLine(fnum2, soundtxt)
		PrintLine(fnum2, Chr(13))
		PrintLine(fnum2, startxt)
		PrintLine(fnum2, Chr(13))
		PrintLine(fnum2, warptxt)
		
		
		' Close the file.
		FileClose(fnum2)
		
		'MsgBox "Your configuration has been saved.  Your old configuration file has been saved as netrekrc.sav in your Netrek install directory"
		Form3.Show()
		Me.Close()
	End Sub
	
	
	
	Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
		Me.Close()
	End Sub
	
	Private Sub Form2_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		playlist = 3
	End Sub
	
	'UPGRADE_WARNING: Event Option1.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Option1_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option1.CheckedChanged
		If eventSender.Checked Then
			playlist = 1
			pl1.Visible = True
			pl2.Visible = False
			pl3.Visible = False
			pl4.Visible = False
		End If
	End Sub
	
	'UPGRADE_WARNING: Event Option2.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Option2_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option2.CheckedChanged
		If eventSender.Checked Then
			playlist = 2
			pl1.Visible = False
			pl2.Visible = True
			pl3.Visible = False
			pl4.Visible = False
		End If
	End Sub
	
	'UPGRADE_WARNING: Event Option3.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Option3_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option3.CheckedChanged
		If eventSender.Checked Then
			playlist = 3
			pl1.Visible = False
			pl2.Visible = False
			pl3.Visible = True
			pl4.Visible = False
		End If
	End Sub
	
	'UPGRADE_WARNING: Event Option4.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Option4_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option4.CheckedChanged
		If eventSender.Checked Then
			playlist = 4
			pl1.Visible = False
			pl2.Visible = False
			pl3.Visible = False
			pl4.Visible = True
		End If
	End Sub
	
	Private Sub Text1_Change(ByRef Index As Short)
		
	End Sub
End Class
--- NEW FILE: Form2.Designer.vb ---
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class Form2
#Region "Windows Form Designer generated code "
	<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
		MyBase.New()
		'This call is required by the Windows Form Designer.
		InitializeComponent()
	End Sub
	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
	Public WithEvents Check4 As System.Windows.Forms.CheckBox
	Public WithEvents Check3 As System.Windows.Forms.CheckBox
	Public WithEvents Command2 As System.Windows.Forms.Button
	Public WithEvents Check2 As System.Windows.Forms.CheckBox
	Public WithEvents Check1 As System.Windows.Forms.CheckBox
	Public WithEvents Command1 As System.Windows.Forms.Button
	Public WithEvents Option4 As System.Windows.Forms.RadioButton
	Public WithEvents Option3 As System.Windows.Forms.RadioButton
	Public WithEvents Option2 As System.Windows.Forms.RadioButton
	Public WithEvents Option1 As System.Windows.Forms.RadioButton
	Public WithEvents Label5 As System.Windows.Forms.Label
	Public WithEvents Label3 As System.Windows.Forms.Label
	Public WithEvents Label4 As System.Windows.Forms.Label
	Public WithEvents Label2 As System.Windows.Forms.Label
	Public WithEvents Image1 As System.Windows.Forms.PictureBox
	Public WithEvents pl4 As System.Windows.Forms.PictureBox
	Public WithEvents pl3 As System.Windows.Forms.PictureBox
	Public WithEvents pl2 As System.Windows.Forms.PictureBox
	Public WithEvents pl1 As System.Windows.Forms.PictureBox
	Public WithEvents Label1 As System.Windows.Forms.Label
	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form2))
		Me.components = New System.ComponentModel.Container()
		Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
		Me.Check4 = New System.Windows.Forms.CheckBox
		Me.Check3 = New System.Windows.Forms.CheckBox
		Me.Command2 = New System.Windows.Forms.Button
		Me.Check2 = New System.Windows.Forms.CheckBox
		Me.Check1 = New System.Windows.Forms.CheckBox
		Me.Command1 = New System.Windows.Forms.Button
		Me.Option4 = New System.Windows.Forms.RadioButton
		Me.Option3 = New System.Windows.Forms.RadioButton
		Me.Option2 = New System.Windows.Forms.RadioButton
		Me.Option1 = New System.Windows.Forms.RadioButton
		Me.Label5 = New System.Windows.Forms.Label
		Me.Label3 = New System.Windows.Forms.Label
		Me.Label4 = New System.Windows.Forms.Label
		Me.Label2 = New System.Windows.Forms.Label
		Me.Image1 = New System.Windows.Forms.PictureBox
		Me.pl4 = New System.Windows.Forms.PictureBox
		Me.pl3 = New System.Windows.Forms.PictureBox
		Me.pl2 = New System.Windows.Forms.PictureBox
		Me.pl1 = New System.Windows.Forms.PictureBox
		Me.Label1 = New System.Windows.Forms.Label
		Me.SuspendLayout()
		Me.ToolTip1.Active = True
		Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
		Me.BackColor = System.Drawing.SystemColors.WindowText
		Me.Text = "Netrek Configuration Utility (Page 2 of 3)"
		Me.ClientSize = New System.Drawing.Size(727, 657)
		Me.Location = New System.Drawing.Point(157, 32)
		Me.Icon = CType(resources.GetObject("Form2.Icon"), System.Drawing.Icon)
		Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
		Me.ControlBox = True
		Me.Enabled = True
		Me.KeyPreview = False
		Me.MaximizeBox = True
		Me.MinimizeBox = True
		Me.Cursor = System.Windows.Forms.Cursors.Default
		Me.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.ShowInTaskbar = True
		Me.HelpButton = False
		Me.WindowState = System.Windows.Forms.FormWindowState.Normal
		Me.Name = "Form2"
		Me.Check4.BackColor = System.Drawing.SystemColors.MenuText
		Me.Check4.Text = "Show Warpstreaks"
		Me.Check4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Check4.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Check4.Size = New System.Drawing.Size(145, 25)
		Me.Check4.Location = New System.Drawing.Point(240, 560)
		Me.Check4.TabIndex = 14
		Me.Check4.CheckState = System.Windows.Forms.CheckState.Checked
		Me.Check4.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Check4.FlatStyle = System.Windows.Forms.FlatStyle.Standard
		Me.Check4.CausesValidation = True
		Me.Check4.Enabled = True
		Me.Check4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Check4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Check4.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Check4.TabStop = True
		Me.Check4.Visible = True
		Me.Check4.Name = "Check4"
		Me.Check3.BackColor = System.Drawing.SystemColors.MenuText
		Me.Check3.Text = "Show Stars"
		Me.Check3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Check3.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Check3.Size = New System.Drawing.Size(113, 25)
		Me.Check3.Location = New System.Drawing.Point(48, 520)
		Me.Check3.TabIndex = 13
		Me.Check3.CheckState = System.Windows.Forms.CheckState.Checked
		Me.Check3.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Check3.FlatStyle = System.Windows.Forms.FlatStyle.Standard
		Me.Check3.CausesValidation = True
		Me.Check3.Enabled = True
		Me.Check3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Check3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Check3.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Check3.TabStop = True
		Me.Check3.Visible = True
		Me.Check3.Name = "Check3"
		Me.Command2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command2.Text = "Cancel"
		Me.Command2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command2.Size = New System.Drawing.Size(73, 25)
		Me.Command2.Location = New System.Drawing.Point(352, 616)
		Me.Command2.TabIndex = 12
		Me.Command2.BackColor = System.Drawing.SystemColors.Control
		Me.Command2.CausesValidation = True
		Me.Command2.Enabled = True
		Me.Command2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command2.TabStop = True
		Me.Command2.Name = "Command2"
		Me.Check2.BackColor = System.Drawing.SystemColors.ControlText
		Me.Check2.Text = "Enable Tip Window"
		Me.Check2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Check2.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Check2.Size = New System.Drawing.Size(145, 17)
		Me.Check2.Location = New System.Drawing.Point(240, 528)
		Me.Check2.TabIndex = 10
		Me.Check2.CheckState = System.Windows.Forms.CheckState.Checked
		Me.Check2.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Check2.FlatStyle = System.Windows.Forms.FlatStyle.Standard
		Me.Check2.CausesValidation = True
		Me.Check2.Enabled = True
		Me.Check2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Check2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Check2.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Check2.TabStop = True
		Me.Check2.Visible = True
		Me.Check2.Name = "Check2"
		Me.Check1.BackColor = System.Drawing.SystemColors.MenuText
		Me.Check1.Text = "Enable Sound"
		Me.Check1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Check1.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Check1.Size = New System.Drawing.Size(113, 25)
		Me.Check1.Location = New System.Drawing.Point(48, 560)
		Me.Check1.TabIndex = 9
		Me.Check1.CheckState = System.Windows.Forms.CheckState.Checked
		Me.Check1.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Check1.FlatStyle = System.Windows.Forms.FlatStyle.Standard
		Me.Check1.CausesValidation = True
		Me.Check1.Enabled = True
		Me.Check1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Check1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Check1.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Check1.TabStop = True
		Me.Check1.Visible = True
		Me.Check1.Name = "Check1"
		Me.Command1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command1.Text = "Next"
		Me.Command1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command1.Size = New System.Drawing.Size(73, 25)
		Me.Command1.Location = New System.Drawing.Point(264, 616)
		Me.Command1.TabIndex = 8
		Me.Command1.BackColor = System.Drawing.SystemColors.Control
		Me.Command1.CausesValidation = True
		Me.Command1.Enabled = True
		Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command1.TabStop = True
		Me.Command1.Name = "Command1"
		Me.Option4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option4.BackColor = System.Drawing.SystemColors.ControlText
		Me.Option4.Text = "BRMH Style"
		Me.Option4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Option4.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Option4.Size = New System.Drawing.Size(145, 25)
		Me.Option4.Location = New System.Drawing.Point(24, 344)
		Me.Option4.TabIndex = 6
		Me.Option4.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option4.CausesValidation = True
		Me.Option4.Enabled = True
		Me.Option4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Option4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Option4.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Option4.TabStop = True
		Me.Option4.Checked = False
		Me.Option4.Visible = True
		Me.Option4.Name = "Option4"
		Me.Option3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option3.BackColor = System.Drawing.SystemColors.ControlText
		Me.Option3.Text = "Kill Watch Style (Default)"
		Me.Option3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Option3.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Option3.Size = New System.Drawing.Size(169, 25)
		Me.Option3.Location = New System.Drawing.Point(24, 320)
		Me.Option3.TabIndex = 5
		Me.Option3.Checked = True
		Me.Option3.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option3.CausesValidation = True
		Me.Option3.Enabled = True
		Me.Option3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Option3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Option3.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Option3.TabStop = True
		Me.Option3.Visible = True
		Me.Option3.Name = "Option3"
		Me.Option2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option2.BackColor = System.Drawing.SystemColors.ControlText
		Me.Option2.Text = "COW Style"
		Me.Option2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Option2.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Option2.Size = New System.Drawing.Size(153, 25)
		Me.Option2.Location = New System.Drawing.Point(24, 296)
		Me.Option2.TabIndex = 4
		Me.Option2.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option2.CausesValidation = True
		Me.Option2.Enabled = True
		Me.Option2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Option2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Option2.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Option2.TabStop = True
		Me.Option2.Checked = False
		Me.Option2.Visible = True
		Me.Option2.Name = "Option2"
		Me.Option1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option1.BackColor = System.Drawing.SystemColors.ControlText
		Me.Option1.Text = "Old Style"
		Me.Option1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Option1.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Option1.Size = New System.Drawing.Size(153, 25)
		Me.Option1.Location = New System.Drawing.Point(24, 272)
		Me.Option1.TabIndex = 3
		Me.Option1.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option1.CausesValidation = True
		Me.Option1.Enabled = True
		Me.Option1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Option1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Option1.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Option1.TabStop = True
		Me.Option1.Checked = False
		Me.Option1.Visible = True
		Me.Option1.Name = "Option1"
		Me.Label5.BackColor = System.Drawing.SystemColors.WindowText
		Me.Label5.Text = "Misc. Options"
		Me.Label5.Font = New System.Drawing.Font("Arial", 12!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label5.ForeColor = System.Drawing.Color.Blue
		Me.Label5.Size = New System.Drawing.Size(129, 25)
		Me.Label5.Location = New System.Drawing.Point(24, 480)
		Me.Label5.TabIndex = 11
		Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label5.Enabled = True
		Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label5.UseMnemonic = True
		Me.Label5.Visible = True
		Me.Label5.AutoSize = False
		Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label5.Name = "Label5"
		Me.Label3.BackColor = System.Drawing.SystemColors.ControlText
		Me.Label3.Text = "There are four playerlists available with this utility.  Selecting the radio buttons below will show you a screen shot of each option.  It is highly recommended that you stick with the default playerlist until you become more familiar with the game."
		Me.Label3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label3.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Label3.Size = New System.Drawing.Size(473, 41)
		Me.Label3.Location = New System.Drawing.Point(16, 224)
		Me.Label3.TabIndex = 7
		Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label3.Enabled = True
		Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label3.UseMnemonic = True
		Me.Label3.Visible = True
		Me.Label3.AutoSize = False
		Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label3.Name = "Label3"
		Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label4.BackColor = System.Drawing.SystemColors.ControlText
		Me.Label4.Text = "NOTE:  This will place a fresh copy of the netrekrc file in your Netrek install directory.  If you have made any changes to this file they will be overwritten.  A copy of your old netrekrc file will be saved as netrekrc.sav.  If this is your first time installing please choose your configuration below and click on the Next button"
		Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label4.ForeColor = System.Drawing.Color.FromARGB(255, 128, 128)
		Me.Label4.Size = New System.Drawing.Size(729, 41)
		Me.Label4.Location = New System.Drawing.Point(0, 144)
		Me.Label4.TabIndex = 2
		Me.Label4.Enabled = True
		Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label4.UseMnemonic = True
		Me.Label4.Visible = True
		Me.Label4.AutoSize = False
		Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label4.Name = "Label4"
		Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label2.BackColor = System.Drawing.Color.Black
		Me.Label2.Text = "There are several configuration options that you can set with this utility.  These options include your messaging window(s), dashboard, player list, sound, hint window, and keyboard and mouse controls.  A shortcut for this utility has been placed in your NetrekXP Mod program group so if you would like to change these options just re-run this utility."
		Me.Label2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label2.ForeColor = System.Drawing.Color.White
		Me.Label2.Size = New System.Drawing.Size(713, 73)
		Me.Label2.Location = New System.Drawing.Point(8, 88)
		Me.Label2.TabIndex = 1
		Me.Label2.Enabled = True
		Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label2.UseMnemonic = True
		Me.Label2.Visible = True
		Me.Label2.AutoSize = False
		Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label2.Name = "Label2"
		Me.Image1.Size = New System.Drawing.Size(132, 70)
		Me.Image1.Location = New System.Drawing.Point(280, 16)
		Me.Image1.Image = CType(resources.GetObject("Image1.Image"), System.Drawing.Image)
		Me.Image1.Enabled = True
		Me.Image1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Image1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.Image1.Visible = True
		Me.Image1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Image1.Name = "Image1"
		Me.pl4.Size = New System.Drawing.Size(507, 225)
		Me.pl4.Location = New System.Drawing.Point(208, 272)
		Me.pl4.Image = CType(resources.GetObject("pl4.Image"), System.Drawing.Image)
		Me.pl4.Visible = False
		Me.pl4.Enabled = True
		Me.pl4.Cursor = System.Windows.Forms.Cursors.Default
		Me.pl4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pl4.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pl4.Name = "pl4"
		Me.pl3.Size = New System.Drawing.Size(508, 223)
		Me.pl3.Location = New System.Drawing.Point(208, 272)
		Me.pl3.Image = CType(resources.GetObject("pl3.Image"), System.Drawing.Image)
		Me.pl3.Enabled = True
		Me.pl3.Cursor = System.Windows.Forms.Cursors.Default
		Me.pl3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pl3.Visible = True
		Me.pl3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pl3.Name = "pl3"
		Me.pl2.Size = New System.Drawing.Size(507, 224)
		Me.pl2.Location = New System.Drawing.Point(208, 272)
		Me.pl2.Image = CType(resources.GetObject("pl2.Image"), System.Drawing.Image)
		Me.pl2.Visible = False
		Me.pl2.Enabled = True
		Me.pl2.Cursor = System.Windows.Forms.Cursors.Default
		Me.pl2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pl2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pl2.Name = "pl2"
		Me.pl1.Size = New System.Drawing.Size(506, 226)
		Me.pl1.Location = New System.Drawing.Point(208, 272)
		Me.pl1.Image = CType(resources.GetObject("pl1.Image"), System.Drawing.Image)
		Me.pl1.Visible = False
		Me.pl1.Enabled = True
		Me.pl1.Cursor = System.Windows.Forms.Cursors.Default
		Me.pl1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pl1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pl1.Name = "pl1"
		Me.Label1.BackColor = System.Drawing.SystemColors.WindowText
		Me.Label1.Text = "PlayerList:"
		Me.Label1.Font = New System.Drawing.Font("Arial", 12!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label1.ForeColor = System.Drawing.Color.Blue
		Me.Label1.Size = New System.Drawing.Size(97, 25)
		Me.Label1.Location = New System.Drawing.Point(16, 200)
		Me.Label1.TabIndex = 0
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label1.Enabled = True
		Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label1.UseMnemonic = True
		Me.Label1.Visible = True
		Me.Label1.AutoSize = False
		Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label1.Name = "Label1"
		Me.Controls.Add(Check4)
		Me.Controls.Add(Check3)
		Me.Controls.Add(Command2)
		Me.Controls.Add(Check2)
		Me.Controls.Add(Check1)
		Me.Controls.Add(Command1)
		Me.Controls.Add(Option4)
		Me.Controls.Add(Option3)
		Me.Controls.Add(Option2)
		Me.Controls.Add(Option1)
		Me.Controls.Add(Label5)
		Me.Controls.Add(Label3)
		Me.Controls.Add(Label4)
		Me.Controls.Add(Label2)
		Me.Controls.Add(Image1)
		Me.Controls.Add(pl4)
		Me.Controls.Add(pl3)
		Me.Controls.Add(pl2)
		Me.Controls.Add(pl1)
		Me.Controls.Add(Label1)
		Me.ResumeLayout(False)
		Me.PerformLayout()
	End Sub
#End Region 
End Class
--- NEW FILE: netrekconfig.suo ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Form3.Designer.vb ---
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class Form3
#Region "Windows Form Designer generated code "
	<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
		MyBase.New()
		'This call is required by the Windows Form Designer.
		InitializeComponent()
	End Sub
	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
[...1310 lines suppressed...]
		Me.Text1.SetIndex(_Text1_13, CType(13, Short))
		Me.Text1.SetIndex(_Text1_12, CType(12, Short))
		Me.Text1.SetIndex(_Text1_11, CType(11, Short))
		Me.Text1.SetIndex(_Text1_10, CType(10, Short))
		Me.Text1.SetIndex(_Text1_9, CType(9, Short))
		Me.Text1.SetIndex(_Text1_8, CType(8, Short))
		Me.Text1.SetIndex(_Text1_7, CType(7, Short))
		Me.Text1.SetIndex(_Text1_6, CType(6, Short))
		Me.Text1.SetIndex(_Text1_5, CType(5, Short))
		Me.Text1.SetIndex(_Text1_4, CType(4, Short))
		Me.Text1.SetIndex(_Text1_3, CType(3, Short))
		Me.Text1.SetIndex(_Text1_2, CType(2, Short))
		Me.Text1.SetIndex(_Text1_1, CType(1, Short))
		Me.Text1.SetIndex(_Text1_0, CType(0, Short))
		CType(Me.Text1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)
		Me.PerformLayout()
	End Sub
#End Region 
End Class
--- NEW FILE: Form3.resX ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: netrekconfig.ico ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: netrekconfig.log ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Form1.Designer.vb ---
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class Form1
#Region "Windows Form Designer generated code "
	<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
		MyBase.New()
		'This call is required by the Windows Form Designer.
		InitializeComponent()
	End Sub
	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
	Public WithEvents Command1 As System.Windows.Forms.Button
	Public WithEvents cmdAdd As System.Windows.Forms.Button
	Public WithEvents dash0 As System.Windows.Forms.RadioButton
	Public WithEvents dash2 As System.Windows.Forms.RadioButton
	Public WithEvents dash1 As System.Windows.Forms.RadioButton
	Public WithEvents dash3 As System.Windows.Forms.RadioButton
	Public WithEvents pic3 As System.Windows.Forms.PictureBox
	Public WithEvents pic2 As System.Windows.Forms.PictureBox
	Public WithEvents pic1 As System.Windows.Forms.PictureBox
	Public WithEvents pic0 As System.Windows.Forms.PictureBox
	Public WithEvents _Label3_1 As System.Windows.Forms.Label
	Public WithEvents _Label1_1 As System.Windows.Forms.Label
	Public WithEvents Frame1 As System.Windows.Forms.Panel
	Public WithEvents Option1 As System.Windows.Forms.RadioButton
	Public WithEvents Option2 As System.Windows.Forms.RadioButton
	Public WithEvents Label5 As System.Windows.Forms.Label
	Public WithEvents Label4 As System.Windows.Forms.Label
	Public WithEvents _Label3_0 As System.Windows.Forms.Label
	Public WithEvents _Label1_0 As System.Windows.Forms.Label
	Public WithEvents separate As System.Windows.Forms.PictureBox
	Public WithEvents one As System.Windows.Forms.PictureBox
	Public WithEvents Image1 As System.Windows.Forms.PictureBox
	Public WithEvents Label1 As Microsoft.VisualBasic.Compatibility.VB6.LabelArray
	Public WithEvents Label3 As Microsoft.VisualBasic.Compatibility.VB6.LabelArray
	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
		Me.components = New System.ComponentModel.Container()
		Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
		Me.Command1 = New System.Windows.Forms.Button
		Me.cmdAdd = New System.Windows.Forms.Button
		Me.Frame1 = New System.Windows.Forms.Panel
		Me.dash0 = New System.Windows.Forms.RadioButton
		Me.dash2 = New System.Windows.Forms.RadioButton
		Me.dash1 = New System.Windows.Forms.RadioButton
		Me.dash3 = New System.Windows.Forms.RadioButton
		Me.pic3 = New System.Windows.Forms.PictureBox
		Me.pic2 = New System.Windows.Forms.PictureBox
		Me.pic1 = New System.Windows.Forms.PictureBox
		Me.pic0 = New System.Windows.Forms.PictureBox
		Me._Label3_1 = New System.Windows.Forms.Label
		Me._Label1_1 = New System.Windows.Forms.Label
		Me.Option1 = New System.Windows.Forms.RadioButton
		Me.Option2 = New System.Windows.Forms.RadioButton
		Me.Label5 = New System.Windows.Forms.Label
		Me.Label4 = New System.Windows.Forms.Label
		Me._Label3_0 = New System.Windows.Forms.Label
		Me._Label1_0 = New System.Windows.Forms.Label
		Me.separate = New System.Windows.Forms.PictureBox
		Me.one = New System.Windows.Forms.PictureBox
		Me.Image1 = New System.Windows.Forms.PictureBox
		Me.Label1 = New Microsoft.VisualBasic.Compatibility.VB6.LabelArray(components)
		Me.Label3 = New Microsoft.VisualBasic.Compatibility.VB6.LabelArray(components)
		Me.Frame1.SuspendLayout()
		Me.SuspendLayout()
		Me.ToolTip1.Active = True
		CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
		Me.BackColor = System.Drawing.Color.Black
		Me.Text = "Netrek Configuration Utility (Page 1 of 3)"
		Me.ClientSize = New System.Drawing.Size(722, 672)
		Me.Location = New System.Drawing.Point(157, 32)
		Me.Icon = CType(resources.GetObject("Form1.Icon"), System.Drawing.Icon)
		Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
		Me.ControlBox = True
		Me.Enabled = True
		Me.KeyPreview = False
		Me.MaximizeBox = True
		Me.MinimizeBox = True
		Me.Cursor = System.Windows.Forms.Cursors.Default
		Me.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.ShowInTaskbar = True
		Me.HelpButton = False
		Me.WindowState = System.Windows.Forms.FormWindowState.Normal
		Me.Name = "Form1"
		Me.Command1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command1.Text = "Cancel"
		Me.Command1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Command1.Size = New System.Drawing.Size(73, 25)
		Me.Command1.Location = New System.Drawing.Point(352, 632)
		Me.Command1.TabIndex = 13
		Me.Command1.BackColor = System.Drawing.SystemColors.Control
		Me.Command1.CausesValidation = True
		Me.Command1.Enabled = True
		Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command1.TabStop = True
		Me.Command1.Name = "Command1"
		Me.cmdAdd.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.cmdAdd.Text = "Next"
		Me.cmdAdd.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.cmdAdd.Size = New System.Drawing.Size(73, 25)
		Me.cmdAdd.Location = New System.Drawing.Point(264, 632)
		Me.cmdAdd.TabIndex = 12
		Me.cmdAdd.BackColor = System.Drawing.SystemColors.Control
		Me.cmdAdd.CausesValidation = True
		Me.cmdAdd.Enabled = True
		Me.cmdAdd.ForeColor = System.Drawing.SystemColors.ControlText
		Me.cmdAdd.Cursor = System.Windows.Forms.Cursors.Default
		Me.cmdAdd.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.cmdAdd.TabStop = True
		Me.cmdAdd.Name = "cmdAdd"
		Me.Frame1.BackColor = System.Drawing.SystemColors.ControlText
		Me.Frame1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Frame1.Text = "Frame1"
		Me.Frame1.Size = New System.Drawing.Size(721, 161)
		Me.Frame1.Location = New System.Drawing.Point(8, 464)
		Me.Frame1.TabIndex = 4
		Me.Frame1.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Frame1.Enabled = True
		Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Frame1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Frame1.Visible = True
		Me.Frame1.Name = "Frame1"
		Me.dash0.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash0.BackColor = System.Drawing.SystemColors.ControlText
		Me.dash0.Text = "Text Dashboard"
		Me.dash0.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.dash0.ForeColor = System.Drawing.SystemColors.highlightText
		Me.dash0.Size = New System.Drawing.Size(121, 17)
		Me.dash0.Location = New System.Drawing.Point(8, 96)
		Me.dash0.TabIndex = 8
		Me.dash0.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash0.CausesValidation = True
		Me.dash0.Enabled = True
		Me.dash0.Cursor = System.Windows.Forms.Cursors.Default
		Me.dash0.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.dash0.Appearance = System.Windows.Forms.Appearance.Normal
		Me.dash0.TabStop = True
		Me.dash0.Checked = False
		Me.dash0.Visible = True
		Me.dash0.Name = "dash0"
		Me.dash2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash2.BackColor = System.Drawing.SystemColors.ControlText
		Me.dash2.Text = "KRP Dashboard"
		Me.dash2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.dash2.ForeColor = System.Drawing.SystemColors.highlightText
		Me.dash2.Size = New System.Drawing.Size(121, 17)
		Me.dash2.Location = New System.Drawing.Point(8, 144)
		Me.dash2.TabIndex = 7
		Me.dash2.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash2.CausesValidation = True
		Me.dash2.Enabled = True
		Me.dash2.Cursor = System.Windows.Forms.Cursors.Default
		Me.dash2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.dash2.Appearance = System.Windows.Forms.Appearance.Normal
		Me.dash2.TabStop = True
		Me.dash2.Checked = False
		Me.dash2.Visible = True
		Me.dash2.Name = "dash2"
		Me.dash1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash1.BackColor = System.Drawing.SystemColors.ControlText
		Me.dash1.Text = "COW Dashboard"
		Me.dash1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.dash1.ForeColor = System.Drawing.SystemColors.highlightText
		Me.dash1.Size = New System.Drawing.Size(129, 17)
		Me.dash1.Location = New System.Drawing.Point(8, 120)
		Me.dash1.TabIndex = 6
		Me.dash1.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash1.CausesValidation = True
		Me.dash1.Enabled = True
		Me.dash1.Cursor = System.Windows.Forms.Cursors.Default
		Me.dash1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.dash1.Appearance = System.Windows.Forms.Appearance.Normal
		Me.dash1.TabStop = True
		Me.dash1.Checked = False
		Me.dash1.Visible = True
		Me.dash1.Name = "dash1"
		Me.dash3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash3.BackColor = System.Drawing.SystemColors.ControlText
		Me.dash3.Text = "Labs Dashboard (Default)"
		Me.dash3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.dash3.ForeColor = System.Drawing.SystemColors.highlightText
		Me.dash3.Size = New System.Drawing.Size(169, 17)
		Me.dash3.Location = New System.Drawing.Point(8, 72)
		Me.dash3.TabIndex = 5
		Me.dash3.Checked = True
		Me.dash3.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.dash3.CausesValidation = True
		Me.dash3.Enabled = True
		Me.dash3.Cursor = System.Windows.Forms.Cursors.Default
		Me.dash3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.dash3.Appearance = System.Windows.Forms.Appearance.Normal
		Me.dash3.TabStop = True
		Me.dash3.Visible = True
		Me.dash3.Name = "dash3"
		Me.pic3.Size = New System.Drawing.Size(514, 49)
		Me.pic3.Location = New System.Drawing.Point(184, 104)
		Me.pic3.Image = CType(resources.GetObject("pic3.Image"), System.Drawing.Image)
		Me.pic3.Enabled = True
		Me.pic3.Cursor = System.Windows.Forms.Cursors.Default
		Me.pic3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pic3.Visible = True
		Me.pic3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pic3.Name = "pic3"
		Me.pic2.Size = New System.Drawing.Size(511, 46)
		Me.pic2.Location = New System.Drawing.Point(184, 104)
		Me.pic2.Image = CType(resources.GetObject("pic2.Image"), System.Drawing.Image)
		Me.pic2.Visible = False
		Me.pic2.Enabled = True
		Me.pic2.Cursor = System.Windows.Forms.Cursors.Default
		Me.pic2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pic2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pic2.Name = "pic2"
		Me.pic1.Size = New System.Drawing.Size(510, 45)
		Me.pic1.Location = New System.Drawing.Point(184, 104)
		Me.pic1.Image = CType(resources.GetObject("pic1.Image"), System.Drawing.Image)
		Me.pic1.Visible = False
		Me.pic1.Enabled = True
		Me.pic1.Cursor = System.Windows.Forms.Cursors.Default
		Me.pic1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pic1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pic1.Name = "pic1"
		Me.pic0.Size = New System.Drawing.Size(510, 48)
		Me.pic0.Location = New System.Drawing.Point(184, 104)
		Me.pic0.Image = CType(resources.GetObject("pic0.Image"), System.Drawing.Image)
		Me.pic0.Visible = False
		Me.pic0.Enabled = True
		Me.pic0.Cursor = System.Windows.Forms.Cursors.Default
		Me.pic0.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.pic0.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.pic0.Name = "pic0"
		Me._Label3_1.BackColor = System.Drawing.SystemColors.ControlText
		Me._Label3_1.Text = "There are four different dashboards available with this utility.  Please select the radio buttons below to view screenshots of each dashboard."
		Me._Label3_1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._Label3_1.ForeColor = System.Drawing.SystemColors.highlightText
		Me._Label3_1.Size = New System.Drawing.Size(441, 33)
		Me._Label3_1.Location = New System.Drawing.Point(8, 32)
		Me._Label3_1.TabIndex = 10
		Me._Label3_1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._Label3_1.Enabled = True
		Me._Label3_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._Label3_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._Label3_1.UseMnemonic = True
		Me._Label3_1.Visible = True
		Me._Label3_1.AutoSize = False
		Me._Label3_1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._Label3_1.Name = "_Label3_1"
		Me._Label1_1.BackColor = System.Drawing.Color.Black
		Me._Label1_1.Text = "Dashboard:"
		Me._Label1_1.Font = New System.Drawing.Font("Arial", 12!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._Label1_1.ForeColor = System.Drawing.Color.Blue
		Me._Label1_1.Size = New System.Drawing.Size(97, 25)
		Me._Label1_1.Location = New System.Drawing.Point(16, 8)
		Me._Label1_1.TabIndex = 9
		Me._Label1_1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._Label1_1.Enabled = True
		Me._Label1_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._Label1_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._Label1_1.UseMnemonic = True
		Me._Label1_1.Visible = True
		Me._Label1_1.AutoSize = False
		Me._Label1_1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._Label1_1.Name = "_Label1_1"
		Me.Option1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option1.BackColor = System.Drawing.Color.Black
		Me.Option1.Text = "Separate Message Windows (Default)"
		Me.Option1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Option1.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Option1.Size = New System.Drawing.Size(241, 25)
		Me.Option1.Location = New System.Drawing.Point(16, 288)
		Me.Option1.TabIndex = 1
		Me.Option1.Checked = True
		Me.Option1.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option1.CausesValidation = True
		Me.Option1.Enabled = True
		Me.Option1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Option1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Option1.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Option1.TabStop = True
		Me.Option1.Visible = True
		Me.Option1.Name = "Option1"
		Me.Option2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option2.BackColor = System.Drawing.Color.Black
		Me.Option2.Text = "One Message Window"
		Me.Option2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Option2.ForeColor = System.Drawing.SystemColors.highlightText
		Me.Option2.Size = New System.Drawing.Size(177, 17)
		Me.Option2.Location = New System.Drawing.Point(16, 312)
		Me.Option2.TabIndex = 0
		Me.Option2.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
		Me.Option2.CausesValidation = True
		Me.Option2.Enabled = True
		Me.Option2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Option2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Option2.Appearance = System.Windows.Forms.Appearance.Normal
		Me.Option2.TabStop = True
		Me.Option2.Checked = False
		Me.Option2.Visible = True
		Me.Option2.Name = "Option2"
		Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label5.BackColor = System.Drawing.Color.Black
		Me.Label5.Text = "There are several configuration options that you can set with this utility.  These options include your messaging window(s), dashboard, player list, sound, hint window, and keyboard and mouse controls.  A shortcut for this utility has been placed in your NetrekXP Mod program group so if you would like to change these options just re-run this utility."
		Me.Label5.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label5.ForeColor = System.Drawing.Color.White
		Me.Label5.Size = New System.Drawing.Size(713, 57)
		Me.Label5.Location = New System.Drawing.Point(0, 88)
		Me.Label5.TabIndex = 14
		Me.Label5.Enabled = True
		Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label5.UseMnemonic = True
		Me.Label5.Visible = True
		Me.Label5.AutoSize = False
		Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label5.Name = "Label5"
		Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label4.BackColor = System.Drawing.SystemColors.ControlText
		Me.Label4.Text = "NOTE:  This will place a fresh copy of the netrekrc file in your Netrek install directory.  If you have made any changes to this file they will be overwritten.  A copy of your old netrekrc file will be saved as netrekrc.sav.  If this is your first time installing please choose your configuration below and click on the Next button."
		Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label4.ForeColor = System.Drawing.Color.FromARGB(255, 128, 128)
		Me.Label4.Size = New System.Drawing.Size(713, 41)
		Me.Label4.Location = New System.Drawing.Point(0, 152)
		Me.Label4.TabIndex = 11
		Me.Label4.Enabled = True
		Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label4.UseMnemonic = True
		Me.Label4.Visible = True
		Me.Label4.AutoSize = False
		Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label4.Name = "Label4"
		Me._Label3_0.BackColor = System.Drawing.Color.Black
		Me._Label3_0.Text = "There are two message window options with this configuration utility, separated message windows and one message window.  Selecting the radio buttons below will show you a screen shot of each option.  "
		Me._Label3_0.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._Label3_0.ForeColor = System.Drawing.SystemColors.highlightText
		Me._Label3_0.Size = New System.Drawing.Size(409, 49)
		Me._Label3_0.Location = New System.Drawing.Point(8, 240)
		Me._Label3_0.TabIndex = 3
		Me._Label3_0.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._Label3_0.Enabled = True
		Me._Label3_0.Cursor = System.Windows.Forms.Cursors.Default
		Me._Label3_0.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._Label3_0.UseMnemonic = True
		Me._Label3_0.Visible = True
		Me._Label3_0.AutoSize = False
		Me._Label3_0.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._Label3_0.Name = "_Label3_0"
		Me._Label1_0.BackColor = System.Drawing.Color.Black
		Me._Label1_0.Text = "Message Windows:"
		Me._Label1_0.Font = New System.Drawing.Font("Arial", 12!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._Label1_0.ForeColor = System.Drawing.Color.Blue
		Me._Label1_0.Size = New System.Drawing.Size(161, 25)
		Me._Label1_0.Location = New System.Drawing.Point(16, 216)
		Me._Label1_0.TabIndex = 2
		Me._Label1_0.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._Label1_0.Enabled = True
		Me._Label1_0.Cursor = System.Windows.Forms.Cursors.Default
		Me._Label1_0.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._Label1_0.UseMnemonic = True
		Me._Label1_0.Visible = True
		Me._Label1_0.AutoSize = False
		Me._Label1_0.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._Label1_0.Name = "_Label1_0"
		Me.separate.Size = New System.Drawing.Size(361, 157)
		Me.separate.Location = New System.Drawing.Point(296, 288)
		Me.separate.Image = CType(resources.GetObject("separate.Image"), System.Drawing.Image)
		Me.separate.Enabled = True
		Me.separate.Cursor = System.Windows.Forms.Cursors.Default
		Me.separate.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.separate.Visible = True
		Me.separate.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.separate.Name = "separate"
		Me.one.Size = New System.Drawing.Size(357, 155)
		Me.one.Location = New System.Drawing.Point(296, 288)
		Me.one.Image = CType(resources.GetObject("one.Image"), System.Drawing.Image)
		Me.one.Visible = False
		Me.one.Enabled = True
		Me.one.Cursor = System.Windows.Forms.Cursors.Default
		Me.one.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.one.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.one.Name = "one"
		Me.Image1.Size = New System.Drawing.Size(132, 70)
		Me.Image1.Location = New System.Drawing.Point(280, 16)
		Me.Image1.Image = CType(resources.GetObject("Image1.Image"), System.Drawing.Image)
		Me.Image1.Enabled = True
		Me.Image1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Image1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
		Me.Image1.Visible = True
		Me.Image1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Image1.Name = "Image1"
		Me.Controls.Add(Command1)
		Me.Controls.Add(cmdAdd)
		Me.Controls.Add(Frame1)
		Me.Controls.Add(Option1)
		Me.Controls.Add(Option2)
		Me.Controls.Add(Label5)
		Me.Controls.Add(Label4)
		Me.Controls.Add(_Label3_0)
		Me.Controls.Add(_Label1_0)
		Me.Controls.Add(separate)
		Me.Controls.Add(one)
		Me.Controls.Add(Image1)
		Me.Frame1.Controls.Add(dash0)
		Me.Frame1.Controls.Add(dash2)
		Me.Frame1.Controls.Add(dash1)
		Me.Frame1.Controls.Add(dash3)
		Me.Frame1.Controls.Add(pic3)
		Me.Frame1.Controls.Add(pic2)
		Me.Frame1.Controls.Add(pic1)
		Me.Frame1.Controls.Add(pic0)
		Me.Frame1.Controls.Add(_Label3_1)
		Me.Frame1.Controls.Add(_Label1_1)
		Me.Label1.SetIndex(_Label1_1, CType(1, Short))
		Me.Label1.SetIndex(_Label1_0, CType(0, Short))
		Me.Label3.SetIndex(_Label3_1, CType(1, Short))
		Me.Label3.SetIndex(_Label3_0, CType(0, Short))
		CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.Frame1.ResumeLayout(False)
		Me.ResumeLayout(False)
		Me.PerformLayout()
	End Sub
#End Region 
End Class
--- NEW FILE: Form3.vb ---
Option Strict Off
Option Explicit On
Friend Class Form3
	Inherits System.Windows.Forms.Form
	' Netrek Configurator v1.0 - written by Joe Evango
	'
	' Program notes from Joe 4/30/06-
	' Code contains some comments, pretty easy to follow the logic.
	' I am currently using a config directory that contains two netrekrc files, netrek.one and netrek.sep.
	' This is done for the two messaging window configs.  This should be easy enough to implement into the code
	' in order to eliminate the extra sub directory and files if someone has time.
	'
	' This utility writes to the netrekrc file and assumes it is in located the same folder as the utility so if the
	' netrekrc file does not exist the utility will not run properly and error out.  When it is run it will also save
	' your old netrekrc file as netrek.sav.
	'
	' Since Netrek code has always been freely shared in the community I will do the same with this config utility.
	' Please feel free to help improve the utility and/or include the utility as an add-on if you are working on
	' a Windows client.  Also feel free to use the logic in this code to create a config utility for another OS.  It
	' took a while to put the keymap portion of this together but it works well. I only ask that if any modifications
	' are made you also make your code changes available to the community.  It would also be nice if I was mentioned as
	' a contributor in your code comments.
	
	
	
	'Keymap configuration
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Dim fnum2 As Object
		Dim fnum3 As Object
		
		Dim FileName As String
		Dim Application As String
		Dim keymap As String
		Dim buttonmap As String
		Dim torpedo As String
		Dim phaser As String
		Dim shield As String
		Dim bomb As String
		Dim cloak As String
		Dim drop As String
		Dim pickup As String
		Dim tractor As String
		Dim pressor As String
		Dim maxwarp As String
		Dim halfspeed As String
		Dim repair As String
		Dim refit As String
		Dim tlock As String
		Dim info As String
		Dim quit As String
		Dim detown As String
		Dim detenemy As String
		Dim plasma As String
		Dim warp0 As String
		Dim warp2 As String
		Dim warp3 As String
		Dim warp4 As String
		
		Dim print1 As String
		Dim print2 As String
		
		Dim keymap1 As String
		Dim keymap2 As String
		Dim keymap3 As String
		Dim keymap4 As String
		Dim keymap5 As String
		Dim keymap6 As String
		Dim keymap7 As String
		Dim keymap8 As String
		Dim keymap9 As String
		Dim keymap10 As String
		Dim keymap11 As String
		Dim keymap12 As String
		Dim keymap13 As String
		Dim keymap14 As String
		Dim keymap15 As String
		Dim keymap16 As String
		Dim keymap17 As String
		Dim keymap18 As String
		Dim keymap19 As String
		Dim keymap20 As String
		Dim keymap21 As String
		Dim keymap22 As String
		Dim keymap23 As String
		
		Dim mousetag As String
		Dim keytag As String
		Dim configtag As String
		
		
		Dim a As Short
		Dim b As Short
		Dim c As Short
		
		Dim m As String
		Dim h As String
		
		Dim duplicate As Short
		Dim speckey As Short
		
		Dim currentdate As String
		
		currentdate = CStr(Today)
		'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		fnum3 = FreeFile
		'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		fnum2 = FreeFile
		
		m = "m"
		h = "h"
		
		torpedo = "t"
		phaser = "f"
		shield = "s"
		bomb = "b"
		cloak = "c"
		drop = "x"
		pickup = "z"
		tractor = "T"
		pressor = "y"
		maxwarp = "@"
		halfspeed = "#"
		repair = "R"
		refit = "r"
		tlock = "l"
		info = "i"
		quit = "\"
		detown = "D"
		detenemy = "d"
		plasma = "g"
		warp0 = "0"
		warp2 = "2"
		warp3 = "3"
		warp4 = "4"
		
		FileName = ".\controls.txt"
		Application = "Notepad.exe"
		
		If torpedo = Text1(0).Text Then
			keymap1 = ""
		Else
			keymap1 = Text1(0).Text & torpedo
		End If
		
		If phaser = Text1(1).Text Then
			keymap2 = ""
		Else
			keymap2 = Text1(1).Text & phaser
		End If
		
		
		If shield = Text1(2).Text Then
			keymap3 = ""
		Else
			keymap3 = Text1(2).Text & shield
		End If
		
		If bomb = Text1(3).Text Then
			keymap4 = ""
		Else
			keymap4 = Text1(3).Text & bomb
		End If
		
		If cloak = Text1(4).Text Then
			keymap5 = ""
		Else
			keymap5 = Text1(4).Text & cloak
		End If
		
		If drop = Text1(5).Text Then
			keymap6 = ""
		Else
			keymap6 = Text1(5).Text & drop
		End If
		
		If pickup = Text1(6).Text Then
			keymap7 = ""
		Else
			keymap7 = Text1(6).Text & pickup
		End If
		
		If pressor = Text1(7).Text Then
			keymap8 = ""
		Else
			keymap8 = Text1(7).Text & pressor
		End If
		
		If tractor = Text1(8).Text Then
			keymap9 = ""
		Else
			keymap9 = Text1(8).Text & tractor
		End If
		
		If maxwarp = Text1(9).Text Then
			keymap10 = ""
		Else
			keymap10 = Text1(9).Text & maxwarp
		End If
		
		If halfspeed = Text1(10).Text Then
			keymap11 = ""
		Else
			keymap11 = Text1(10).Text & halfspeed
		End If
		
		If repair = Text1(11).Text Then
			keymap12 = ""
		Else
			keymap12 = Text1(11).Text & repair
		End If
		
		If refit = Text1(12).Text Then
			keymap13 = ""
		Else
			keymap13 = Text1(12).Text & refit
		End If
		
		If tlock = Text1(13).Text Then
			keymap14 = ""
		Else
			keymap14 = Text1(14).Text & tlock
		End If
		
		If info = Text1(14).Text Then
			keymap15 = ""
		Else
			keymap15 = Text1(14).Text & info
		End If
		
		If quit = Text1(15).Text Then
			keymap16 = ""
		Else
			keymap16 = Text1(15).Text & quit
		End If
		
		If detown = Text1(16).Text Then
			keymap17 = ""
		Else
			keymap17 = Text1(16).Text & detown
		End If
		
		If detenemy = Text1(17).Text Then
			keymap18 = ""
		Else
			keymap18 = Text1(17).Text & detenemy
		End If
		
		If plasma = Text1(18).Text Then
			keymap19 = ""
		Else
			keymap19 = Text1(18).Text & plasma
		End If
		
		If warp0 = Text1(19).Text Then
			keymap20 = ""
		Else
			keymap20 = Text1(19).Text & warp0
		End If
		
		If warp2 = Text1(20).Text Then
			keymap21 = ""
		Else
			keymap21 = Text1(20).Text & warp2
		End If
		
		If warp3 = Text1(21).Text Then
			keymap22 = ""
		Else
			keymap22 = Text1(21).Text & warp3
		End If
		
		If warp4 = Text1(22).Text Then
			keymap23 = ""
		Else
			keymap23 = Text1(22).Text & warp4
		End If
		
		
		
		speckey = 0
		duplicate = 0
		For a = 0 To 22
			For b = 0 To 22
				If a <> b And Text1(a).Text = Text1(b).Text Then
					duplicate = 1
					Exit For
				End If
			Next b
			If duplicate = 1 Then
				MsgBox("The key '" & Text1(a).Text & "' is defined more than once.  This will cause problems while playing.  Please remove the duplicate controls and click on Finish.")
				Exit For
			End If
		Next a
		
		
		For c = 0 To 22
			If Text1(c).Text = "m" Then
				speckey = 1
			End If
			If Text1(c).Text = "h" Then
				speckey = 1
			End If
			If Text1(c).Text = "w" Then
				speckey = 1
			End If
			If speckey = 1 Then
				MsgBox("You cannot use the 'm', 'h', or 'w' keys.  These are used for messaging, help, and war declarations.  Please assign different keys to these controls.")
				Exit For
			End If
		Next c
		
		
		If duplicate = 0 And speckey = 0 Then
			' Open the file for append.
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			FileOpen(fnum2, ".\netrekrc", OpenMode.Append)
			' Add the command.
			If Combo1.Text = "Torpedoes" Then
				buttonmap = "buttonmap:" & "1" & Text1(0).Text
			End If
			If Combo1.Text = "Phasers" Then
				buttonmap = "buttonmap:" & "1" & Text1(1).Text
			End If
			
			keymap = "keymap:" & "\Qq0Q0gffp" & keymap1 & keymap2 & keymap3 & keymap4 & keymap5 & keymap6 & keymap7 & keymap8 & keymap9 & keymap10 & keymap11 & keymap12 & keymap13 & keymap14 & keymap15 & keymap16 & keymap17 & keymap18 & keymap19 & keymap20 & keymap21 & keymap22 & keymap23
			keytag = "###Keymap added by the Netrek Configurator on " & currentdate
			mousetag = "###Buttonmap added by the Netrek Configurator on " & currentdate
			
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum2, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum2, keytag)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum2, keymap)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum2, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum2, mousetag)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum2, buttonmap)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum2. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			FileClose(fnum2)
			
			' Opens the controls you chose in notepad for reference
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			FileOpen(fnum3, ".\controls.txt", OpenMode.Output)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "These are the controls you have chosen:")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Mouse Controls:")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Left Button     -  " & Combo1.Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Middle Button   -  " & "Unmap Special Windows (i.e. Close tip window)")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Right Button    -  " & "Steer")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Keyboard Controls:")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Messaging            -  " & "m (Be sure to hold your mouse cursor over")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "the Galaxy or Tactical maps when you press 'm'.")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "After pressing 'm' type 'A' to send messages to")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "the All Window, type 'T' to send messages")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "to the Team Window, or type the letter/number")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "of the player you would like to send a message to.")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "After you type A, T, or the player letter/number, ")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "                           " & "type your message and press enter.)")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Help                 -  " & "h")
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Torpedoes            -  " & Text1(0).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Phasers              -  " & Text1(1).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Shield               -  " & Text1(2).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Bomb                 -  " & Text1(3).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Cloak                -  " & Text1(4).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Drop Armies          -  " & Text1(5).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Pickup Armies        -  " & Text1(6).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Detonate Own Torps   -  " & Text1(16).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Detonate Enemy Torps -  " & Text1(17).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Tractor              -  " & Text1(8).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Pressor              -  " & Text1(7).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Repair               -  " & Text1(11).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Refit Ship Type      -  " & Text1(12).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Lock on Target       -  " & Text1(13).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Target Info          -  " & Text1(14).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Max Warp             -  " & Text1(9).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Half Speed           -  " & Text1(10).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Quit                 -  " & Text1(15).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Plasma               -  " & Text1(18).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, Chr(13))
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Warp 0               -  " & Text1(19).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Warp 2               -  " & Text1(20).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Warp 3               -  " & Text1(21).Text)
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			PrintLine(fnum3, "Warp 4               -  " & Text1(22).Text)
			
			'UPGRADE_WARNING: Couldn't resolve default property of object fnum3. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			FileClose(fnum3)
			
			
			Me.Close()
			MsgBox("YOUR CONFIGURATION HAS BEEN CREATED!  After you click on OK a document with the controls you have chosen will open.  A shortcut to this document has been created in your Netrek Config Utility program group.  If you need additional assistance please visit www.netrek.org.")
			Shell(Application & " " & FileName, AppWinStyle.NormalFocus)
		Else
		End If
	End Sub
End Class
--- NEW FILE: Form1.vb ---
Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
	' Netrek Configurator v1.0 - written by Joe Evango
	'
	' Program notes from Joe 4/30/06-
	' Code contains some comments, pretty easy to follow the logic.
	' I am currently using a config directory that contains two netrekrc files, netrek.one and netrek.sep.
	' This is done for the two messaging window configs.  This should be easy enough to implement into the code
	' in order to eliminate the extra sub directory and files if someone has time.
	'
	' This utility writes to the netrekrc file and assumes it is in located the same folder as the utility so if the
	' netrekrc file does not exist the utility will not run properly and error out.  When it is run it will also save
	' your old netrekrc file as netrek.sav.
	'
	' Since Netrek code has always been freely shared in the community I will do the same with this config utility.
	' Please feel free to help improve the utility and/or include the utility as an add-on if you are working on
	' a Windows client.  Also feel free to use the logic in this code to create a config utility for another OS.  It
	' took a while to put the keymap portion of this together but it works well. I only ask that if any modifications
	' are made you also make your code changes available to the community.  It would also be nice if I was mentioned as
	' a contributor in your code comments.
	
	
	Dim screen As Short
	Dim dash As Short
	
	
	
	
	
	
	
	Private Sub cmdAdd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAdd.Click
		Dim fnum As Short
		Dim txt As String
		Dim configtag As String
		Dim currentdate As String
		currentdate = CStr(Today)
		
		fnum = FreeFile
		
		' Three section message window, saves your old netrekrc
		If screen = 0 Then
			FileCopy(".\netrekrc", ".\netrekrc.sav")
			FileCopy(".\configs\netrekrc.sep", ".\netrekrc")
		Else
			' One section message window, saves your old netrekrc
			FileCopy(".\netrekrc", ".\netrekrc.sav")
			FileCopy(".\configs\netrekrc.one", ".\netrekrc")
		End If
		
		
		' Open the file for append.
		FileOpen(fnum, ".\netrekrc", OpenMode.Append)
		' Add the command.
		If dash = 0 Then
			txt = "newdashboard:  0"
		End If
		
		If dash = 1 Then
			txt = "newdashboard:  1"
		End If
		
		If dash = 2 Then
			txt = "newdashboard:  2"
		End If
		
		If dash = 3 Then
			txt = "newdashboard:  3"
			
			
		End If
		
		configtag = "###Configuration changes added by the Netrek Configurator on " & currentdate
		
		PrintLine(fnum, Chr(13))
		PrintLine(fnum, configtag)
		PrintLine(fnum, Chr(13))
		PrintLine(fnum, txt)
		
		' Close the file.
		FileClose(fnum)
		
		'    MsgBox "Your configuration has been saved"
		
		Form2.Show()
		Me.Close()
	End Sub
	
	
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Me.Close()
	End Sub
	' Pick a dashboard
	'UPGRADE_WARNING: Event dash0.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub dash0_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dash0.CheckedChanged
		If eventSender.Checked Then
			dash = 0
			pic0.Visible = True
			pic1.Visible = False
			pic2.Visible = False
			pic3.Visible = False
		End If
	End Sub
	
	'UPGRADE_WARNING: Event dash1.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub dash1_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dash1.CheckedChanged
		If eventSender.Checked Then
			dash = 1
			pic0.Visible = False
			pic1.Visible = True
			pic2.Visible = False
			pic3.Visible = False
		End If
	End Sub
	
	'UPGRADE_WARNING: Event dash2.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub dash2_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dash2.CheckedChanged
		If eventSender.Checked Then
			dash = 2
			pic0.Visible = False
			pic1.Visible = False
			pic2.Visible = True
			pic3.Visible = False
		End If
	End Sub
	
	'UPGRADE_WARNING: Event dash3.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub dash3_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dash3.CheckedChanged
		If eventSender.Checked Then
			dash = 3
			pic0.Visible = False
			pic1.Visible = False
			pic2.Visible = False
			pic3.Visible = True
		End If
	End Sub
	
	
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		dash = 3
	End Sub
	
	'UPGRADE_WARNING: Event Option1.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Option1_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option1.CheckedChanged
		If eventSender.Checked Then
			screen = 0
			one.Visible = False
			separate.Visible = True
		End If
	End Sub
	
	'UPGRADE_WARNING: Event Option2.CheckedChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
	Private Sub Option2_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option2.CheckedChanged
		If eventSender.Checked Then
			screen = 1
			separate.Visible = False
			one.Visible = True
		End If
	End Sub
End Class
--- NEW FILE: netrekconfig.sln ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Form2.resX ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: _UpgradeReport.htm ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: netrekconfig.vbproj ---
(This appears to be a binary file; contents omitted.)