Form

Private Sub ShowSettings()

Load Settings

Settings.Show

End Sub

Private Sub ButtonCancel_Click()

Unload Settings

End Sub

Private Sub ButtonSaveAndClose_Click()

Call ButtonSave_Click ' Save all values

Settings.Hide ' Then hide the Settings Window

If AutoLoginToTPX Then Call Login_to_TPX

Unload Settings

End Sub

Private Sub ButtonSave_Click()

Call SaveCredentials

End Sub

Private Sub ButtonShowPassChars_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

EditBoxEmeraldPass.PasswordChar = ""

EditBoxHoganPass.PasswordChar = ""

EditBoxFDRPass.PasswordChar = ""

End Sub

Private Sub ButtonShowPassChars_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

EditBoxEmeraldPass.PasswordChar = "*"

EditBoxHoganPass.PasswordChar = "*"

EditBoxFDRPass.PasswordChar = "*"

End Sub

Private Sub CheckBoxAutoSignon_AfterUpdate()

If CheckBoxAutoSignon.Value = True Then

CheckBoxRememberEmeraldPass.Value = True ' These must be enabled

CheckBoxRememberHoganPass.Value = True ' in order to sign on

CheckBoxRememberFDRPass.Value = True ' automatically.

End If

End Sub

'If user selects FL checkbox, disable all other checkboxes

Private Sub CheckBoxFL_AfterUpdate()

If CheckBoxFL.Value = True Then

CheckBoxNC.Value = False

CheckBoxNJ.Value = False

CheckBoxVA.Value = False

End If

End Sub

'If user selects NC checkbox, disable all other checkboxes

Private Sub CheckBoxNC_AfterUpdate()

If CheckBoxNC.Value = True Then

CheckBoxFL.Value = False

CheckBoxNJ.Value = False

CheckBoxVA.Value = False

End If

End Sub

'If user selects NJ checkbox, disable all other checkboxes

Private Sub CheckBoxNJ_AfterUpdate()

If CheckBoxNJ.Value = True Then

CheckBoxFL.Value = False

CheckBoxNC.Value = False

CheckBoxVA.Value = False

End If

End Sub

Private Sub EditBoxEmeraldPass_Change()

CheckBoxSyncPWs.Value = False

End Sub

'If user checks box to sync all PWs, disable Hogan and FDR input boxes and check boxes

Private Sub CheckBoxSyncPWs_Change()

If CheckBoxSyncPWs.Value = True Then

EditBoxHoganPass.Value = EditBoxEmeraldPass.Value

EditBoxHoganPass.Enabled = False

CheckBoxRememberHoganPass.Value = CheckBoxRememberEmeraldPass.Value

CheckBoxRememberHoganPass.Enabled = False

CheckBoxRememberHoganPass.Caption = "Synced"

EditBoxFDRPass.Value = EditBoxEmeraldPass.Value

EditBoxFDRPass.Enabled = False

CheckBoxRememberFDRPass.Value = CheckBoxRememberEmeraldPass.Value

CheckBoxRememberFDRPass.Enabled = False

CheckBoxRememberFDRPass.Caption = "Synced"

Else 'If box is unchecked, re-enable Hogan and FDR boxes

EditBoxHoganPass.Enabled = True

CheckBoxRememberHoganPass.Enabled = True

CheckBoxRememberHoganPass.Caption = "Remember"

EditBoxFDRPass.Enabled = True

CheckBoxRememberFDRPass.Enabled = True

CheckBoxRememberFDRPass.Caption = "Remember"

End If

End Sub

'If user selects VA checkbox, disable all other checkboxes

Private Sub CheckBoxVA_AfterUpdate()

If CheckBoxVA.Value = True Then

CheckBoxFL.Value = False

CheckBoxNC.Value = False

CheckBoxNJ.Value = False

End If

End Sub

Private Sub EditBoxName_Change()

End Sub

Private Sub UserForm_Initialize()

If Not SignedOn Then Call ReadCredentials ' Defined in Reflection module; initializes variables UserProfile, MyDocumentsPath, CredentialsFile

EditBoxName.Text = UName

CheckBoxAutoSignon.Value = AutoSignOn

CheckBoxAutoLoginToTPX.Value = AutoLoginToTPX

EditBoxANum.Text = Anumber

EditBoxEmeraldPass.Text = EmeraldPassword

CheckBoxRememberEmeraldPass.Value = RememberEmeraldPassword

EditBoxWelsID.Text = WelsID

EditBoxHoganPass.Text = HoganPassword

CheckBoxRememberHoganPass.Value = RememberHoganPassword

EditBoxFDRUserName.Text = FDRUserName

EditBoxFDRPass.Text = FDRPassword

CheckBoxRememberFDRPass.Value = RememberFDRPassword

If Location = "FL" Then CheckBoxFL.Value = True

If Location = "NC" Then CheckBoxNC.Value = True

If Location = "NJ" Then CheckBoxNJ.Value = True

If Location = "VA" Then CheckBoxVA.Value = True

End Sub