VERSION 5.00
Begin VB.Form frmConfig 
   BackColor       =   &H00404040&
   BorderStyle     =   0  'None
   Caption         =   "Configurações"
   ClientHeight    =   9120
   ClientLeft      =   4110
   ClientTop       =   3270
   ClientWidth     =   8475
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmConfig.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   608
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   565
   ShowInTaskbar   =   0   'False
   Tag             =   $"frmConfig.frx":08CA
   Begin VB.PictureBox picMainHolder 
      Appearance      =   0  'Flat
      BackColor       =   &H00404040&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   6810
      Index           =   2
      Left            =   -9000
      ScaleHeight     =   6810
      ScaleWidth      =   8475
      TabIndex        =   70
      Top             =   855
      Width           =   8475
      Begin Synapsis.RotativeLabel rotMain 
         Height          =   345
         Index           =   2
         Left            =   0
         TabIndex        =   71
         Top             =   0
         Width           =   8475
         _ExtentX        =   14949
         _ExtentY        =   609
         BackColor       =   0
         CurrentY        =   21
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   14.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
         DegradeeStyle   =   3
         DegradeeSteps   =   120
         Caption         =   "Scripts"
         CaptionX        =   4
         CaptionY        =   -2
         Angle           =   0
         DegradeeColor   =   4210752
         DegradeeInit    =   8421504
      End
      Begin Synapsis.DoubleLine dblDeco 
         Height          =   6060
         Index           =   6
         Left            =   4230
         TabIndex        =   72
         Top             =   720
         Width           =   30
         _ExtentX        =   53
         _ExtentY        =   53
         BackColor       =   3158064
         ForeColor       =   5263440
         LineStyle       =   1
      End
      Begin VB.Label lblDeco 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "A marca     identifica um item recomendado."
         ForeColor       =   &H00FFFFFF&
         Height          =   195
         Index           =   16
         Left            =   5265
         TabIndex        =   74
         Tag             =   "Na configuração de ICA, a letra C significa o período entre um evento Keep-Alive e outro no Cliente."
         Top             =   6615
         Width           =   3135
      End
      Begin VB.Label lblDeco 
         BackStyle       =   0  'Transparent
         Caption         =   "l"
         BeginProperty Font 
            Name            =   "Wingdings"
            Size            =   8.25
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0080C0FF&
         Height          =   180
         Index           =   15
         Left            =   5895
         TabIndex        =   73
         Tag             =   "Esta é uma configuração recomendável."
         Top             =   6645
         Width           =   120
         WordWrap        =   -1  'True
      End
   End
   Begin VB.PictureBox picMainHolder 
      Appearance      =   0  'Flat
      BackColor       =   &H00404040&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   6810
      Index           =   1
      Left            =   -9000
      ScaleHeight     =   6810
      ScaleWidth      =   8475
      TabIndex        =   65
      Top             =   855
      Width           =   8475
      Begin Synapsis.RotativeLabel rotMain 
         Height          =   345
         Index           =   1
         Left            =   0
         TabIndex        =   66
         Top             =   0
         Width           =   8475
         _ExtentX        =   14949
         _ExtentY        =   609
         BackColor       =   0
         CurrentY        =   21
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   14.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
         DegradeeStyle   =   3
         DegradeeSteps   =   120
         Caption         =   "Environment"
         CaptionX        =   4
         CaptionY        =   -2
         Angle           =   0
         DegradeeColor   =   4210752
         DegradeeInit    =   8421504
      End
      Begin Synapsis.DoubleLine dblDeco 
         Height          =   6060
         Index           =   11
         Left            =   4230
         TabIndex        =   69
         Top             =   720
         Width           =   30
         _ExtentX        =   53
         _ExtentY        =   53
         BackColor       =   3158064
         ForeColor       =   5263440
         LineStyle       =   1
      End
      Begin VB.Label lblDeco 
         BackStyle       =   0  'Transparent
         Caption         =   "l"
         BeginProperty Font 
            Name            =   "Wingdings"
            Size            =   8.25
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0080C0FF&
         Height          =   180
         Index           =   29
         Left            =   5895
         TabIndex        =   68
         Tag             =   "Esta é uma configuração recomendável."
         Top             =   6645
         Width           =   120
         WordWrap        =   -1  'True
      End
      Begin VB.Label lblDeco 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "A marca     identifica um item recomendado."
         ForeColor       =   &H00FFFFFF&
         Height          =   195
         Index           =   28
         Left            =   5265
         TabIndex        =   67
         Tag             =   "Na configuração de ICA, a letra C significa o período entre um evento Keep-Alive e outro no Cliente."
         Top             =   6615
         Width           =   3135
      End
   End
   Begin VB.PictureBox picMainHolder 
      Appearance      =   0  'Flat
      BackColor       =   &H00404040&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   6810
      Index           =   0
      Left            =   0
      ScaleHeight     =   6810
      ScaleWidth      =   8475
      TabIndex        =   4
      Top             =   855
      Width           =   8475
      Begin Synapsis.RotativeLabel rotMain 
         Height          =   345
         Index           =   0
         Left            =   0
         TabIndex        =   36
         Top             =   0
         Width           =   8475
         _ExtentX        =   14949
         _ExtentY        =   609
         BackColor       =   0
         CurrentY        =   21
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   14.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
         DegradeeStyle   =   3
         DegradeeSteps   =   120
         Caption         =   "Settings"
         CaptionX        =   4
         CaptionY        =   -2
         Angle           =   0
         DegradeeColor   =   4210752
         DegradeeInit    =   8421504
      End
      Begin Synapsis.LightGroup lggSysOpt 
         Height          =   5235
         Index           =   1
         Left            =   4320
         TabIndex        =   5
         Top             =   450
         Width           =   4155
         _ExtentX        =   7329
         _ExtentY        =   9234
         BackColor       =   4210752
         ForeColor       =   16777215
         Caption         =   "           Neuron"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LineFGColor     =   6316128
         LineBGColor     =   2105376
         ForeColor       =   16777215
         Begin VB.PictureBox picOptHolder 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Height          =   1140
            Index           =   5
            Left            =   2385
            ScaleHeight     =   1140
            ScaleWidth      =   1590
            TabIndex        =   56
            Top             =   3465
            Width           =   1590
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "20 Minutes"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   19
               Left            =   180
               TabIndex        =   62
               Tag             =   "O usuário é retirado após 20 minutos do fim de seu tempo."
               Top             =   900
               Width           =   1500
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "10 Minutes"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   18
               Left            =   180
               TabIndex        =   60
               Tag             =   "O usuário é retirado após 10 minutos do fim de seu tempo."
               Top             =   675
               Width           =   1500
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "5 Minutes"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   17
               Left            =   180
               TabIndex        =   59
               Tag             =   "O usuário é retirado após 5 minutos do fim de seu tempo."
               Top             =   450
               Value           =   -1  'True
               Width           =   1455
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "Imediate"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   15
               Left            =   180
               TabIndex        =   58
               Tag             =   "O usuário é retirado no exato momento em que seu tempo acaba."
               Top             =   0
               Width           =   1365
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "2 Minutes"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   16
               Left            =   180
               TabIndex        =   57
               Tag             =   "O usuário é retirado após 2 minutos do fim de seu tempo."
               Top             =   225
               Width           =   1455
            End
            Begin VB.Label lblDeco 
               BackStyle       =   0  'Transparent
               Caption         =   "l"
               BeginProperty Font 
                  Name            =   "Wingdings"
                  Size            =   8.25
                  Charset         =   2
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H0080C0FF&
               Height          =   180
               Index           =   14
               Left            =   0
               TabIndex        =   61
               Tag             =   "Esta é uma configuração recomendável."
               Top             =   450
               Width           =   120
               WordWrap        =   -1  'True
            End
         End
         Begin VB.CheckBox chkOpt 
            BackColor       =   &H00404040&
            Caption         =   "'Time Over' AutoKick"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   375
            Index           =   5
            Left            =   765
            TabIndex        =   54
            Tag             =   "Esta opção faz com que o usuário seja desalocado do equipamento, sem necessidade de intervenção do Operador."
            Top             =   3510
            Value           =   1  'Checked
            Width           =   1590
         End
         Begin VB.CheckBox chkOpt 
            BackColor       =   &H00404040&
            Caption         =   "'Time Over' Warning"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   4
            Left            =   765
            TabIndex        =   52
            Tag             =   "Esta opção permite que um usuário receba um aviso, via voz sintetizada, indicando que seu tempo acabou."
            Top             =   3015
            Value           =   1  'Checked
            Width           =   3210
         End
         Begin VB.CheckBox chkOpt 
            BackColor       =   &H00404040&
            Caption         =   "Allow Remote Logon"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   3
            Left            =   765
            TabIndex        =   37
            Tag             =   "Esta opção permite que um usuário, de posse de seu Username e senha, realize um LogOn remoto."
            Top             =   2745
            Value           =   1  'Checked
            Width           =   3210
         End
         Begin VB.PictureBox picOptHolder 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Height          =   690
            Index           =   100
            Left            =   2385
            ScaleHeight     =   690
            ScaleWidth      =   1770
            TabIndex        =   12
            Top             =   405
            Width           =   1770
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "Via Interface"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   11
               Left            =   180
               TabIndex        =   15
               Tag             =   "Neuron nunca toma a decisão de se travar; apenas um Operador pode realizar a ação, via interface da aplicação."
               Top             =   450
               Width           =   1230
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "StartUp"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   9
               Left            =   180
               TabIndex        =   14
               Tag             =   $"frmConfig.frx":09B0
               Top             =   0
               Width           =   1140
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "Logon"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   10
               Left            =   180
               TabIndex        =   13
               Tag             =   $"frmConfig.frx":0A42
               Top             =   225
               Value           =   -1  'True
               Width           =   1230
            End
            Begin VB.Label lblDeco 
               BackStyle       =   0  'Transparent
               Caption         =   "l"
               BeginProperty Font 
                  Name            =   "Wingdings"
                  Size            =   8.25
                  Charset         =   2
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H0080C0FF&
               Height          =   180
               Index           =   6
               Left            =   0
               TabIndex        =   43
               Tag             =   "Esta é uma configuração recomendável."
               Top             =   225
               Width           =   120
               WordWrap        =   -1  'True
            End
         End
         Begin VB.CheckBox chkOpt 
            BackColor       =   &H00404040&
            Caption         =   "Auto Update Neuron"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   1
            Left            =   765
            TabIndex        =   11
            Tag             =   $"frmConfig.frx":0AD5
            Top             =   2475
            Value           =   1  'Checked
            Width           =   3210
         End
         Begin VB.CheckBox chkOpt 
            BackColor       =   &H00404040&
            Caption         =   "Debug Mode"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   2
            Left            =   765
            TabIndex        =   10
            Tag             =   $"frmConfig.frx":0B5C
            Top             =   1440
            Value           =   1  'Checked
            Width           =   1635
         End
         Begin VB.PictureBox picOptHolder 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Height          =   690
            Index           =   2
            Left            =   2385
            ScaleHeight     =   690
            ScaleWidth      =   1725
            TabIndex        =   6
            Top             =   1440
            Width           =   1725
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "Server Log"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   13
               Left            =   180
               TabIndex        =   9
               Tag             =   "O Log de eventos será registrado apenas no ambiente Servidor."
               Top             =   225
               Width           =   1590
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "Client Log"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   12
               Left            =   180
               TabIndex        =   8
               Tag             =   "O Log de eventos será registrado apenas no ambiente Cliente."
               Top             =   0
               Value           =   -1  'True
               Width           =   1500
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "C/S Log"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   14
               Left            =   180
               TabIndex        =   7
               Tag             =   "O Log de eventos será registrado tanto no ambiente Cliente quanto no ambiente Servidor."
               Top             =   450
               Width           =   1590
            End
            Begin VB.Label lblDeco 
               BackStyle       =   0  'Transparent
               Caption         =   "l"
               BeginProperty Font 
                  Name            =   "Wingdings"
                  Size            =   8.25
                  Charset         =   2
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H0080C0FF&
               Height          =   180
               Index           =   7
               Left            =   0
               TabIndex        =   46
               Tag             =   "Esta é uma configuração recomendável."
               Top             =   0
               Width           =   120
               WordWrap        =   -1  'True
            End
         End
         Begin Synapsis.DoubleLine dblDeco 
            Height          =   30
            Index           =   3
            Left            =   0
            TabIndex        =   16
            Top             =   3330
            Width           =   4155
            _ExtentX        =   7329
            _ExtentY        =   53
            BackColor       =   3684408
            ForeColor       =   4737096
         End
         Begin Synapsis.DoubleLine dblDeco 
            Height          =   30
            Index           =   1
            Left            =   0
            TabIndex        =   17
            Top             =   1305
            Width           =   4155
            _ExtentX        =   7329
            _ExtentY        =   53
            BackColor       =   3684408
            ForeColor       =   4737096
         End
         Begin Synapsis.DoubleLine dblDeco 
            Height          =   30
            Index           =   4
            Left            =   0
            TabIndex        =   38
            Top             =   2340
            Width           =   4155
            _ExtentX        =   7329
            _ExtentY        =   53
            BackColor       =   3684408
            ForeColor       =   4737096
         End
         Begin VB.Label lblDeco 
            BackStyle       =   0  'Transparent
            Caption         =   "l"
            BeginProperty Font 
               Name            =   "Wingdings"
               Size            =   8.25
               Charset         =   2
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0080C0FF&
            Height          =   180
            Index           =   13
            Left            =   540
            TabIndex        =   55
            Tag             =   "Esta é uma configuração recomendável."
            Top             =   3615
            Width           =   120
            WordWrap        =   -1  'True
         End
         Begin VB.Label lblDeco 
            BackStyle       =   0  'Transparent
            Caption         =   "l"
            BeginProperty Font 
               Name            =   "Wingdings"
               Size            =   8.25
               Charset         =   2
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0080C0FF&
            Height          =   180
            Index           =   12
            Left            =   540
            TabIndex        =   53
            Tag             =   "Esta é uma configuração recomendável."
            Top             =   3015
            Width           =   120
            WordWrap        =   -1  'True
         End
         Begin VB.Label lblDeco 
            BackStyle       =   0  'Transparent
            Caption         =   "l"
            BeginProperty Font 
               Name            =   "Wingdings"
               Size            =   8.25
               Charset         =   2
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0080C0FF&
            Height          =   180
            Index           =   9
            Left            =   540
            TabIndex        =   42
            Tag             =   "Esta é uma configuração recomendável."
            Top             =   2745
            Width           =   120
            WordWrap        =   -1  'True
         End
         Begin VB.Label lblDeco 
            BackStyle       =   0  'Transparent
            Caption         =   "l"
            BeginProperty Font 
               Name            =   "Wingdings"
               Size            =   8.25
               Charset         =   2
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0080C0FF&
            Height          =   180
            Index           =   8
            Left            =   540
            TabIndex        =   41
            Tag             =   "Esta é uma configuração recomendável."
            Top             =   2490
            Width           =   120
            WordWrap        =   -1  'True
         End
         Begin VB.Label lblDeco 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Lock Event"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   1
            Left            =   765
            TabIndex        =   18
            Tag             =   "Determina o momento exato quanto a estação será travada."
            Top             =   405
            Width           =   1005
         End
         Begin VB.Image imgDeco 
            Height          =   600
            Index           =   1
            Left            =   0
            Picture         =   "frmConfig.frx":0BFC
            Top             =   0
            Width           =   660
         End
      End
      Begin Synapsis.LightGroup lggSysOpt 
         Height          =   5955
         Index           =   0
         Left            =   0
         TabIndex        =   19
         Top             =   450
         Width           =   4155
         _ExtentX        =   7329
         _ExtentY        =   10504
         BackColor       =   4210752
         ForeColor       =   16777215
         Caption         =   "           Cortex - Neuron Handshaking"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LineFGColor     =   6316128
         LineBGColor     =   2105376
         ForeColor       =   16777215
         Begin VB.ListBox lstLanguages 
            Appearance      =   0  'Flat
            BackColor       =   &H00404040&
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00D0D0D0&
            Height          =   990
            IntegralHeight  =   0   'False
            ItemData        =   "frmConfig.frx":20DE
            Left            =   2565
            List            =   "frmConfig.frx":20E0
            TabIndex        =   77
            Tag             =   "Escolha a Linguagem que deseja utilizar."
            Top             =   3375
            Width           =   1545
         End
         Begin VB.CheckBox chkOpt 
            BackColor       =   &H00404040&
            Caption         =   "Ping Beacon"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   0
            Left            =   765
            TabIndex        =   32
            Tag             =   $"frmConfig.frx":20E2
            Top             =   405
            Value           =   1  'Checked
            Width           =   1680
         End
         Begin VB.PictureBox picOptHolder 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Height          =   915
            Index           =   101
            Left            =   2385
            ScaleHeight     =   915
            ScaleWidth      =   1590
            TabIndex        =   26
            Top             =   1980
            Width           =   1590
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "10s S / 3s C"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   6
               Left            =   180
               TabIndex        =   30
               Tag             =   "Um ICA de 10 segundos permite que o Cliente Neuron possa ter um a configuração de 3 segundos para emissão de pacotes Keep-Alive."
               Top             =   225
               Width           =   1230
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "5s S / 2s C"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   5
               Left            =   180
               TabIndex        =   29
               Tag             =   $"frmConfig.frx":21E6
               Top             =   0
               Width           =   1140
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "15s S / 5s C"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   7
               Left            =   180
               TabIndex        =   28
               Tag             =   $"frmConfig.frx":22B5
               Top             =   450
               Value           =   -1  'True
               Width           =   1230
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "30s S / 10s C"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   8
               Left            =   180
               TabIndex        =   27
               Tag             =   $"frmConfig.frx":2356
               Top             =   675
               Width           =   1410
            End
            Begin VB.Label lblDeco 
               BackStyle       =   0  'Transparent
               Caption         =   "l"
               BeginProperty Font 
                  Name            =   "Wingdings"
                  Size            =   8.25
                  Charset         =   2
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H0080C0FF&
               Height          =   180
               Index           =   5
               Left            =   0
               TabIndex        =   45
               Tag             =   "Esta é uma configuração recomendável."
               Top             =   450
               Width           =   120
               WordWrap        =   -1  'True
            End
         End
         Begin VB.PictureBox picOptHolder 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Height          =   1095
            Index           =   0
            Left            =   2385
            ScaleHeight     =   1095
            ScaleWidth      =   1590
            TabIndex        =   20
            Top             =   405
            Width           =   1590
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "1 Segundo"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   0
               Left            =   180
               TabIndex        =   25
               Tag             =   "A configuração de 1 segundo serve a redes altamente instáveis."
               Top             =   0
               Width           =   1140
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "5 Segundos"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   1
               Left            =   180
               TabIndex        =   24
               Tag             =   "A configuração de 5 segundos serve a redes um pouco mais instáveis do que o normal."
               Top             =   225
               Width           =   1140
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "10 Segundos"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   2
               Left            =   180
               TabIndex        =   23
               Tag             =   "A configuração de 10 segundos é a padrão para estes casos."
               Top             =   450
               Value           =   -1  'True
               Width           =   1230
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "30 Segundos"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   3
               Left            =   180
               TabIndex        =   22
               Tag             =   "A configuração de 30 segundos serve a redes um pouco mais estáveis."
               Top             =   675
               Width           =   1230
            End
            Begin VB.OptionButton OptItem 
               BackColor       =   &H00404040&
               Caption         =   "1 Minuto"
               ForeColor       =   &H00FFFFFF&
               Height          =   195
               Index           =   4
               Left            =   180
               TabIndex        =   21
               Tag             =   "A configuração de 1 minuto server a redes estáveis, que muito ocasionalmente precisam ser avisadas da presença do servidor."
               Top             =   900
               Width           =   1230
            End
            Begin VB.Label lblDeco 
               BackStyle       =   0  'Transparent
               Caption         =   "l"
               BeginProperty Font 
                  Name            =   "Wingdings"
                  Size            =   8.25
                  Charset         =   2
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H0080C0FF&
               Height          =   180
               Index           =   4
               Left            =   0
               TabIndex        =   44
               Tag             =   "Esta é uma configuração recomendável."
               Top             =   450
               Width           =   120
               WordWrap        =   -1  'True
            End
         End
         Begin Synapsis.DoubleLine dblDeco 
            Height          =   30
            Index           =   0
            Left            =   0
            TabIndex        =   31
            Top             =   1755
            Width           =   4155
            _ExtentX        =   7329
            _ExtentY        =   53
            BackColor       =   3684408
            ForeColor       =   4737096
         End
         Begin Synapsis.DoubleLine dblDeco 
            Height          =   30
            Index           =   2
            Left            =   0
            TabIndex        =   33
            Top             =   3105
            Width           =   4155
            _ExtentX        =   7329
            _ExtentY        =   53
            BackColor       =   3684408
            ForeColor       =   4737096
         End
         Begin Synapsis.DoubleLine dblDeco 
            Height          =   30
            Index           =   7
            Left            =   0
            TabIndex        =   75
            Top             =   4455
            Width           =   4155
            _ExtentX        =   7329
            _ExtentY        =   53
            BackColor       =   3684408
            ForeColor       =   4737096
         End
         Begin VB.Label lblDeco 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Current Language"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   20
            Left            =   765
            TabIndex        =   76
            Tag             =   "Na lista acima estão indicados todos os pacotes de idioma instalados. Escolha a sua linguagem desejada."
            Top             =   3330
            Width           =   1515
         End
         Begin VB.Label lblDeco 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "C: Client"
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   3
            Left            =   975
            TabIndex        =   40
            Tag             =   "Na configuração de ICA, a letra C significa o período entre um evento Keep-Alive e outro no Cliente."
            Top             =   2430
            Width           =   945
            WordWrap        =   -1  'True
         End
         Begin VB.Label lblDeco 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "S: Server"
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   2
            Left            =   990
            TabIndex        =   39
            Tag             =   "Na configuração de ICA, a letra S significa o período entre um evento ICA e outro no Servidor."
            Top             =   2250
            Width           =   1035
            WordWrap        =   -1  'True
         End
         Begin VB.Label lblDeco 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "ICA Event"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   195
            Index           =   0
            Left            =   765
            TabIndex        =   34
            Tag             =   $"frmConfig.frx":245F
            Top             =   1980
            Width           =   960
         End
         Begin VB.Image imgDeco 
            Height          =   600
            Index           =   0
            Left            =   0
            Picture         =   "frmConfig.frx":2550
            Top             =   0
            Width           =   660
         End
      End
      Begin Synapsis.DoubleLine dblDeco 
         Height          =   6060
         Index           =   5
         Left            =   4230
         TabIndex        =   35
         Top             =   720
         Width           =   30
         _ExtentX        =   53
         _ExtentY        =   53
         BackColor       =   3158064
         ForeColor       =   5263440
         LineStyle       =   1
      End
      Begin VB.Label lblDeco 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "A marca     identifica um item recomendado."
         ForeColor       =   &H00FFFFFF&
         Height          =   195
         Index           =   11
         Left            =   5265
         TabIndex        =   48
         Tag             =   "Na configuração de ICA, a letra C significa o período entre um evento Keep-Alive e outro no Cliente."
         Top             =   6615
         Width           =   3135
      End
      Begin VB.Label lblDeco 
         BackStyle       =   0  'Transparent
         Caption         =   "l"
         BeginProperty Font 
            Name            =   "Wingdings"
            Size            =   8.25
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0080C0FF&
         Height          =   180
         Index           =   10
         Left            =   5895
         TabIndex        =   47
         Tag             =   "Esta é uma configuração recomendável."
         Top             =   6645
         Width           =   120
         WordWrap        =   -1  'True
      End
   End
   Begin VB.PictureBox picHelp 
      Align           =   2  'Align Bottom
      Appearance      =   0  'Flat
      BackColor       =   &H00404040&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1230
      Left            =   0
      ScaleHeight     =   82
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   565
      TabIndex        =   2
      Top             =   7890
      Width           =   8475
      Begin VB.Image imgPenguin 
         Height          =   450
         Left            =   315
         Picture         =   "frmConfig.frx":3A32
         Top             =   405
         Width           =   465
      End
      Begin VB.Label lblHelp 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   195
         Left            =   1215
         TabIndex        =   3
         Top             =   90
         Width           =   7530
         WordWrap        =   -1  'True
      End
   End
   Begin Synapsis.MicroFooter mcfMain 
      Align           =   2  'Align Bottom
      Height          =   195
      Left            =   0
      TabIndex        =   0
      Top             =   7695
      Width           =   8475
      _ExtentX        =   11827
      _ExtentY        =   344
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "Ajuda"
      UseIcons        =   0   'False
   End
   Begin Synapsis.MicroHeader mchMain 
      Align           =   1  'Align Top
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   8475
      _ExtentX        =   11827
      _ExtentY        =   450
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "Configurações"
   End
   Begin Synapsis.SimpleButton cmdItem 
      Height          =   480
      Index           =   2
      Left            =   3015
      TabIndex        =   49
      Tag             =   $"frmConfig.frx":45B4
      Top             =   315
      Width           =   1440
      _ExtentX        =   2487
      _ExtentY        =   1931
      Picture         =   "frmConfig.frx":465B
   End
   Begin Synapsis.SimpleButton cmdItem 
      Height          =   480
      Index           =   0
      Left            =   45
      TabIndex        =   50
      Tag             =   "Esta opção exibe a lista de opções de configuração que lidam com o comportamente da solução Synapsis."
      Top             =   315
      Width           =   1440
      _ExtentX        =   2487
      _ExtentY        =   1931
      Picture         =   "frmConfig.frx":6AAD
   End
   Begin Synapsis.SimpleButton cmdItem 
      Height          =   480
      Index           =   3
      Left            =   4500
      TabIndex        =   51
      Tag             =   "Esta opção permite a configuração dos itens de controle de conteúdo adulto, para  aplicativos e sites Web."
      Top             =   315
      Width           =   1440
      _ExtentX        =   2487
      _ExtentY        =   1931
      Picture         =   "frmConfig.frx":8EFF
   End
   Begin Synapsis.SimpleButton cmdItem 
      Height          =   480
      Index           =   4
      Left            =   5985
      TabIndex        =   63
      Tag             =   $"frmConfig.frx":B351
      Top             =   315
      Width           =   1440
      _ExtentX        =   2487
      _ExtentY        =   1931
      Picture         =   "frmConfig.frx":B3EF
   End
   Begin Synapsis.SimpleButton cmdItem 
      Height          =   480
      Index           =   1
      Left            =   1530
      TabIndex        =   64
      Tag             =   $"frmConfig.frx":D841
      Top             =   315
      Width           =   1440
      _ExtentX        =   2487
      _ExtentY        =   1931
      Picture         =   "frmConfig.frx":D8EE
   End
