VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form VisualMaker 
   BackColor       =   &H80000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hypnotic Visual Maker"
   ClientHeight    =   7845
   ClientLeft      =   5070
   ClientTop       =   3690
   ClientWidth     =   6645
   Icon            =   "VisualMaker.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7845
   ScaleWidth      =   6645
   Begin VB.CommandButton Command3 
      Caption         =   "Help"
      Height          =   375
      Left            =   5040
      TabIndex        =   167
      ToolTipText     =   "Visual Maker help"
      Top             =   7320
      Width           =   1215
   End
   Begin VB.CommandButton cmdResetVisual 
      Caption         =   "Reset Visual"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      ToolTipText     =   "Resets the current visual back to the default values"
      Top             =   7080
      Width           =   1215
   End
   Begin VB.Timer Timer3 
      Interval        =   100
      Left            =   1920
      Top             =   7080
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   6615
      Left            =   0
      TabIndex        =   4
      Top             =   120
      Width           =   6615
      _ExtentX        =   11668
      _ExtentY        =   11668
      _Version        =   393216
      Tabs            =   4
      TabsPerRow      =   4
      TabHeight       =   520
      WordWrap        =   0   'False
      ShowFocusRect   =   0   'False
      TabCaption(0)   =   "Color Tunnel"
      TabPicture(0)   =   "VisualMaker.frx":08CA
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Label2"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Label4"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Label5"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Label6"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Label8"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "Label9"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "Label10"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "Label11"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "ScrollBar4"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "ScrollBar5"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "ScrollBar6"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "Label46"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "Label47"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "Label48"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "Label49"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).Control(15)=   "ScrollBar7"
      Tab(0).Control(15).Enabled=   0   'False
      Tab(0).Control(16)=   "Label50"
      Tab(0).Control(16).Enabled=   0   'False
      Tab(0).Control(17)=   "Label51"
      Tab(0).Control(17).Enabled=   0   'False
      Tab(0).Control(18)=   "ScrollBar8"
      Tab(0).Control(18).Enabled=   0   'False
      Tab(0).Control(19)=   "Label52"
      Tab(0).Control(19).Enabled=   0   'False
      Tab(0).Control(20)=   "Label53"
      Tab(0).Control(20).Enabled=   0   'False
      Tab(0).Control(21)=   "Label54"
      Tab(0).Control(21).Enabled=   0   'False
      Tab(0).Control(22)=   "ScrollBar9"
      Tab(0).Control(22).Enabled=   0   'False
      Tab(0).Control(23)=   "ScrollBar10"
      Tab(0).Control(23).Enabled=   0   'False
      Tab(0).Control(24)=   "Label55"
      Tab(0).Control(24).Enabled=   0   'False
      Tab(0).Control(25)=   "Label56"
      Tab(0).Control(25).Enabled=   0   'False
      Tab(0).Control(26)=   "ScrollBar11"
      Tab(0).Control(26).Enabled=   0   'False
      Tab(0).Control(27)=   "Label60"
      Tab(0).Control(27).Enabled=   0   'False
      Tab(0).Control(28)=   "Label64"
      Tab(0).Control(28).Enabled=   0   'False
      Tab(0).Control(29)=   "Label58"
      Tab(0).Control(29).Enabled=   0   'False
      Tab(0).Control(30)=   "Label59"
      Tab(0).Control(30).Enabled=   0   'False
      Tab(0).Control(31)=   "Label57"
      Tab(0).Control(31).Enabled=   0   'False
      Tab(0).Control(32)=   "Option11"
      Tab(0).Control(32).Enabled=   0   'False
      Tab(0).Control(33)=   "Command4"
      Tab(0).Control(33).Enabled=   0   'False
      Tab(0).Control(34)=   "Check7"
      Tab(0).Control(34).Enabled=   0   'False
      Tab(0).Control(35)=   "Command1"
      Tab(0).Control(35).Enabled=   0   'False
      Tab(0).Control(36)=   "Command2"
      Tab(0).Control(36).Enabled=   0   'False
      Tab(0).Control(37)=   "Option13"
      Tab(0).Control(37).Enabled=   0   'False
      Tab(0).Control(38)=   "Option12"
      Tab(0).Control(38).Enabled=   0   'False
      Tab(0).ControlCount=   39
      TabCaption(1)   =   "Spiral"
      TabPicture(1)   =   "VisualMaker.frx":08E6
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Command14"
      Tab(1).Control(1)=   "Command12"
      Tab(1).Control(2)=   "Check4"
      Tab(1).Control(3)=   "Command11"
      Tab(1).Control(4)=   "Frame3"
      Tab(1).Control(5)=   "Slider1"
      Tab(1).Control(6)=   "Slider3"
      Tab(1).Control(7)=   "Slider4"
      Tab(1).Control(8)=   "Slider5"
      Tab(1).Control(9)=   "Slider7"
      Tab(1).Control(10)=   "Label14"
      Tab(1).Control(11)=   "Label7"
      Tab(1).Control(12)=   "Label17"
      Tab(1).Control(13)=   "Label13"
      Tab(1).Control(14)=   "Label12"
      Tab(1).ControlCount=   15
      TabCaption(2)   =   "Custom Objects"
      TabPicture(2)   =   "VisualMaker.frx":0902
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "List1"
      Tab(2).Control(1)=   "Frame7"
      Tab(2).Control(2)=   "Frame6"
      Tab(2).Control(3)=   "Frame5"
      Tab(2).Control(4)=   "Frame4"
      Tab(2).Control(5)=   "Frame2"
      Tab(2).Control(6)=   "Frame1"
      Tab(2).Control(7)=   "Frame8"
      Tab(2).Control(8)=   "Label20"
      Tab(2).ControlCount=   9
      TabCaption(3)   =   "Grock Tunnel"
      TabPicture(3)   =   "VisualMaker.frx":091E
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "Frame9"
      Tab(3).Control(1)=   "Frame12"
      Tab(3).Control(2)=   "Frame11"
      Tab(3).Control(3)=   "Slider8"
      Tab(3).Control(4)=   "Frame10"
      Tab(3).Control(5)=   "Label26"
      Tab(3).ControlCount=   6
      Begin VB.OptionButton Option12 
         Caption         =   "Green"
         Height          =   255
         Left            =   4440
         TabIndex        =   162
         Top             =   5030
         Width           =   855
      End
      Begin VB.OptionButton Option13 
         Caption         =   "Blue"
         Height          =   255
         Left            =   5520
         TabIndex        =   163
         Top             =   5030
         Width           =   855
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Set upper bound"
         Height          =   255
         Left            =   4920
         TabIndex        =   165
         ToolTipText     =   "Set highest allowed value for selected color"
         Top             =   5640
         Width           =   1455
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Set lower bound"
         Height          =   255
         Left            =   3360
         TabIndex        =   164
         ToolTipText     =   "Set lowest allowed value for selected color"
         Top             =   5640
         Width           =   1455
      End
      Begin VB.CheckBox Check7 
         Caption         =   "Lock Color Scrollbars"
         Height          =   255
         Left            =   960
         TabIndex        =   155
         Top             =   4440
         Value           =   1  'Checked
         Width           =   1935
      End
      Begin VB.Frame Frame9 
         Caption         =   "Animation Color (click color boxes to change)"
         Height          =   1815
         Left            =   -72600
         TabIndex        =   98
         Top             =   480
         Width           =   3975
         Begin VB.CheckBox Check5 
            Caption         =   "Enable Fade"
            Enabled         =   0   'False
            Height          =   255
            Left            =   2280
            TabIndex        =   126
            ToolTipText     =   "Enable fading to background color"
            Top             =   1440
            Value           =   1  'Checked
            Width           =   1575
         End
         Begin VB.PictureBox Picture2 
            Appearance      =   0  'Flat
            BackColor       =   &H00000000&
            FillStyle       =   0  'Solid
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   1200
            ScaleHeight     =   345
            ScaleWidth      =   825
            TabIndex        =   123
            ToolTipText     =   "Click this box to change color"
            Top             =   840
            Width           =   855
         End
         Begin VB.OptionButton Option10 
            Caption         =   "Random"
            Height          =   255
            Left            =   2280
            TabIndex        =   122
            ToolTipText     =   "Randomly choose colors"
            Top             =   1080
            Width           =   1575
         End
         Begin VB.OptionButton Option9 
            Caption         =   "Alternating Colors"
            Height          =   255
            Left            =   2280
            TabIndex        =   121
            ToolTipText     =   "Alternate between colors 1 and 2"
            Top             =   720
            Width           =   1575
         End
         Begin VB.PictureBox Picture1 
            Appearance      =   0  'Flat
            BackColor       =   &H00000000&
            FillStyle       =   0  'Solid
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   240
            ScaleHeight     =   345
            ScaleWidth      =   825
            TabIndex        =   100
            ToolTipText     =   "Click this box to change color"
            Top             =   840
            Width           =   855
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Single Color (#1)"
            Height          =   255
            Left            =   2280
            TabIndex        =   99
            ToolTipText     =   "Use only color #1"
            Top             =   360
            Value           =   -1  'True
            Width           =   1575
         End
         Begin VB.Label Label41 
            Alignment       =   2  'Center
            Caption         =   "Color 2"
            Height          =   255
            Left            =   1200
            TabIndex        =   125
            Top             =   480
            Width           =   855
         End
         Begin VB.Label Label40 
            Alignment       =   2  'Center
            Caption         =   "Color 1"
            Height          =   255
            Left            =   240
            TabIndex        =   124
            Top             =   480
            Width           =   855
         End
      End
      Begin VB.Frame Frame12 
         Caption         =   "Text and Tone Parameters"
         Height          =   3375
         Left            =   -72360
         TabIndex        =   111
         Top             =   2400
         Width           =   3855
         Begin VB.CheckBox Check10 
            Caption         =   "Enable Text"
            Height          =   255
            Left            =   240
            TabIndex        =   172
            ToolTipText     =   "Enable text display"
            Top             =   1080
            Value           =   1  'Checked
            Width           =   1215
         End
         Begin VB.CheckBox Check9 
            Caption         =   "Loop Text"
            Height          =   255
            Left            =   2280
            TabIndex        =   171
            ToolTipText     =   "Loop text in word list file"
            Top             =   1980
            Width           =   1215
         End
         Begin VB.CheckBox Check8 
            Caption         =   "Use Soundcard"
            Height          =   255
            Left            =   240
            TabIndex        =   170
            ToolTipText     =   "If this is checked, the soundcard will be used via directx. Otherwise the PC speaker will be used."
            Top             =   1560
            Value           =   1  'Checked
            Width           =   1695
         End
         Begin MSComctlLib.Slider volSlider 
            Height          =   255
            Left            =   2040
            TabIndex        =   169
            Top             =   2520
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   450
            _Version        =   393216
            Min             =   -5000
            Max             =   0
            SelStart        =   -100
            Value           =   -100
         End
         Begin VB.CheckBox Check6 
            Caption         =   "Enable Tones"
            Height          =   255
            Left            =   240
            TabIndex        =   129
            ToolTipText     =   "Enable beep tones"
            Top             =   1320
            Value           =   1  'Checked
            Width           =   1575
         End
         Begin VB.FileListBox File1 
            Height          =   1455
            Left            =   2040
            TabIndex        =   112
            ToolTipText     =   "Select a word list"
            Top             =   480
            Width           =   1695
         End
         Begin VB.CommandButton cmdSetBackColor 
            Caption         =   "Set Back Color"
            Height          =   255
            Left            =   240
            TabIndex        =   127
            ToolTipText     =   "Change the background color"
            Top             =   800
            Width           =   1335
         End
         Begin VB.CommandButton cmdSetTextColor 
            Caption         =   "Set Text Color"
            Height          =   255
            Left            =   240
            TabIndex        =   128
            ToolTipText     =   "Change the text color"
            Top             =   560
            Width           =   1335
         End
         Begin VB.CommandButton Command17 
            Caption         =   "Change Font"
            Height          =   255
            Left            =   240
            TabIndex        =   113
            ToolTipText     =   "Change the font of the text"
            Top             =   320
            Width           =   1335
         End
         Begin VB.Label Label61 
            Alignment       =   2  'Center
            Caption         =   "Volume"
            Height          =   255
            Left            =   2040
            TabIndex        =   168
            Top             =   2280
            Width           =   1575
         End
         Begin VB.Label Label42 
            Alignment       =   2  'Center
            Caption         =   "Frequency (finish)"
            Height          =   255
            Left            =   120
            TabIndex        =   136
            Top             =   2760
            Width           =   1815
         End
         Begin MSForms.ScrollBar ScrollBar3 
            Height          =   225
            Left            =   120
            TabIndex        =   135
            ToolTipText     =   "Frequency to end at (end of session)"
            Top             =   3000
            Width           =   1695
            Size            =   "2990;397"
            Min             =   1
            Max             =   10000
            Position        =   50
            LargeChange     =   100
         End
         Begin VB.Label Label45 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Height          =   255
            Left            =   120
            TabIndex        =   134
            Top             =   1920
            Width           =   1815
         End
         Begin VB.Label Label44 
            Alignment       =   2  'Center
            Caption         =   "Duration (ms)"
            Height          =   255
            Left            =   2040
            TabIndex        =   133
            Top             =   2760
            Width           =   1575
         End
         Begin VB.Label Label43 
            Alignment       =   2  'Center
            Caption         =   "Frequency (start)"
            Height          =   255
            Left            =   120
            TabIndex        =   132
            Top             =   2280
            Width           =   1815
         End
         Begin MSForms.ScrollBar ScrollBar2 
            Height          =   225
            Left            =   2040
            TabIndex        =   131
            ToolTipText     =   "Duration of tone"
            Top             =   3000
            Width           =   1575
            Size            =   "2778;397"
            Min             =   1
            Max             =   1000
            Position        =   100
            LargeChange     =   10
         End
         Begin MSForms.ScrollBar ScrollBar1 
            Height          =   225
            Left            =   120
            TabIndex        =   130
            ToolTipText     =   "Frequency to start at (beginning of session)"
            Top             =   2520
            Width           =   1695
            Size            =   "2990;397"
            Min             =   1
            Max             =   10000
            Position        =   1000
            LargeChange     =   100
         End
         Begin VB.Label Label31 
            Alignment       =   2  'Center
            Caption         =   "Word List File:"
            Height          =   255
            Left            =   2040
            TabIndex        =   114
            Top             =   240
            Width           =   1575
         End
      End
      Begin VB.Frame Frame11 
         Caption         =   "General Parameters"
         Height          =   3375
         Left            =   -74880
         TabIndex        =   106
         Top             =   2400
         Width           =   2415
         Begin MSComctlLib.Slider Slider12 
            Height          =   375
            Left            =   120
            TabIndex        =   115
            ToolTipText     =   "Change the horizontal size offset of each shape"
            Top             =   2040
            Width           =   2175
            _ExtentX        =   3836
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   200
            SelStart        =   100
            TickFrequency   =   10
            Value           =   100
         End
         Begin MSComctlLib.Slider Slider9 
            Height          =   375
            Left            =   120
            TabIndex        =   107
            ToolTipText     =   "Change the width of each shape"
            Top             =   480
            Width           =   2175
            _ExtentX        =   3836
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   30
            SelStart        =   2
            Value           =   2
         End
         Begin MSComctlLib.Slider Slider10 
            Height          =   375
            Left            =   120
            TabIndex        =   110
            ToolTipText     =   "Changes the number of shapes at a relative offset, without stretching to fit the view window"
            Top             =   1200
            Width           =   2175
            _ExtentX        =   3836
            _ExtentY        =   661
            _Version        =   393216
            Min             =   -14
            Max             =   45
            TickFrequency   =   3
         End
         Begin MSComctlLib.Slider Slider13 
            Height          =   375
            Left            =   120
            TabIndex        =   116
            ToolTipText     =   "Change the vertical size offset of each shape"
            Top             =   2760
            Width           =   2175
            _ExtentX        =   3836
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   200
            SelStart        =   100
            TickFrequency   =   10
            Value           =   100
         End
         Begin VB.Label Label39 
            Alignment       =   2  'Center
            Caption         =   "Vertical Size Change"
            Height          =   255
            Left            =   240
            TabIndex        =   118
            Top             =   2520
            Width           =   1935
         End
         Begin VB.Label Label38 
            Alignment       =   2  'Center
            Caption         =   "Horizontal Size Change"
            Height          =   255
            Left            =   240
            TabIndex        =   117
            Top             =   1800
            Width           =   1935
         End
         Begin VB.Label Label37 
            Alignment       =   2  'Center
            Caption         =   "Shape Offset"
            Height          =   255
            Left            =   240
            TabIndex        =   109
            Top             =   960
            Width           =   1935
         End
         Begin VB.Label Label36 
            Alignment       =   2  'Center
            Caption         =   "Shape Width"
            Height          =   255
            Left            =   240
            TabIndex        =   108
            Top             =   240
            Width           =   1935
         End
      End
      Begin MSComctlLib.Slider Slider8 
         Height          =   375
         Left            =   -74880
         TabIndex        =   104
         ToolTipText     =   "Sets the number of shapes that are drawn"
         Top             =   6000
         Width           =   6255
         _ExtentX        =   11033
         _ExtentY        =   661
         _Version        =   393216
         Min             =   1
         Max             =   100
         SelStart        =   15
         Value           =   15
      End
      Begin VB.Frame Frame10 
         Caption         =   "Shape Style"
         Height          =   1695
         Left            =   -74760
         TabIndex        =   101
         Top             =   600
         Width           =   2055
         Begin VB.OptionButton Option8 
            Caption         =   "Vertical Lines"
            Height          =   255
            Left            =   240
            TabIndex        =   120
            ToolTipText     =   "Display vertical lines"
            Top             =   1080
            Width           =   1455
         End
         Begin VB.OptionButton Option7 
            Caption         =   "Horizontal Lines"
            Height          =   255
            Left            =   240
            TabIndex        =   119
            ToolTipText     =   "Display horizontal lines"
            Top             =   840
            Width           =   1455
         End
         Begin VB.OptionButton Option6 
            Caption         =   "Circles"
            Height          =   255
            Left            =   240
            TabIndex        =   103
            ToolTipText     =   "Display circles"
            Top             =   600
            Width           =   1455
         End
         Begin VB.OptionButton Option2 
            Caption         =   "Boxes"
            Height          =   255
            Left            =   240
            TabIndex        =   102
            ToolTipText     =   "Display boxes"
            Top             =   360
            Value           =   -1  'True
            Width           =   1455
         End
      End
      Begin VB.ListBox List1 
         Height          =   1815
         ItemData        =   "VisualMaker.frx":093A
         Left            =   -74760
         List            =   "VisualMaker.frx":093C
         TabIndex        =   34
         ToolTipText     =   "Available objects"
         Top             =   570
         Width           =   1815
      End
      Begin VB.Frame Frame7 
         Caption         =   "Name, Size and Position"
         Height          =   3615
         Left            =   -70680
         TabIndex        =   78
         Top             =   1920
         Width           =   2055
         Begin VB.TextBox txtObjectName 
            Height          =   285
            Left            =   240
            TabIndex        =   42
            ToolTipText     =   "Change object's name"
            Top             =   360
            Width           =   1575
         End
         Begin MSComctlLib.Slider sliderVert 
            Height          =   375
            Left            =   120
            TabIndex        =   43
            ToolTipText     =   "Change object's vertical position (% of screen size)"
            Top             =   960
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Max             =   100
            SelStart        =   50
            TickFrequency   =   5
            Value           =   50
         End
         Begin MSComctlLib.Slider sliderHeight 
            Height          =   375
            Left            =   120
            TabIndex        =   45
            ToolTipText     =   "Change object's height (% of screen size)"
            Top             =   2400
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   100
            SelStart        =   5
            TickFrequency   =   5
            Value           =   5
         End
         Begin MSComctlLib.Slider sliderHoriz 
            Height          =   375
            Left            =   120
            TabIndex        =   44
            ToolTipText     =   "Change object's horizontal position (% of screen size)"
            Top             =   1680
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Max             =   100
            SelStart        =   50
            TickFrequency   =   5
            Value           =   50
         End
         Begin MSComctlLib.Slider sliderWidth 
            Height          =   375
            Left            =   120
            TabIndex        =   46
            ToolTipText     =   "Change object's width (% of screen size)"
            Top             =   3120
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   100
            SelStart        =   5
            TickFrequency   =   5
            Value           =   5
         End
         Begin VB.Label Label30 
            Alignment       =   2  'Center
            Caption         =   "Height %"
            Height          =   255
            Left            =   240
            TabIndex        =   82
            Top             =   2160
            Width           =   1575
         End
         Begin VB.Label Label29 
            Alignment       =   2  'Center
            Caption         =   "Vertical Position %"
            Height          =   255
            Left            =   240
            TabIndex        =   81
            Top             =   720
            Width           =   1575
         End
         Begin VB.Label Label28 
            Alignment       =   2  'Center
            Caption         =   "Width %"
            Height          =   255
            Left            =   240
            TabIndex        =   80
            Top             =   2880
            Width           =   1575
         End
         Begin VB.Label Label27 
            Alignment       =   2  'Center
            Caption         =   "Horizontal Position %"
            Height          =   255
            Left            =   240
            TabIndex        =   79
            Top             =   1440
            Width           =   1575
         End
      End
      Begin VB.Frame Frame6 
         Caption         =   "Draw Mode"
         Height          =   975
         Left            =   -72840
         TabIndex        =   74
         Top             =   1500
         Width           =   2055
         Begin MSComctlLib.Slider sliderDrawMode 
            Height          =   375
            Left            =   120
            TabIndex        =   39
            ToolTipText     =   "Change object's draw mode"
            Top             =   480
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   16
            SelStart        =   13
            Value           =   13
         End
         Begin VB.Label lblDrawMode 
            Alignment       =   2  'Center
            Caption         =   "Copy Pen"
            Height          =   255
            Left            =   240
            TabIndex        =   75
            ToolTipText     =   "Name of selected draw mode"
            Top             =   240
            Width           =   1575
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "Fill"
         Height          =   960
         Left            =   -74760
         TabIndex        =   73
         Top             =   2520
         Width           =   3975
         Begin VB.CheckBox chkFillColor 
            Caption         =   "#"
            Height          =   255
            Left            =   3360
            TabIndex        =   41
            ToolTipText     =   "Make fill color changeable (in Animation section)"
            Top             =   480
            Width           =   495
         End
         Begin VB.PictureBox FillColorBox 
            BackColor       =   &H00000000&
            ForeColor       =   &H00000000&
            Height          =   255
            Left            =   2400
            ScaleHeight     =   195
            ScaleWidth      =   675
            TabIndex        =   85
            ToolTipText     =   "Fill color"
            Top             =   480
            Width           =   735
         End
         Begin MSComctlLib.Slider sliderFill 
            Height          =   375
            Left            =   120
            TabIndex        =   40
            ToolTipText     =   "Change object's fill style"
            Top             =   490
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   661
            _Version        =   393216
            Max             =   7
            SelStart        =   1
            Value           =   1
         End
         Begin VB.Label Label22 
            Alignment       =   2  'Center
            Caption         =   "Color:"
            Height          =   255
            Left            =   2400
            TabIndex        =   86
            Top             =   240
            Width           =   735
         End
         Begin VB.Label lblFill 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Transparent"
            Height          =   255
            Left            =   120
            TabIndex        =   76
            ToolTipText     =   "Name of object's fill style"
            Top             =   240
            Width           =   1575
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Border"
         Height          =   1200
         Left            =   -74760
         TabIndex        =   72
         Top             =   3480
         Width           =   3975
         Begin VB.CheckBox chkBorderColor 
            Caption         =   "#"
            Height          =   255
            Left            =   3360
            TabIndex        =   49
            ToolTipText     =   "Make border color changeable (in Animation section)"
            Top             =   840
            Width           =   495
         End
         Begin VB.PictureBox BorderColorBox 
            BackColor       =   &H00FFFFFF&
            ForeColor       =   &H00000000&
            Height          =   255
            Left            =   2400
            ScaleHeight     =   195
            ScaleWidth      =   675
            TabIndex        =   83
            ToolTipText     =   "Border color"
            Top             =   840
            Width           =   735
         End
         Begin MSComctlLib.Slider sliderBorder 
            Height          =   375
            Left            =   120
            TabIndex        =   47
            Top             =   600
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _Version        =   393216
            Max             =   6
            SelStart        =   1
            Value           =   1
         End
         Begin MSComctlLib.Slider sliderBordWidth 
            Height          =   375
            Left            =   1560
            TabIndex        =   48
            Top             =   360
            Width           =   2295
            _ExtentX        =   4048
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   100
            SelStart        =   1
            TickFrequency   =   5
            Value           =   1
         End
         Begin VB.Label lblBorder 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Solid"
            Height          =   255
            Left            =   120
            TabIndex        =   77
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label35 
            Alignment       =   2  'Center
            Caption         =   "Width"
            Height          =   255
            Left            =   2520
            TabIndex        =   94
            Top             =   165
            Width           =   495
         End
         Begin VB.Label Label23 
            Alignment       =   2  'Center
            Caption         =   "Color:"
            Height          =   255
            Left            =   1680
            TabIndex        =   84
            Top             =   840
            Width           =   615
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Background"
         Height          =   1395
         Left            =   -70680
         TabIndex        =   71
         Top             =   480
         Width           =   2055
         Begin VB.CheckBox chkBackColor 
            Caption         =   "#"
            Height          =   255
            Left            =   1440
            TabIndex        =   38
            ToolTipText     =   "Make background color changeable (in Animation section)"
            Top             =   960
            Value           =   1  'Checked
            Width           =   495
         End
         Begin VB.PictureBox BackColorBox 
            BackColor       =   &H00000000&
            ForeColor       =   &H00000000&
            Height          =   255
            Left            =   240
            ScaleHeight     =   195
            ScaleWidth      =   915
            TabIndex        =   87
            ToolTipText     =   "Background color"
            Top             =   960
            Width           =   975
         End
         Begin VB.OptionButton optOpaque 
            Caption         =   "Opaque"
            Height          =   255
            Left            =   240
            TabIndex        =   37
            ToolTipText     =   "Use solid object background"
            Top             =   480
            Width           =   1575
         End
         Begin VB.OptionButton optTransparent 
            Caption         =   "Transparent"
            Height          =   255
            Left            =   240
            TabIndex        =   36
            ToolTipText     =   "Use transparent object background"
            Top             =   240
            Value           =   -1  'True
            Width           =   1575
         End
         Begin VB.Label Label21 
            Alignment       =   2  'Center
            Caption         =   "Color:"
            Height          =   255
            Left            =   240
            TabIndex        =   88
            Top             =   720
            Width           =   975
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "Object Type"
         Height          =   975
         Left            =   -72840
         TabIndex        =   70
         Top             =   480
         Width           =   2055
         Begin MSComctlLib.Slider sliderType 
            Height          =   375
            Left            =   120
            TabIndex        =   35
            ToolTipText     =   "Change type of object"
            Top             =   490
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Min             =   -1
            Max             =   5
            SelStart        =   -1
            Value           =   -1
         End
         Begin VB.Label lblObjectType 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Off"
            Height          =   255
            Left            =   240
            TabIndex        =   89
            ToolTipText     =   "Object/Shape type"
            Top             =   240
            Width           =   1575
         End
      End
      Begin VB.CommandButton Command4 
         Caption         =   "Change Direction"
         Height          =   375
         Left            =   2520
         TabIndex        =   5
         ToolTipText     =   "Change tunnel's direction"
         Top             =   1560
         Width           =   1575
      End
      Begin VB.CommandButton Command14 
         Caption         =   "Choose Color"
         Height          =   375
         Left            =   -71520
         TabIndex        =   17
         ToolTipText     =   "Choose spiral color"
         Top             =   2400
         Width           =   1215
      End
      Begin VB.CommandButton Command12 
         Caption         =   "Thinner"
         Height          =   375
         Left            =   -70320
         TabIndex        =   16
         ToolTipText     =   "Make lines thinner"
         Top             =   2040
         Width           =   1215
      End
      Begin VB.CheckBox Check4 
         Caption         =   "Auto Cycle Colors"
         Height          =   255
         Left            =   -70200
         TabIndex        =   18
         ToolTipText     =   "Automatically cycle colors"
         Top             =   2520
         Value           =   1  'Checked
         Width           =   1575
      End
      Begin VB.CommandButton Command11 
         Caption         =   "Thicker"
         Height          =   375
         Left            =   -71520
         TabIndex        =   15
         ToolTipText     =   "Make lines thicker"
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Frame Frame3 
         Caption         =   "Spiral Animation Positioning"
         Height          =   2655
         Left            =   -74880
         TabIndex        =   57
         Top             =   3000
         Width           =   6375
         Begin VB.CommandButton Command16 
            Caption         =   "Decrement Position"
            Height          =   255
            Left            =   3360
            TabIndex        =   26
            ToolTipText     =   "Decrease position on scale by 1 point"
            Top             =   1320
            Width           =   1695
         End
         Begin VB.CommandButton Command9 
            Caption         =   "Increment Position"
            Height          =   255
            Left            =   3360
            TabIndex        =   25
            ToolTipText     =   "Increase position on scale by 1 point"
            Top             =   1080
            Width           =   1695
         End
         Begin VB.CommandButton Command15 
            Caption         =   "Change Direction"
            Height          =   495
            Left            =   5280
            TabIndex        =   27
            ToolTipText     =   "Change scale movement direction of the animation"
            Top             =   1080
            Width           =   975
         End
         Begin VB.CommandButton Command10 
            Caption         =   "Set High"
            Height          =   255
            Left            =   1200
            TabIndex        =   21
            ToolTipText     =   "Set end position on position scale"
            Top             =   960
            Width           =   855
         End
         Begin VB.CommandButton Command13 
            Caption         =   "Set Low"
            Height          =   255
            Left            =   240
            TabIndex        =   20
            ToolTipText     =   "Set start position on position scale"
            Top             =   960
            Width           =   855
         End
         Begin VB.OptionButton Option5 
            Caption         =   "Stop spiral"
            Height          =   255
            Left            =   1920
            TabIndex        =   30
            ToolTipText     =   "Stop spiral animation"
            Top             =   2220
            Width           =   1455
         End
         Begin VB.OptionButton Option4 
            Caption         =   "User-defined"
            Height          =   255
            Left            =   1920
            TabIndex        =   29
            ToolTipText     =   "Use user-defined position scale limits"
            Top             =   1980
            Width           =   1455
         End
         Begin VB.OptionButton Option3 
            Caption         =   "Automatic"
            Height          =   255
            Left            =   1920
            TabIndex        =   28
            ToolTipText     =   "Use automatic position scale limits"
            Top             =   1740
            Value           =   -1  'True
            Width           =   1455
         End
         Begin VB.CheckBox Check3 
            Caption         =   "Inverse Loop"
            Height          =   255
            Left            =   3480
            TabIndex        =   33
            ToolTipText     =   "Automatically control the inverse checkbox to switch at ends of position scale limits"
            Top             =   2220
            Width           =   1455
         End
         Begin VB.CheckBox Check2 
            Caption         =   "Loop"
            Height          =   255
            Left            =   3480
            TabIndex        =   31
            ToolTipText     =   "Check this to loop the spiral animation, uncheck to have it reverse at the end"
            Top             =   1740
            Width           =   975
         End
         Begin VB.CheckBox Check1 
            Caption         =   "Inverse"
            Height          =   255
            Left            =   3480
            TabIndex        =   32
            ToolTipText     =   "Invert the spiral"
            Top             =   1980
            Width           =   975
         End
         Begin MSComctlLib.Slider Slider6 
            Height          =   375
            Left            =   120
            TabIndex        =   19
            ToolTipText     =   "Current spiral position on animation scale"
            Top             =   480
            Width           =   6135
            _ExtentX        =   10821
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   6000
            SelStart        =   1
            TickFrequency   =   100
            Value           =   1
         End
         Begin VB.Label Label15 
            Alignment       =   2  'Center
            Caption         =   "Position Scale"
            Height          =   330
            Left            =   2400
            TabIndex        =   59
            Top             =   240
            Width           =   1500
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "6000"
            Height          =   255
            Left            =   1200
            TabIndex        =   23
            ToolTipText     =   "End position - double click to jump to it"
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label16 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "1"
            Height          =   255
            Left            =   240
            TabIndex        =   22
            ToolTipText     =   "Start position - double click to jump to it"
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label18 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Height          =   255
            Left            =   2280
            TabIndex        =   24
            ToolTipText     =   "Current spiral position on scale"
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label19 
            Alignment       =   2  'Center
            Caption         =   "Position"
            Height          =   255
            Left            =   2280
            TabIndex        =   58
            Top             =   960
            Width           =   855
         End
      End
      Begin MSComctlLib.Slider Slider1 
         Height          =   375
         Left            =   -74040
         TabIndex        =   10
         ToolTipText     =   "Change the radius value, making a zoom effect"
         Top             =   900
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   661
         _Version        =   393216
         Min             =   1
         Max             =   1500
         SelStart        =   25
         TickFrequency   =   50
         Value           =   25
      End
      Begin MSComctlLib.Slider Slider3 
         Height          =   375
         Left            =   -71400
         TabIndex        =   11
         ToolTipText     =   "Change the width of the spiral"
         Top             =   900
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   661
         _Version        =   393216
         Min             =   1
         Max             =   10000
         SelStart        =   1000
         TickFrequency   =   250
         Value           =   1000
      End
      Begin MSComctlLib.Slider Slider4 
         Height          =   375
         Left            =   -74040
         TabIndex        =   12
         ToolTipText     =   "Change the height of the spiral"
         Top             =   1560
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   661
         _Version        =   393216
         Min             =   1
         Max             =   10000
         SelStart        =   1000
         TickFrequency   =   250
         Value           =   1000
      End
      Begin MSComctlLib.Slider Slider5 
         Height          =   375
         Left            =   -71400
         TabIndex        =   13
         ToolTipText     =   "Change the number of points plotted each cycle by percent of default"
         Top             =   1560
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   661
         _Version        =   393216
         Min             =   1
         Max             =   100
         SelStart        =   25
         TickFrequency   =   5
         Value           =   25
      End
      Begin MSComctlLib.Slider Slider7 
         Height          =   390
         Left            =   -74040
         TabIndex        =   14
         ToolTipText     =   "Change the amount of position changes by percent of default"
         Top             =   2280
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   688
         _Version        =   393216
         Min             =   1
         Max             =   200
         SelStart        =   100
         TickFrequency   =   10
         Value           =   100
      End
      Begin VB.Frame Frame8 
         Caption         =   "Animation"
         Height          =   1800
         Left            =   -74760
         TabIndex        =   90
         Top             =   4680
         Width           =   6135
         Begin VB.PictureBox ChangeColorBox 
            BackColor       =   &H00FFFFFF&
            ForeColor       =   &H00000000&
            Height          =   255
            Left            =   480
            ScaleHeight     =   195
            ScaleWidth      =   675
            TabIndex        =   95
            ToolTipText     =   "Alternate color to change to"
            Top             =   1320
            Width           =   735
         End
         Begin VB.CheckBox chkColor 
            Caption         =   "Change Color"
            Height          =   255
            Left            =   240
            TabIndex        =   52
            ToolTipText     =   "Alternate object's color"
            Top             =   720
            Width           =   1455
         End
         Begin VB.CheckBox chkShape 
            Caption         =   "Change Shape"
            Height          =   255
            Left            =   240
            TabIndex        =   51
            ToolTipText     =   "Alternate object's shape"
            Top             =   480
            Width           =   1455
         End
         Begin VB.CheckBox chkFlash 
            Caption         =   "Flash"
            Height          =   255
            Left            =   240
            TabIndex        =   50
            ToolTipText     =   "Flash object"
            Top             =   240
            Width           =   1335
         End
         Begin MSComctlLib.Slider sliderShapeChange 
            Height          =   375
            Left            =   4200
            TabIndex        =   56
            ToolTipText     =   "Set object's alternate shape"
            Top             =   1200
            Width           =   1815
            _ExtentX        =   3201
            _ExtentY        =   661
            _Version        =   393216
            Max             =   5
         End
         Begin MSComctlLib.Slider sliderFlashDuration 
            Height          =   375
            Left            =   2400
            TabIndex        =   53
            ToolTipText     =   "Set duration of flash (timer cycles)"
            Top             =   240
            Width           =   1695
            _ExtentX        =   2990
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   50
            SelStart        =   1
            TickFrequency   =   5
            Value           =   1
         End
         Begin MSComctlLib.Slider sliderShapeDuration 
            Height          =   375
            Left            =   2400
            TabIndex        =   54
            ToolTipText     =   "Set duration of shape (timer cycles)"
            Top             =   720
            Width           =   1695
            _ExtentX        =   2990
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   50
            SelStart        =   1
            TickFrequency   =   5
            Value           =   1
         End
         Begin MSComctlLib.Slider sliderColorDuration 
            Height          =   375
            Left            =   2400
            TabIndex        =   55
            ToolTipText     =   "Set duration of color (timer cycles)"
            Top             =   1200
            Width           =   1695
            _ExtentX        =   2990
            _ExtentY        =   661
            _Version        =   393216
            Min             =   1
            Max             =   50
            SelStart        =   1
            TickFrequency   =   5
            Value           =   1
         End
         Begin VB.Label Label25 
            Alignment       =   2  'Center
            Caption         =   "Color Duration"
            Height          =   390
            Left            =   1680
            TabIndex        =   97
            Top             =   1200
            Width           =   855
         End
         Begin VB.Label Label24 
            Alignment       =   2  'Center
            Caption         =   "Alternate Color:"
            Height          =   255
            Left            =   240
            TabIndex        =   96
            Top             =   1080
            Width           =   1215
         End
         Begin VB.Label Label34 
            Alignment       =   2  'Center
            Caption         =   "Shape Duration"
            Height          =   390
            Left            =   1680
            TabIndex        =   93
            Top             =   720
            Width           =   855
         End
         Begin VB.Label Label33 
            Alignment       =   2  'Center
            Caption         =   "Flash Duration"
            Height          =   375
            Left            =   1680
            TabIndex        =   92
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label32 
            Caption         =   "Shape to Change To:"
            Height          =   255
            Left            =   4320
            TabIndex        =   91
            Top             =   960
            Width           =   1575
         End
      End
      Begin VB.OptionButton Option11 
         Caption         =   "Red"
         Height          =   255
         Left            =   3360
         TabIndex        =   161
         Top             =   5030
         Value           =   -1  'True
         Width           =   855
      End
      Begin VB.Label Label57 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   3360
         TabIndex        =   157
         ToolTipText     =   "Overall size of tunnel"
         Top             =   5280
         Width           =   855
      End
      Begin VB.Label Label59 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   5520
         TabIndex        =   159
         ToolTipText     =   "Overall size of tunnel"
         Top             =   5280
         Width           =   855
      End
      Begin VB.Label Label58 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   4440
         TabIndex        =   158
         ToolTipText     =   "Overall size of tunnel"
         Top             =   5280
         Width           =   855
      End
      Begin VB.Label Label64 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   4560
         TabIndex        =   166
         Top             =   5950
         Width           =   615
      End
      Begin VB.Label Label60 
         Alignment       =   2  'Center
         Caption         =   "Color Spectrum Limits"
         Height          =   255
         Left            =   3480
         TabIndex        =   160
         Top             =   4800
         Width           =   2775
      End
      Begin MSForms.ScrollBar ScrollBar11 
         Height          =   225
         Left            =   3360
         TabIndex        =   156
         ToolTipText     =   "Choose color value"
         Top             =   6240
         Width           =   3015
         Size            =   "5318;397"
         Max             =   255
         Position        =   127
         LargeChange     =   2
      End
      Begin VB.Label Label56 
         Alignment       =   2  'Center
         Caption         =   "Color Cycle Speed (Blue)"
         Height          =   255
         Left            =   360
         TabIndex        =   154
         Top             =   6000
         Width           =   2895
      End
      Begin VB.Label Label55 
         Alignment       =   2  'Center
         Caption         =   "Color Cycle Speed (Green)"
         Height          =   255
         Left            =   360
         TabIndex        =   153
         Top             =   5400
         Width           =   2895
      End
      Begin MSForms.ScrollBar ScrollBar10 
         Height          =   225
         Left            =   360
         TabIndex        =   152
         ToolTipText     =   "Speed of color cycler (blue)"
         Top             =   6240
         Width           =   2895
         Size            =   "5106;397"
         Max             =   200
         Position        =   1
         LargeChange     =   2
      End
      Begin MSForms.ScrollBar ScrollBar9 
         Height          =   225
         Left            =   360
         TabIndex        =   151
         ToolTipText     =   "Speed of color cycler (green)"
         Top             =   5640
         Width           =   2895
         Size            =   "5106;397"
         Max             =   200
         Position        =   1
         LargeChange     =   2
      End
      Begin VB.Label Label54 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   3840
         TabIndex        =   150
         ToolTipText     =   "Speed of color cycler (shows red, green, and blue values)"
         Top             =   1080
         Width           =   1095
      End
      Begin VB.Label Label53 
         Alignment       =   2  'Center
         Caption         =   "Speed"
         Height          =   255
         Left            =   3840
         TabIndex        =   149
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label52 
         Alignment       =   2  'Center
         Caption         =   "Color Cycle Speed (Red)"
         Height          =   255
         Left            =   360
         TabIndex        =   148
         Top             =   4800
         Width           =   2895
      End
      Begin MSForms.ScrollBar ScrollBar8 
         Height          =   225
         Left            =   360
         TabIndex        =   147
         ToolTipText     =   "Speed of color cycler (red)"
         Top             =   5040
         Width           =   2895
         Size            =   "5106;397"
         Max             =   200
         Position        =   1
         LargeChange     =   2
      End
      Begin VB.Label Label51 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   3120
         TabIndex        =   146
         ToolTipText     =   "Color cycler multiplication value"
         Top             =   1080
         Width           =   615
      End
      Begin VB.Label Label50 
         Alignment       =   2  'Center
         Caption         =   "Cycle"
         Height          =   255
         Left            =   3120
         TabIndex        =   145
         Top             =   720
         Width           =   615
      End
      Begin MSForms.ScrollBar ScrollBar7 
         Height          =   225
         Left            =   360
         TabIndex        =   144
         ToolTipText     =   "Color cycler multiplication value"
         Top             =   4080
         Width           =   5895
         Size            =   "10398;397"
         Max             =   100
         Position        =   1
         LargeChange     =   2
      End
      Begin VB.Label Label49 
         Alignment       =   2  'Center
         Caption         =   "Color Cycle Multiplier"
         Height          =   255
         Left            =   1320
         TabIndex        =   143
         Top             =   3840
         Width           =   3855
      End
      Begin VB.Label Label48 
         Alignment       =   2  'Center
         Caption         =   "Width"
         Height          =   255
         Left            =   1320
         TabIndex        =   142
         Top             =   3240
         Width           =   3855
      End
      Begin VB.Label Label47 
         Alignment       =   2  'Center
         Caption         =   "Density"
         Height          =   255
         Left            =   1320
         TabIndex        =   141
         Top             =   2640
         Width           =   3855
      End
      Begin VB.Label Label46 
         Alignment       =   2  'Center
         Caption         =   "Size"
         Height          =   255
         Left            =   1320
         TabIndex        =   140
         Top             =   2040
         Width           =   3855
      End
      Begin MSForms.ScrollBar ScrollBar6 
         Height          =   225
         Left            =   360
         TabIndex        =   139
         ToolTipText     =   "Width (thickness) of each circle line drawn"
         Top             =   3480
         Width           =   5895
         Size            =   "10398;397"
         Min             =   1
         Max             =   1500
         Position        =   2
         LargeChange     =   10
      End
      Begin MSForms.ScrollBar ScrollBar5 
         Height          =   225
         Left            =   360
         TabIndex        =   138
         ToolTipText     =   "Radius of the colors"
         Top             =   2880
         Width           =   5895
         Size            =   "10398;397"
         Max             =   9900
         Position        =   100
         LargeChange     =   100
      End
      Begin MSForms.ScrollBar ScrollBar4 
         Height          =   225
         Left            =   360
         TabIndex        =   137
         ToolTipText     =   "Overall size of tunnel"
         Top             =   2280
         Width           =   5895
         Size            =   "10398;397"
         Max             =   1000
         Position        =   100
         LargeChange     =   10
      End
      Begin VB.Label Label26 
         Alignment       =   2  'Center
         Caption         =   "Number of Shapes"
         Height          =   255
         Left            =   -74760
         TabIndex        =   105
         Top             =   5800
         Width           =   6015
      End
      Begin VB.Label Label20 
         Alignment       =   2  'Center
         Caption         =   "Objects"
         Height          =   255
         Left            =   -74760
         TabIndex        =   69
         Top             =   360
         Width           =   1815
      End
      Begin VB.Label Label11 
         Alignment       =   2  'Center
         Caption         =   "Direction"
         Height          =   255
         Left            =   5040
         TabIndex        =   68
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label10 
         Alignment       =   2  'Center
         Caption         =   "Width"
         Height          =   255
         Left            =   2400
         TabIndex        =   67
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label9 
         Alignment       =   2  'Center
         Caption         =   "Density"
         Height          =   255
         Left            =   1680
         TabIndex        =   66
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         Caption         =   "Size"
         Height          =   210
         Left            =   960
         TabIndex        =   65
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   5040
         TabIndex        =   9
         ToolTipText     =   "Direction of color cycling"
         Top             =   1080
         Width           =   615
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   2400
         TabIndex        =   8
         ToolTipText     =   "Width (thickness) of each circle line drawn"
         Top             =   1080
         Width           =   615
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   1680
         TabIndex        =   7
         ToolTipText     =   "Radius of the colors"
         Top             =   1080
         Width           =   615
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Height          =   255
         Left            =   960
         TabIndex        =   6
         ToolTipText     =   "Overall size of tunnel"
         Top             =   1080
         Width           =   615
      End
      Begin VB.Label Label14 
         Alignment       =   2  'Center
         Caption         =   "Limit"
         Height          =   210
         Left            =   -71400
         TabIndex        =   64
         Top             =   1320
         Width           =   2205
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         Caption         =   "Zoom"
         Height          =   240
         Left            =   -74040
         TabIndex        =   63
         Top             =   720
         Width           =   2145
      End
      Begin VB.Label Label17 
         Alignment       =   2  'Center
         Caption         =   "Change"
         Height          =   210
         Left            =   -74040
         TabIndex        =   62
         Top             =   2040
         Width           =   2175
      End
      Begin VB.Label Label13 
         Alignment       =   2  'Center
         Caption         =   "Height"
         Height          =   210
         Left            =   -74040
         TabIndex        =   61
         Top             =   1320
         Width           =   2160
      End
      Begin VB.Label Label12 
         Alignment       =   2  'Center
         Caption         =   "Width"
         Height          =   210
         Left            =   -71400
         TabIndex        =   60
         Top             =   720
         Width           =   2175
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   720
      Top             =   7320
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   1320
      Top             =   7320
   End
   Begin MSComctlLib.Slider Slider2 
      Height          =   375
      Left            =   2280
      TabIndex        =   2
      ToolTipText     =   "Change speed of animation"
      Top             =   7200
      Width           =   2415
      _ExtentX        =   4260
      _ExtentY        =   661
      _Version        =   393216
      Min             =   1
      Max             =   500
      SelStart        =   30
      TickFrequency   =   50
      Value           =   30
   End
   Begin VB.CommandButton Command8 
      Caption         =   "OK"
      Height          =   375
      Left            =   5040
      TabIndex        =   3
      Top             =   6960
      Width           =   1215
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   120
      Top             =   7080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "Timer Speed (higher is slower)"
      Height          =   255
      Left            =   2400
      TabIndex        =   1
      Top             =   6960
      Width           =   2175
   End
End
Attribute VB_Name = "VisualMaker"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Virtual Hypnotist
'©2003-2008 FollowTheWatch Software
'http://vhypno.sourceforge.net
'http://sourceforge.net/projects/vhypno
'Contact - followthewatch55@yahoo.com

'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.

'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.

'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

Option Explicit
Public ViewObject As Object
Private SkipReset As Boolean
Private SkipRefresh As Boolean

Private Sub BackColorBox_Click()
Dim I As Long
CommonDialog1.Color = BackColorBox.BackColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    BackColorBox.BackColor = I
    CShapeBackColor(List1.ListIndex) = I
    Call SetCustomShapes(frmViewer)
End If
End Sub

Private Sub BorderColorBox_Click()
Dim I As Long
CommonDialog1.Color = BorderColorBox.BackColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    BorderColorBox.BackColor = I
    CShapeBorderColor(List1.ListIndex) = I
    Call SetCustomShapes(frmViewer)
End If
End Sub

Private Sub ChangeColorBox_Click()
Dim I As Long
CommonDialog1.Color = ChangeColorBox.BackColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    ChangeColorBox.BackColor = I
    CShapeAltColor(List1.ListIndex) = I
    Call SetCustomShapes(frmViewer)
End If
End Sub

Private Sub Check1_Click()
If Loading = False And Me.Visible = True Then Slider6.SetFocus
End Sub

Private Sub Check10_Click()
If Check10.Value = 1 Then GrockUseText = True Else GrockUseText = False
GrockReset = True
End Sub

Private Sub Check2_Click()
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
    Check1.Value = 0
    Check1.Enabled = False
End If
If Check3.Value = 0 Then
    Check1.Enabled = True
End If
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then GrockFade = True Else GrockFade = False
End Sub

Private Sub Check6_Click()
If Check6.Value = 1 Then GrockEnableTones = True Else GrockEnableTones = False
End Sub

Private Sub Check9_Click()
If Check9.Value = 1 Then GrockLoopText = True Else GrockLoopText = False
GrockReset = True
End Sub

Private Sub chkBackColor_Click()
If chkBackColor.Value = 1 Then
    CColorType(List1.ListIndex) = 1
    chkFillColor.Value = 0
    chkBorderColor.Value = 0
    AnimReset = True 'Reset animations
End If
If chkBackColor.Value = 0 And CColorType(List1.ListIndex) = 1 Then chkBackColor.Value = 1
End Sub

Private Sub chkBorderColor_Click()
If chkBorderColor.Value = 1 Then
    CColorType(List1.ListIndex) = 3
    chkFillColor.Value = 0
    chkBackColor.Value = 0
    AnimReset = True 'Reset animations
End If
If chkBorderColor.Value = 0 And CColorType(List1.ListIndex) = 3 Then chkBorderColor.Value = 1
End Sub

Private Sub chkColor_Click()
Static PrevValue As Integer
Static PrevIndex As Integer
If chkColor.Value = 0 And PrevValue = 1 And List1.ListIndex = PrevIndex Then chkColor.Value = 2
PrevValue = chkColor.Value
PrevIndex = List1.ListIndex
CChangeColor(List1.ListIndex) = chkColor.Value
AnimReset = True 'Reset animations
End Sub

Private Sub chkFillColor_Click()
If chkFillColor.Value = 1 Then
    CColorType(List1.ListIndex) = 2
    chkBorderColor.Value = 0
    chkBackColor.Value = 0
    AnimReset = True 'Reset animations
End If
If chkFillColor.Value = 0 And CColorType(List1.ListIndex) = 2 Then chkFillColor.Value = 1
End Sub

Private Sub chkFlash_Click()
Static PrevValue As Integer
Static PrevIndex As Integer
If chkFlash.Value = 0 And PrevValue = 1 And List1.ListIndex = PrevIndex Then chkFlash.Value = 2
PrevValue = chkFlash.Value
PrevIndex = List1.ListIndex
CFlash(List1.ListIndex) = chkFlash.Value
AnimReset = True 'Reset animations
End Sub

Private Sub chkShape_Click()
Static PrevValue As Integer
Static PrevIndex As Integer
If chkShape.Value = 0 And PrevValue = 1 And List1.ListIndex = PrevIndex Then chkShape.Value = 2
PrevValue = chkShape.Value
PrevIndex = List1.ListIndex
CChangeShape(List1.ListIndex) = chkShape.Value
AnimReset = True 'Reset animations
End Sub

Private Sub cmdSetBackColor_Click()
Dim I As Long
CommonDialog1.Color = GrockBackColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    GrockBackColor = I
    ViewObject.BackColor = I
    GrockReset = True
End If
End Sub

Private Sub cmdSetTextColor_Click()
Dim I As Long
CommonDialog1.Color = GrockFontColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    GrockFontColor = I
    GrockReset = True
End If
End Sub

Private Sub Command1_Click()
If Option11.Value = True Then RLower = ScrollBar11.Value
If Option12.Value = True Then GLower = ScrollBar11.Value
If Option13.Value = True Then BLower = ScrollBar11.Value
ColorReset = True
End Sub

Private Sub Command10_Click()
Label1.Caption = Slider6.Value
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Command11_Click()
ViewObject.DrawWidth = ViewObject.DrawWidth + 1
SpiralThickness = ViewObject.DrawWidth
End Sub

Private Sub Command12_Click()
If ViewObject.DrawWidth > 1 Then ViewObject.DrawWidth = ViewObject.DrawWidth - 1
SpiralThickness = ViewObject.DrawWidth
End Sub

Private Sub Command13_Click()
Label16.Caption = Slider6.Value
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Command14_Click()
On Error Resume Next
Dim I As Long
CommonDialog1.Color = Cl
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    Check4.Value = 0
    SpiralColor = I
End If
End Sub

Private Sub Command15_Click()
If Down = True Then Down = False Else Down = True
If Check3.Value = 1 And Check1.Value = 1 Then Check1.Value = 0: Exit Sub
If Check3.Value = 1 And Check1.Value = 0 Then Check1.Value = 1: Exit Sub
End Sub

Private Sub Command16_Click()
Slider6.Value = Slider6.Value - 1
Cextern = Slider6.Value
ChangeSpiral = True
End Sub

Private Sub cmdResetVisual_Click()

Call ResetVisuals(SSTab1.Tab)

If SSTab1.Tab = 0 Or SSTab1.Tab = 3 Then
    ViewObject.Cls
End If

If SSTab1.Tab = 2 Then
    'a little trick to refresh values
    List1.ListIndex = 1
    List1.ListIndex = 0
End If
End Sub

Private Sub Command17_Click()
' Set Cancel to True.
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   
   'put current settings into the dialog box
   CommonDialog1.FontName = GrockFontName
   CommonDialog1.FontSize = GrockFontSize
   CommonDialog1.FontBold = GrockFontBold
   CommonDialog1.FontItalic = GrockFontItalic

   ' Set the Flags property.
   CommonDialog1.flags = cdlCFBoth
   ' Display the Font dialog box.
   CommonDialog1.ShowFont
   ' Set text properties according to user's
   ' selections.
   
   GrockFontName = CommonDialog1.FontName
   GrockFontSize = CommonDialog1.FontSize
   GrockFontBold = CommonDialog1.FontBold
   GrockFontItalic = CommonDialog1.FontItalic

   GrockReset = True
Exit Sub

ErrHandler:
   ' User pressed Cancel button.
   Exit Sub
End Sub

Private Sub Command2_Click()
If Option11.Value = True Then RUpper = ScrollBar11.Value
If Option12.Value = True Then GUpper = ScrollBar11.Value
If Option13.Value = True Then BUpper = ScrollBar11.Value
ColorReset = True
End Sub

Private Sub Command3_Click()
If ExceptionHandlers = True Then On Error GoTo ErrorHandler
Dim HelpFile As String

If SSTab1.Tab = 0 Then HelpFile = "vismaker.html#color"
If SSTab1.Tab = 1 Then HelpFile = "vismaker.html#spiral"
If SSTab1.Tab = 2 Then HelpFile = "vismaker.html#custom"
If SSTab1.Tab = 3 Then HelpFile = "vismaker.html#grock"

Shell "hh " + App.Path + "\vh.chm::/" + HelpFile, vbNormalFocus
Exit Sub

ErrorHandler:
err.Source = "Visual Maker - Command3"
   Call ErrorReport("An error occurred while loading Windows HTML Help.", vbExclamation)
  
End Sub

Private Sub Command4_Click()
'Select which way circles go
    cbf = cbf + 1


    If cbf = 2 Then
        cbf = 0
    End If

End Sub

Private Sub Command8_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Unload frmViewer
Me.Hide
End Sub

Private Sub Command9_Click()
Slider6.Value = Slider6.Value + 1
Cextern = Slider6.Value
ChangeSpiral = True
End Sub

Private Sub File1_Click()
Static OldFile As String
GrockFile = File1.Filename
If GrockFile <> OldFile Then
    OldFile = GrockFile
    Call ClearArrays
    Call ScriptLoader(9, File1.Filename)
    GrockReset = True
End If
End Sub

Private Sub File1_DblClick()
ScriptMaker.Show
AutoLoadScript = App.Path + "\wordlists\" + GrockFile
Call ScriptMaker.mnuFileLoad_Click
End Sub

Private Sub FillColorBox_Click()
Dim I As Long
CommonDialog1.Color = FillColorBox.BackColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    FillColorBox.BackColor = I
    CShapeFillColor(List1.ListIndex) = I
    Call SetCustomShapes(frmViewer)
End If
End Sub

Private Sub Form_Activate()
frmViewer.Command1.Visible = False
Dim I As Integer
If frmViewer.Visible = False Then
    Me.Top = (ScreenY / 2) - (Me.Height / 2)
    Call frmViewer.View(2, "Custom Visuals Preview", 0)
    Me.Left = (ScreenX / 2) - ((Me.Width + frmViewer.Width) / 2)
    frmViewer.Left = VisualMaker.Left + VisualMaker.Width
    Set ViewObject = frmViewer.Picture1
    ViewObject.ScaleMode = vbPixels
    'CF.StartColor = vbRed
    'CF.EndColor = vbYellow
    'CF.Steps = 100
    'CF.PingPong = False
    'CurD = 10000
    If VisualMode <> 3 Then
        ViewObject.BackColor = vbBlack
    Else
        ViewObject.BackColor = GrockBackColor
    End If
    ViewObject.AutoRedraw = True
End If

Timer1.Enabled = True
Timer2.Enabled = True
If VisualMode = 0 Then
    SkipReset = True
    SSTab1.Tab = 0
    SkipReset = False
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = True
    frmViewer.BackColor = &H8000000F
    ViewObject.Cls
    ViewObject.DrawWidth = CircleWidth
    'cbf = 0 'initialize backwards of forwards var
    ViewObject.ScaleMode = 3
    ViewObject.AutoRedraw = False
    InitTunnel = False
    Timer2.Enabled = True
End If
If VisualMode = 1 Then
    SkipReset = True
    SSTab1.Tab = 1
    SkipReset = False
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = True
    frmViewer.BackColor = &H8000000F
    ViewObject.Cls
    ViewObject.ScaleMode = 3
    ViewObject.DrawWidth = SpiralThickness
    ViewObject.AutoRedraw = True
    ViewObject.Cls
    Timer2.Enabled = True
    Me.SetFocus
End If
If VisualMode = 2 Then
    SkipReset = True
    SSTab1.Tab = 2
    SkipReset = False
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = False
    frmViewer.BackColor = vbBlack
    For I = 0 To 9
        If CShapeType(I) <> -1 Then frmViewer.CustShape(I).Visible = True
    Next I
    Call SetCustomShapes(frmViewer)
    Call List1_Click
    Timer2.Enabled = True
    Me.SetFocus
End If
If VisualMode = 3 Then
    SkipReset = True
    SSTab1.Tab = 3
    SkipReset = False
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = True
    frmViewer.BackColor = &H8000000F
    
    Picture1.BackColor = GrockColor
    Picture2.BackColor = GrockColor2
    If GrockColorMode = 1 Then Option1.Value = True
    If GrockColorMode = 2 Then Option9.Value = True
    If GrockColorMode = 3 Then Option10.Value = True
    If GrockShapeType = 0 Then Option2.Value = True
    If GrockShapeType = 1 Then Option6.Value = True
    If GrockShapeType = 2 Then Option7.Value = True
    If GrockShapeType = 3 Then Option8.Value = True
    Slider8.Value = GrockNumShapes
    Slider9.Value = GrockWidth
    Slider10.Value = GrockOffset
    Slider12.Value = GrockRadiusX
    Slider13.Value = GrockRadiusY
    If GrockEnableTones = True Then Check6.Value = 1 Else Check6.Value = 0
    If GrockLoopText = True Then Check9.Value = 1 Else Check9.Value = 0
    If GrockUseText = True Then Check10.Value = 1 Else Check10.Value = 0
    ScrollBar1.Value = GrockFrequency
    ScrollBar3.Value = GrockFrequency2
    ScrollBar2.Value = GrockDuration
    volSlider.Value = GrockVolume
    If GrockFade = True Then Check5.Value = 1 Else Check5.Value = 0
    CommonDialog1.FontName = GrockFontName
    CommonDialog1.FontSize = GrockFontSize
    CommonDialog1.FontBold = GrockFontBold
    CommonDialog1.FontItalic = GrockFontItalic
    
    ViewObject.Cls
    ViewObject.DrawWidth = GrockWidth
    ViewObject.ScaleMode = 3
    ViewObject.AutoRedraw = False
    ViewObject.Cls
    GrockReset = True
    Timer2.Enabled = True
    Me.SetFocus
End If

With File1
    .Refresh
    For I = 0 To .ListCount - 1
        If LCase$(.List(I)) = LCase$(GrockFile) Then .ListIndex = I
    Next I
End With

If Check3.Value = 1 Then Check1.Enabled = False
If Check3.Value = 0 Then Check1.Enabled = True
End Sub

Private Sub Form_Load()
If ExceptionHandlers = True Then On Error GoTo ErrorHandler

File1.Path = App.Path + "\wordlists"
File1.Pattern = "*.txt"

'Call List1_Click
'If Loading = False Then Me.Show

Exit Sub
ErrorHandler:
err.Source = "Visual Maker - Loader"
   Call ErrorReport("An error occurred while setting up the Hypnotic Visual Maker.", vbExclamation)
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmViewer.Hide
Me.Hide
End Sub

Private Sub Label1_DblClick()
Slider6.Value = Val(Label1.Caption)
Cextern = Slider6.Value
ChangeSpiral = True
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Label16_DblClick()
Slider6.Value = Val(Label16.Caption)
Cextern = Slider6.Value
ChangeSpiral = True
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub List1_Click()
If SkipRefresh = True Then Exit Sub
'load stored shape values into controls
Dim I As Integer
I = List1.ListIndex
txtObjectName.Text = List1.List(I)
sliderType.Value = CShapeType(I)
sliderDrawMode.Value = CShapeDrawMode(I)
If CShapeBackStyle(I) = 0 Then optTransparent.Value = True Else optOpaque.Value = True
BackColorBox.BackColor = CShapeBackColor(I)
sliderFill.Value = CShapeFillStyle(I)
FillColorBox.BackColor = CShapeFillColor(I)
sliderBorder.Value = CShapeBorderStyle(I)
sliderBordWidth.Value = CShapeBorderWidth(I)
BorderColorBox.BackColor = CShapeBorderColor(I)
sliderVert.Value = CShapeVert(I)
sliderHoriz.Value = CShapeHoriz(I)
sliderHeight.Value = CShapeHeight(I)
sliderWidth.Value = CShapeWidth(I)
chkFlash.Value = CFlash(I)
chkShape.Value = CChangeShape(I)
chkColor.Value = CChangeColor(I)
ChangeColorBox.BackColor = CShapeAltColor(I)
sliderFlashDuration.Value = CFlashDuration(I)
sliderShapeDuration.Value = CShapeDuration(I)
sliderShapeChange.Value = CShape(I)
sliderColorDuration.Value = CColorDuration(I)
If CColorType(I) = 1 Then chkBackColor.Value = 1 Else chkBackColor.Value = 0
If CColorType(I) = 2 Then chkFillColor.Value = 1 Else chkFillColor.Value = 0
If CColorType(I) = 3 Then chkBorderColor.Value = 1 Else chkBorderColor.Value = 0
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
    GrockColor = Picture1.BackColor
    GrockColorMode = 1
    Check5.Value = 1
    Check5.Enabled = False
    GrockReset = True
End If
End Sub

Private Sub Option10_Click()
If Option10.Value = True Then
    GrockColorMode = 3
    Check5.Enabled = True
    GrockReset = True
End If
End Sub

Private Sub Option2_Click()
If Option2 = True Then
    GrockShapeType = 0
    GrockReset = True
End If
End Sub

Private Sub Option3_Click()
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Option4_Click()
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Option5_Click()
If Loading = False Then Slider6.SetFocus
End Sub

Private Sub Option6_Click()
If Option6 = True Then
    GrockShapeType = 1
    GrockReset = True
End If
End Sub

Private Sub Option7_Click()
If Option7 = True Then
    GrockShapeType = 2
    GrockReset = True
End If
End Sub

Private Sub Option8_Click()
If Option8 = True Then
    GrockShapeType = 3
    GrockReset = True
End If
End Sub

Private Sub Option9_Click()
If Option9.Value = True Then
    GrockColor = Picture1.BackColor
    GrockColor2 = Picture2.BackColor
    GrockColorMode = 2
    Check5.Enabled = True
    GrockReset = True
End If
End Sub

Private Sub optOpaque_Click()
If optOpaque.Value = True Then
    CShapeBackStyle(List1.ListIndex) = 1
    Call SetCustomShapes(frmViewer)
End If
End Sub

Private Sub optTransparent_Click()
If optTransparent.Value = True Then
    CShapeBackStyle(List1.ListIndex) = 0
    Call SetCustomShapes(frmViewer)
End If
End Sub

Private Sub Picture1_Click()
On Error Resume Next
Dim I As Long
CommonDialog1.Color = GrockColor
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    GrockColor = I
    Picture1.BackColor = I
End If
End Sub

Private Sub Picture2_Click()
On Error Resume Next
Dim I As Long
CommonDialog1.Color = GrockColor2
CommonDialog1.flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
I = CommonDialog1.Color
If I <> -1 Then
    GrockColor2 = I
    Picture2.BackColor = I
End If
End Sub

Private Sub ScrollBar1_Change()
Label45.Caption = Trim2(ScrollBar1.Value) + " to " + Trim2(ScrollBar3.Value) + "hz, " + Trim2(ScrollBar2.Value) + "ms"
GrockFrequency = ScrollBar1.Value
GrockReset = True
End Sub

Private Sub ScrollBar10_Change()
CircleSpeedB = ScrollBar10.Value
ColorReset = True
If Loading = False And Check7.Value = 1 Then
    ScrollBar8.Value = CircleSpeedB
    ScrollBar9.Value = CircleSpeedB
End If
End Sub

Private Sub volSlider_Change()
GrockVolume = volSlider.Value
End Sub

Private Sub ScrollBar2_Change()
Label45.Caption = Trim2(ScrollBar1.Value) + " to " + Trim2(ScrollBar3.Value) + "hz, " + Trim2(ScrollBar2.Value) + "ms"
GrockDuration = ScrollBar2.Value
GrockReset = True
End Sub

Private Sub ScrollBar3_Change()
Label45.Caption = Trim2(ScrollBar1.Value) + " to " + Trim2(ScrollBar3.Value) + "hz, " + Trim2(ScrollBar2.Value) + "ms"
GrockFrequency2 = ScrollBar3.Value
GrockReset = True
End Sub

Private Sub ScrollBar4_Change()
If Loading = False Then
    If ScrollBar4.Value = 0 Then ScrollBar4.Value = 1
    ViewObject.Cls
End If
CircleSize = ScrollBar4.Value
End Sub

Private Sub ScrollBar5_Change()
If Loading = False Then
    If ScrollBar5.Value = 0 Then ScrollBar5.Value = 1
    ViewObject.Cls
End If
CircleRadius = ScrollBar5.Value / 100
End Sub

Private Sub ScrollBar6_Change()
If Loading = False Then ViewObject.Cls
CircleWidth = ScrollBar6.Value
If Loading = False Then ViewObject.DrawWidth = CircleWidth
End Sub

Private Sub ScrollBar7_Change()
CircleCycle = ScrollBar7.Value
End Sub

Private Sub ScrollBar8_Change()
CircleSpeedR = ScrollBar8.Value
ColorReset = True
If Loading = False And Check7.Value = 1 Then
    ScrollBar9.Value = CircleSpeedR
    ScrollBar10.Value = CircleSpeedR
End If
End Sub

Private Sub ScrollBar9_Change()
CircleSpeedG = ScrollBar9.Value
ColorReset = True
If Loading = False And Check7.Value = 1 Then
    ScrollBar8.Value = CircleSpeedG
    ScrollBar10.Value = CircleSpeedG
End If
End Sub

Private Sub Slider10_Change()
GrockOffset = Slider10.Value
GrockReset = True
End Sub

Private Sub Slider12_Change()
GrockRadiusX = Slider12.Value
GrockReset = True
End Sub

Private Sub Slider13_Change()
GrockRadiusY = Slider13.Value
GrockReset = True
End Sub

Private Sub Slider2_Change()
Timer2.Interval = Slider2.Value
End Sub

Private Sub Slider6_Scroll()
Cextern = Slider6.Value
ChangeSpiral = True
End Sub

Private Sub Slider8_Change()
GrockNumShapes = Slider8.Value
Slider10.Min = -Slider8.Value + 1
Slider10.Max = Slider8.Value * 3
GrockReset = True
End Sub

Private Sub Slider9_Change()
GrockWidth = Slider9.Value
GrockReset = True
End Sub

Private Sub sliderBorder_Change()
CShapeBorderStyle(List1.ListIndex) = sliderBorder.Value
Call SetCustomShapes(frmViewer)
If sliderBorder.Value = 0 Then lblBorder.Caption = "Transparent"
If sliderBorder.Value = 1 Then lblBorder.Caption = "Solid"
If sliderBorder.Value = 2 Then lblBorder.Caption = "Dash"
If sliderBorder.Value = 3 Then lblBorder.Caption = "Dot"
If sliderBorder.Value = 4 Then lblBorder.Caption = "Dash Dot"
If sliderBorder.Value = 5 Then lblBorder.Caption = "Dash Dot Dot"
If sliderBorder.Value = 6 Then lblBorder.Caption = "Inside Solid"
End Sub

Private Sub sliderBordWidth_Change()
CShapeBorderWidth(List1.ListIndex) = sliderBordWidth.Value
Call SetCustomShapes(frmViewer)
End Sub

Private Sub sliderColorDuration_Change()
CColorDuration(List1.ListIndex) = sliderColorDuration.Value
AnimReset = True 'Reset animations
End Sub

Private Sub sliderDrawMode_Change()
CShapeDrawMode(List1.ListIndex) = sliderDrawMode.Value
Call SetCustomShapes(frmViewer)
If sliderDrawMode.Value = 1 Then lblDrawMode.Caption = "Blackness"
If sliderDrawMode.Value = 2 Then lblDrawMode.Caption = "Not Merge Pen"
If sliderDrawMode.Value = 3 Then lblDrawMode.Caption = "Mask Not Pen"
If sliderDrawMode.Value = 4 Then lblDrawMode.Caption = "Not Copy Pen"
If sliderDrawMode.Value = 5 Then lblDrawMode.Caption = "Mask Pen Not"
If sliderDrawMode.Value = 6 Then lblDrawMode.Caption = "Invert"
If sliderDrawMode.Value = 7 Then lblDrawMode.Caption = "Xor Pen"
If sliderDrawMode.Value = 8 Then lblDrawMode.Caption = "Not Mask Pen"
If sliderDrawMode.Value = 9 Then lblDrawMode.Caption = "Mask Pen"
If sliderDrawMode.Value = 10 Then lblDrawMode.Caption = "Not Xor Pen"
If sliderDrawMode.Value = 11 Then lblDrawMode.Caption = "Nop"
If sliderDrawMode.Value = 12 Then lblDrawMode.Caption = "Merge Not Pen"
If sliderDrawMode.Value = 13 Then lblDrawMode.Caption = "Copy Pen"
If sliderDrawMode.Value = 14 Then lblDrawMode.Caption = "Merge Pen Not"
If sliderDrawMode.Value = 15 Then lblDrawMode.Caption = "Merge Pen"
If sliderDrawMode.Value = 16 Then lblDrawMode.Caption = "Whiteness"
End Sub

Private Sub sliderFill_Change()
CShapeFillStyle(List1.ListIndex) = sliderFill.Value
Call SetCustomShapes(frmViewer)
If sliderFill.Value = 0 Then lblFill.Caption = "Solid"
If sliderFill.Value = 1 Then lblFill.Caption = "Transparent"
If sliderFill.Value = 2 Then lblFill.Caption = "Horizontal Line"
If sliderFill.Value = 3 Then lblFill.Caption = "Vertical Line"
If sliderFill.Value = 4 Then lblFill.Caption = "Upward Diagonal"
If sliderFill.Value = 5 Then lblFill.Caption = "Downward Diagonal"
If sliderFill.Value = 6 Then lblFill.Caption = "Cross"
If sliderFill.Value = 7 Then lblFill.Caption = "Diagonal Cross"
End Sub

Private Sub sliderFlashDuration_Change()
CFlashDuration(List1.ListIndex) = sliderFlashDuration.Value
AnimReset = True 'Reset animations
End Sub

Private Sub sliderHeight_Change()
CShapeHeight(List1.ListIndex) = sliderHeight.Value
Call SetCustomShapes(frmViewer)
End Sub

Private Sub sliderHoriz_Change()
CShapeHoriz(List1.ListIndex) = sliderHoriz.Value
Call SetCustomShapes(frmViewer)
End Sub

Private Sub sliderShapeChange_Change()
CShape(List1.ListIndex) = sliderShapeChange.Value
AnimReset = True 'Reset animations
End Sub

Private Sub sliderShapeDuration_Change()
CShapeDuration(List1.ListIndex) = sliderShapeDuration.Value
AnimReset = True 'Reset animations
End Sub

Private Sub sliderType_Change()
If sliderType.Value = -1 Then
    CShapeType(List1.ListIndex) = -1
    lblObjectType.Caption = "Off"
Else
    CShapeType(List1.ListIndex) = sliderType.Value
    If sliderType.Value = 0 Then lblObjectType.Caption = "Rectangle"
    If sliderType.Value = 1 Then lblObjectType.Caption = "Square"
    If sliderType.Value = 2 Then lblObjectType.Caption = "Oval"
    If sliderType.Value = 3 Then lblObjectType.Caption = "Circle"
    If sliderType.Value = 4 Then lblObjectType.Caption = "Rounded Rectangle"
    If sliderType.Value = 5 Then lblObjectType.Caption = "Rounded Square"
End If
Call SetCustomShapes(frmViewer)
End Sub

Private Sub sliderVert_Change()
CShapeVert(List1.ListIndex) = sliderVert.Value
Call SetCustomShapes(frmViewer)
End Sub

Private Sub sliderWidth_Change()
CShapeWidth(List1.ListIndex) = sliderWidth.Value
Call SetCustomShapes(frmViewer)
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
If Loading = True Then Exit Sub

If SkipReset = True Then Exit Sub

Dim I As Integer
For I = 0 To 9
    frmViewer.CustShape(I).Visible = False
Next I

VisualMode = SSTab1.Tab

If SSTab1.Tab = 0 Then
    If ScrollBar4.Value = 0 Or ScrollBar5.Value = 0 Or ScrollBar6.Value = 0 Then Call ResetVisuals(0)
    Timer1.Enabled = True
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = True
    frmViewer.BackColor = &H8000000F
    ViewObject.Cls
    'CircleSize = 100
    'CircleRadius = 1
    ViewObject.DrawWidth = CircleWidth
    'CircleWidth = 2
    'cbf = 0 'initialize backwards of forwards var
    ViewObject.ScaleMode = 3
    ViewObject.AutoRedraw = False
    ViewObject.Cls
    Slider2.Value = 1
    InitTunnel = False
    Timer2.Enabled = True
End If

If SSTab1.Tab = 1 Then
    Timer1.Enabled = True
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = True
    frmViewer.BackColor = &H8000000F
    ViewObject.Cls
    ViewObject.ScaleMode = 3
    ViewObject.DrawWidth = 1: SpiralThickness = 1
    ViewObject.AutoRedraw = True
    ViewObject.Cls
    Slider2.Value = 30

    'reset spiral
    Cextern = Val(Label16.Caption)
    ChangeSpiral = True
    Timer2.Enabled = True
End If

If SSTab1.Tab = 2 Then
    Timer1.Enabled = True
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = False
    frmViewer.BackColor = vbBlack
    For I = 0 To 9
        If CShapeType(I) <> -1 Then frmViewer.CustShape(I).Visible = True
    Next I
    Call SetCustomShapes(frmViewer)
    Call List1_Click
    Slider2.Value = 30
    Timer2.Enabled = True
End If

If SSTab1.Tab = 3 Then
    Timer1.Enabled = True
    Timer2.Enabled = False
    frmViewer.Picture1.Visible = True
    frmViewer.BackColor = &H8000000F
    ViewObject.Cls
    ViewObject.DrawWidth = GrockWidth
    ViewObject.ScaleMode = 3
    ViewObject.AutoRedraw = False
    ViewObject.Cls
    GrockReset = True
    Slider2.Value = 40
    If File1.ListCount <> 0 Then
        'load first file in list
        File1.ListIndex = 0
        Call File1_Click
    End If
    Timer2.Enabled = True
End If

End Sub

Private Sub Timer1_Timer()
Timer2.Interval = Slider2.Value
VisualMode = SSTab1.Tab
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If VisualMode = 1 Then
    Draw ViewObject
    Slider6.Value = Cextern
    Label18.Caption = LTrim$(Str$(Cextern))
End If
If VisualMode = 0 And cbf = 0 Then rtnCircleForward ViewObject
If VisualMode = 0 And cbf = 1 Then rtnCircleBackward ViewObject
If VisualMode = 2 Then Call AnimateShapes(frmViewer)
If VisualMode = 3 Then Call GrockTunnel(ViewObject)
End Sub

Private Sub Timer3_Timer()
Label2.Caption = CircleSize
Label4.Caption = CircleRadius
Label5.Caption = CircleWidth
Label6.Caption = cbf
Label51.Caption = CircleCycle
Label54.Caption = Trim2(Str$(CircleSpeedR)) + ", " + Trim2(Str$(CircleSpeedG)) + ", " + Trim2(Str$(CircleSpeedB))
Label57.Caption = Trim2(Str$(RLower)) + ", " + Trim2(Str$(RUpper))
Label58.Caption = Trim2(Str$(GLower)) + ", " + Trim2(Str$(GUpper))
Label59.Caption = Trim2(Str$(BLower)) + ", " + Trim2(Str$(BUpper))
Label64.Caption = ScrollBar11.Value
End Sub

Private Sub txtObjectName_Change()
List1.List(List1.ListIndex) = txtObjectName.Text
End Sub

Public Sub ResetVisuals(VisualNum As Integer)
'Resets visuals to their original default state

If VisualNum = 0 Then
    cbf = 0
    CircleSize = 100
    CircleRadius = 1
    CircleWidth = 2
    CircleCycle = 1
    CircleSpeedR = 1
    CircleSpeedG = 1
    CircleSpeedB = 1
    RLower = 5
    GLower = 2
    BLower = 3
    RUpper = 255
    GUpper = 254
    BUpper = 252
    ScrollBar4.Value = CircleSize
    ScrollBar5.Value = CircleRadius * 100
    ScrollBar6.Value = CircleWidth
    ScrollBar7.Value = CircleCycle
    ScrollBar8.Value = CircleSpeedR
    ScrollBar9.Value = CircleSpeedG
    ScrollBar10.Value = CircleSpeedB
    If Me.Visible = True Then
        ViewObject.DrawWidth = CircleWidth
        ViewObject.Cls
    End If
    Slider2.Value = 1
End If

If VisualNum = 1 Then
    SpiralColor = -1
    SpiralThickness = 1
    CF.StartColor = vbRed
    CF.EndColor = vbYellow
    CF.Steps = 100
    CF.PingPong = False
    CurD = 10000
    Slider1.Value = 25
    Slider3.Value = 1000
    Slider4.Value = 1000
    Slider5.Value = 25
    Slider7.Value = 100
    Option3.Value = True
    Check1.Value = 0
    Check2.Value = 0
    Check3.Value = 0
    Check4.Value = 1
    Down = False
    Cextern = 1
    Slider6.Value = 1
    ChangeSpiral = True
    Slider2.Value = 30
End If

If VisualNum = 2 Then
    SkipRefresh = True
    List1.Clear
    List1.AddItem "Object 1"
    List1.AddItem "Object 2"
    List1.AddItem "Object 3"
    List1.AddItem "Object 4"
    List1.AddItem "Object 5"
    List1.AddItem "Object 6"
    List1.AddItem "Object 7"
    List1.AddItem "Object 8"
    List1.AddItem "Object 9"
    List1.AddItem "Object 10"
    List1.ListIndex = 0
    SkipRefresh = False
    'Set custom shape defaults
    Dim I As Integer
    For I = 0 To 9
        CShapeType(I) = -1
        CShapeVert(I) = 50
        CShapeHoriz(I) = 50
        CShapeHeight(I) = 10
        CShapeWidth(I) = 10
        CShapeDrawMode(I) = 13
        CShapeBackStyle(I) = 0
        CShapeBackColor(I) = vbBlack
        CShapeFillStyle(I) = 1
        CShapeFillColor(I) = vbBlack
        CShapeBorderStyle(I) = 1
        CShapeBorderWidth(I) = 1
        CShapeBorderColor(I) = vbWhite
        CFlash(I) = 0
        CChangeShape(I) = 0
        CChangeColor(I) = 0
        CFlashDuration(I) = 1
        CShapeDuration(I) = 1
        CShape(I) = 1
        CColorDuration(I) = 1
        CShapeAltColor(I) = vbWhite
        CColorType(I) = 1
    Next I
    Slider2.Value = 30
End If

If VisualNum = 3 Then
    GrockColor = vbBlue
        Picture1.BackColor = GrockColor
    GrockColor2 = vbGreen
        Picture2.BackColor = GrockColor2
    GrockColorMode = 1
    GrockShapeType = 0
        Option2.Value = True
    GrockNumShapes = 20
        Slider8.Value = 20
    GrockWidth = 2
        Slider9.Value = 2
    GrockOffset = 0
        Slider10.Value = 0
    GrockRadiusX = 100
        Slider12.Value = 100
    GrockRadiusY = 100
        Slider13.Value = 100
    GrockEnableTones = True
        Check6.Value = 1
    GrockLoopText = False
        Check9.Value = 0
    GrockUseText = True
        Check10.Value = 1
    GrockFrequency = 1000
        ScrollBar1.Value = 1000
    GrockFrequency2 = 50
        ScrollBar3.Value = 50
    GrockDuration = 40
        ScrollBar2.Value = 40
    GrockVolume = -1500
        volSlider.Value = -1500
    GrockFade = True
    GrockReset = True
    GrockFontName = "Arial"
    GrockFontSize = 28
    GrockFontBold = True
    GrockFontItalic = False
    GrockFontColor = vbCyan
    GrockBackColor = vbBlack
    If Me.Visible = True Then
        ViewObject.DrawWidth = GrockWidth
        ViewObject.Cls
    End If
    Slider2.Value = 40
End If

End Sub