End
Attribute VB_Name = "frmConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub chkOpt_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ShowTips chkOpt(Index)
End Sub
Private Sub cmdItem_Click(Index As Integer)
Dim uTmp As PictureBox

    For Each uTmp In Me.picMainHolder
    uTmp.Left = 0
    uTmp.Visible = (uTmp.Index = Index)
    Next uTmp

End Sub

Private Sub cmdItem_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ShowTips cmdItem(Index)
End Sub
Private Sub Form_Load()

LoadLanguages
ApplyLanguage Me

ShowTips Me
CenterForm Me, MDIMain
Me.Visible = True

LoadSettings

End Sub
Sub LoadLanguages()
Dim uFSO As New FileSystemObject, lobjfolder As Folder

    If Not uFSO.FolderExists(".\Language") Then Exit Sub
    
Set lobjfolder = uFSO.GetFolder(".\Language")

    For Each lobjfolder In uFSO.GetFolder(".\Language").SubFolders
    Me.lstLanguages.AddItem lobjfolder.Name
    Next lobjfolder

End Sub
Private Sub lblDeco_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ShowTips lblDeco(Index)
End Sub

Private Sub lstLanguages_Click()
Dim Counter

    For Counter = 0 To Me.lstLanguages.ListCount - 1
    
        If Me.lstLanguages.Selected(Counter) Then
        
            If Me.lstLanguages.List(Counter) <> Data.LanguagePack Then
            SaveSetting App.ProductName, "Language", "Package", Me.lstLanguages.List(Counter)
            Data.LanguagePack = Me.lstLanguages.List(Counter)
            Call LoadLanguagePack
            ApplyLanguage Me
            ApplyLanguage MDIMain
            End If
            
        End If
    
    Next Counter
    
End Sub

Private Sub OptItem_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ShowTips OptItem(Index)
End Sub
Private Sub picHelp_Resize()
On Error Resume Next
Dim OldHeight As Long, NewHeight As Long

    With Me.lblHelp
    .Width = picHelp.ScaleWidth - .Left - .Top
    End With
   
OldHeight = Me.picHelp.Height
NewHeight = Me.lblHelp.Height + Me.lblHelp.Top * 2

Me.picHelp.Height = NewHeight
Me.Height = Me.Height + (NewHeight - OldHeight) * Screen.TwipsPerPixelY

Me.imgPenguin.Top = (Me.picHelp.Height - Me.imgPenguin.Height) / 2

End Sub
Sub ShowTips(ByRef uCtl As Object)
Dim uName As String, uCaption As String, uIndex As String
On Error Resume Next

uName = uCtl.Name
uIndex = uCtl.Index
uCaption = uCtl.Caption

    If uCaption <> "" Then uCaption = uCaption & vbCrLf

On Error GoTo 0

    If lblHelp.Tag = uName & "." & uIndex Then Exit Sub

lblHelp.Tag = uName & "." & uIndex

lblHelp.Caption = uCaption & uCtl.Tag
Call picHelp_Resize

End Sub
Sub LoadSettings()
Dim Counter

    With Data.Settings
    Me.chkOpt(0) = .PingBeaconUse * -1
    
        Select Case .PingBeaconPeriod
        Case 1000:    Me.OptItem(0).Value = True
        Case 5000:    Me.OptItem(1).Value = True
        Case 10000:   Me.OptItem(2).Value = True
        Case 30000:   Me.OptItem(3).Value = True
        Case 60000:   Me.OptItem(4).Value = True
        End Select
    
        Select Case .ICAEventPeriod
        Case 5000:    Me.OptItem(5).Value = True
        Case 10000:   Me.OptItem(6).Value = True
        Case 15000:   Me.OptItem(7).Value = True
        Case 30000:   Me.OptItem(8).Value = True
        End Select
    
    Me.OptItem(9 + .LockEvent).Value = True
    
    Me.chkOpt(2).Value = .DebugModeUse * -1
    Me.OptItem(12 + .DebugMode).Value = True
    
    Me.chkOpt(1).Value = .AutoUpdateNeuron * -1
    Me.chkOpt(3).Value = .RemoteLogon * -1
    Me.chkOpt(4).Value = .TimerOverWarning * -1
    Me.chkOpt(5).Value = .TimeOverAutoKickUse * -1

        Select Case .TimeOverAutoKickPeriod
        Case 0:       Me.OptItem(15).Value = True
        Case 120000:  Me.OptItem(16).Value = True
        Case 300000:  Me.OptItem(17).Value = True
        Case 600000:  Me.OptItem(18).Value = True
        Case 1200000: Me.OptItem(19).Value = True
        End Select
        
    End With

    For Counter = 0 To Me.lstLanguages.ListCount - 1
        If Me.lstLanguages.List(Counter) = Data.LanguagePack Then Me.lstLanguages.Selected(Counter) = True
    Next Counter

End Sub
Private Sub chkOpt_Click(Index As Integer)
On Error Resume Next
Me.picOptHolder(Index).Visible = (Me.chkOpt(Index) = 1)
On Error GoTo 0

    With Data.Settings

        Select Case Index
        Case 0: .PingBeaconUse = Me.chkOpt(Index).Value * -1: SaveSetting App.ProductName, "Settings", "PingBeaconUse", Data.Settings.PingBeaconUse
        Case 1: .AutoUpdateNeuron = Me.chkOpt(Index).Value * -1: SaveSetting App.ProductName, "Settings", "AutoUpdateNeuron", Data.Settings.AutoUpdateNeuron
        Case 2: .DebugModeUse = Me.chkOpt(Index).Value * -1: SaveSetting App.ProductName, "Settings", "DebugModeUse", Data.Settings.DebugModeUse
        Case 3: .RemoteLogon = Me.chkOpt(Index).Value * -1: SaveSetting App.ProductName, "Settings", "RemoteLogon", Data.Settings.RemoteLogon
        Case 4: .TimerOverWarning = Me.chkOpt(Index).Value * -1: SaveSetting App.ProductName, "Settings", "TimerOverWarning", Data.Settings.TimerOverWarning
        Case 5: .TimeOverAutoKickUse = Me.chkOpt(Index).Value * -1: SaveSetting App.ProductName, "Settings", "TimeOverAutoKickUse", Data.Settings.TimeOverAutoKickUse
        End Select
    
    End With

End Sub
Private Sub OptItem_Click(Index As Integer)

    If Me.OptItem(Index).Value = True Then
    
        Select Case Index
        Case 0 To 4
        Data.Settings.PingBeaconPeriod = Choose(Index + 1, 1000, 5000, 10000, 30000, 60000)
        SaveSetting App.ProductName, "Settings", "PingBeaconPeriod", Data.Settings.PingBeaconPeriod
        
        Case 5 To 8
        Data.Settings.ICAEventPeriod = Choose(Index - 4, 5000, 10000, 15000, 30000)
        Data.Settings.ICAEventPeriodClient = Choose(Index - 4, 2000, 3000, 5000, 10000)
        SaveSetting App.ProductName, "Settings", "ICAEventPeriod", Data.Settings.ICAEventPeriod
        SaveSetting App.ProductName, "Settings", "ICAEventPeriodClient", Data.Settings.ICAEventPeriodClient
        SendBroadcast "SCHEDULE|" & Data.Settings.ICAEventPeriodClient & "|PING?"

        
        Case 9 To 11
        Data.Settings.LockEvent = Index - 9
        SaveSetting App.ProductName, "Settings", "LockEvent", Data.Settings.LockEvent
        
        Case 12 To 14
        Data.Settings.DebugMode = Index - 12
        SaveSetting App.ProductName, "Settings", "DebugMode", Data.Settings.DebugMode
        
        Case 15 To 19
        Data.Settings.TimeOverAutoKickPeriod = Choose(Index - 14, 0, 120000, 300000, 600000, 1200000)
        SaveSetting App.ProductName, "Settings", "TimeOverAutoKickPeriod", Data.Settings.TimeOverAutoKickPeriod
        
        End Select
    
    End If

End Sub
