Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/learnvb01a245358122001.psc/learnvis.frm

Visual Basic Form | 2001-08-12 | 102.1 KB | 2,772 lines

VERSION 5.00
Begin VB.Form Form1
   AutoRedraw      =   -1  'True
   Caption         =   "Learning Visual Basic"
   ClientHeight    =   4545
   ClientLeft      =   720
   ClientTop       =   1470
   ClientWidth     =   6585
   LinkTopic       =   "Form1"
   ScaleHeight     =   4545
   ScaleWidth      =   6585
   Begin VB.CommandButton cmdcopy
      Caption         =   "--> textbox"
      Height          =   375
      Left            =   1200
      TabIndex        =   41
      Top             =   600
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.TextBox txtcode
      Height          =   1665
      Left            =   2085
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   40
      Top             =   2115
      Visible         =   0   'False
      Width           =   2550
   End
   Begin VB.CommandButton cmdnext
      Caption         =   "next"
      Height          =   375
      Left            =   4920
      TabIndex        =   38
      Top             =   3960
      Width           =   650
   End
   Begin VB.CommandButton cmdback
      Caption         =   "back"
      Height          =   375
      Left            =   4320
      TabIndex        =   37
      Top             =   3960
      Visible         =   0   'False
      Width           =   600
   End
   Begin VB.CommandButton cmdbc9
      Caption         =   "back"
      Height          =   375
      Left            =   4320
      TabIndex        =   29
      Top             =   3960
      Visible         =   0   'False
      Width           =   600
   End
   Begin VB.CommandButton cmdA0
      Caption         =   "next"
      Height          =   375
      Left            =   4920
      TabIndex        =   28
      Top             =   3960
      Visible         =   0   'False
      Width           =   650
   End
   Begin VB.ComboBox cmbvtyp
      Height          =   315
      ItemData        =   "LEARNVIS.frx":0000
      Left            =   0
      List            =   "LEARNVIS.frx":0002
      TabIndex        =   27
      Text            =   "VarTypes"
      Top             =   360
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.ComboBox cmbansi
      Height          =   315
      ItemData        =   "LEARNVIS.frx":0004
      Left            =   0
      List            =   "LEARNVIS.frx":0006
      TabIndex        =   26
      Text            =   "ANSI"
      Top             =   600
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.VScrollBar VScroll1
      Height          =   1215
      Left            =   120
      TabIndex        =   25
      Top             =   2520
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdgoback
      Caption         =   "Unmore"
      Height          =   375
      Left            =   360
      TabIndex        =   24
      Top             =   840
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton cmdsimplify
      Caption         =   "More.."
      Height          =   375
      Left            =   360
      TabIndex        =   23
      Top             =   840
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.TextBox txtin
      Height          =   285
      Left            =   480
      TabIndex        =   22
      Top             =   3360
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdcd5
      Caption         =   "5"
      Height          =   255
      Left            =   6120
      TabIndex        =   20
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdcd4
      Caption         =   "4"
      Height          =   255
      Left            =   5880
      TabIndex        =   19
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdcd3
      Caption         =   "3"
      Height          =   255
      Left            =   5640
      TabIndex        =   18
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdcd2
      Caption         =   "2"
      Height          =   255
      Left            =   5400
      TabIndex        =   17
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdcd1
      Caption         =   "1"
      Height          =   255
      Left            =   5160
      TabIndex        =   16
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton cmdrnd
      Caption         =   "randm"
      Height          =   375
      Left            =   3360
      TabIndex        =   15
      Top             =   840
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.ListBox lstdt
      Height          =   840
      ItemData        =   "LEARNVIS.frx":0008
      Left            =   5850
      List            =   "LEARNVIS.frx":0027
      TabIndex        =   14
      Top             =   -315
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.CommandButton cmdboxoffice
      Caption         =   "calc"
      Height          =   375
      Left            =   840
      TabIndex        =   13
      Top             =   3720
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton cmd2lv1
      Caption         =   "+2"
      Height          =   375
      Left            =   1800
      TabIndex        =   12
      Top             =   3840
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton cmd1lv1
      Caption         =   "+1"
      Height          =   375
      Left            =   1080
      TabIndex        =   11
      Top             =   3840
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton cmd2mv1
      Caption         =   "+2"
      Height          =   375
      Left            =   1800
      TabIndex        =   10
      Top             =   3840
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton cmd1mv1
      Caption         =   "+1"
      Height          =   375
      Left            =   1080
      TabIndex        =   9
      Top             =   3840
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.HScrollBar HScroll1
      Height          =   255
      Left            =   120
      Max             =   22
      Min             =   8
      TabIndex        =   8
      Top             =   3720
      Value           =   8
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CommandButton cmdrun
      Caption         =   "&Run"
      Height          =   375
      Left            =   480
      TabIndex        =   7
      Top             =   960
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.PictureBox piccode
      AutoRedraw      =   -1  'True
      BackColor       =   &H8000000E&
      Height          =   1815
      Left            =   120
      ScaleHeight     =   1755
      ScaleWidth      =   3315
      TabIndex        =   6
      Top             =   1440
      Visible         =   0   'False
      Width           =   3375
   End
   Begin VB.PictureBox picTable
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H8000000E&
      Height          =   1095
      Left            =   3840
      ScaleHeight     =   1035
      ScaleWidth      =   2475
      TabIndex        =   2
      Top             =   1440
      Visible         =   0   'False
      Width           =   2535
   End
   Begin VB.Label lblobj
      Caption         =   "last"
      BeginProperty Font
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   165
      Left            =   120
      TabIndex        =   39
      Top             =   4350
      Width           =   615
   End
   Begin VB.Label lblalg
      Caption         =   "Algebra Reference"
      BeginProperty Font
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   165
      Left            =   210
      TabIndex        =   36
      Top             =   165
      Visible         =   0   'False
      Width           =   1825
   End
   Begin VB.Label lblqa2
      Caption         =   "You just clicked a text label, what are you going to do next?   ""i'm going to Disneyland!"""
      ForeColor       =   &H00404040&
      Height          =   4575
      Left            =   1565
      TabIndex        =   35
      Top             =   500
      Visible         =   0   'False
      Width           =   3495
   End
   Begin VB.Label lblqa1
      Caption         =   $"LEARNVIS.frx":039D
      ForeColor       =   &H00400000&
      Height          =   4575
      Left            =   1305
      TabIndex        =   34
      Top             =   1000
      Visible         =   0   'False
      Width           =   3945
   End
   Begin VB.Label lblqadv
      Caption         =   "For Advanced Reference"
      BeginProperty Font
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   165
      Left            =   0
      TabIndex        =   33
      Top             =   0
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.Label lblqskip
      Caption         =   "Skip to:"
      BeginProperty Font
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   75
      TabIndex        =   32
      Top             =   3750
      Width           =   735
   End
   Begin VB.Label lblfunct
      Caption         =   "make a Function"
      BeginProperty Font
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   165
      Left            =   110
      TabIndex        =   31
      Top             =   4150
      Width           =   1335
   End
   Begin VB.Label lblbuil
      Caption         =   "Reference Section"
      BeginProperty Font
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   165
      Left            =   90
      TabIndex        =   30
      Top             =   3975
      Width           =   1455
   End
   Begin VB.Label lblqpage
      Caption         =   "Page"
      Height          =   255
      Left            =   4680
      TabIndex        =   21
      Top             =   120
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Line linept2
      Visible         =   0   'False
      X1              =   3720
      X2              =   3480
      Y1              =   2280
      Y2              =   2640
   End
   Begin VB.Line linept1
      Visible         =   0   'False
      X1              =   3360
      X2              =   3720
      Y1              =   2400
      Y2              =   2280
   End
   Begin VB.Line lineshaft
      Visible         =   0   'False
      X1              =   2280
      X2              =   3720
      Y1              =   3360
      Y2              =   2280
   End
   Begin VB.Label lblqprop
      Alignment       =   1  'Right Justify
      Caption         =   "Properties"
      Height          =   255
      Left            =   5160
      TabIndex        =   5
      Top             =   1200
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label lblqcom
      Caption         =   "comment:"
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   3480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Label lblcom
      Height          =   855
      Left            =   1680
      TabIndex        =   3
      Top             =   3480
      Width           =   2415
   End
   Begin VB.Label lblmain
      AutoSize        =   -1  'True
      BackColor       =   &H80000004&
      Caption         =   $"LEARNVIS.frx":04F6
      Height          =   780
      Left            =   1635
      TabIndex        =   1
      Top             =   480
      Width           =   3540
      WordWrap        =   -1  'True
   End
   Begin VB.Label lblchaptr
      Alignment       =   2  'Center
      Caption         =   "Welcome!"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   0
      Top             =   120
      Width           =   2775
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Visual Basic tutorial inspired by the notion that a _
10-year-old could program if they only knew the code _
and of course, had a vision.
Dim caseinpoint As Integer 'see VScroll1_Scroll
Dim mn As String, sn As String 'VScroll1_Scroll
Dim backtrue As Boolean 'specific select case values _
 in contentspre() use this to display different data _
 if the back button was most-recently clicked.
Dim prevtext As String 'txtin_Change, txtin_KeyPress
'Form resize variables applied to every control
Dim scw As Single, sch As Single, _
 fsr As Single, fs As Single
'these get a value so I can Call _
 qscolor("string",blue,1) see Form_Load for vals
Dim blu As Byte, blue As Byte
Dim grn As Byte, green As Byte
Dim mag As Byte, magenta As Byte
Dim bla As Byte, black As Byte
Dim whi As Byte, white As Byte
Dim cyan As Byte
Dim yel As Byte, yellow As Byte
Dim red As Byte
Dim clicktwice(1 To 5) As Byte 'used by piccode_Click
Dim cancelbyte(1) As Byte 'disables click for lblmain _
 after first time.  If I actually disable lblmain, _
 the text becomes light.
Dim aIndex 'added Tue Oct 24, 2000 for cmdA0 and _
 cmdbc9 - only two next and back buttons, beyond _
 the old and kept method of click next, new next _
 becomes Visible, old becomes Invis..
Dim pIndex 'pre-index - temporary while I convert _
 previous 'multi-next/back' into another _
 'only one back, only one next' set.
Dim q As String 'will represent double quote
Dim qs(1 To 99) As String 'piccode lines of text
Dim qps As String 'qps = "Private Sub "
Dim qhello As String
Dim fn1 As Integer
Dim strM5, strM7 As String 'string for commentary
Dim strVi, strv2, strc3 As String 'more comments
Dim mv1 As Integer 'used for demonstration - see cmdvar1
Dim subj As Byte 'subjects are assigned a value and _
 accessed by 'Page' (cmdcd*) commandbuttons
Dim npage As Byte 'cmdc6 will 'nextpage' rather than _
 'nextsubject'.
Dim com5 As String 'comment variable
Dim firsttime(1 To 5) As Byte 'when firsttime(n) = 1, _
 subroutines do not (disable buttons to guide the user)
Dim clscount As Integer 'Clears pic at so many lines
'For graphics section
Dim X(40) As Single, Y(40) As Single, r(40) As Single
Dim incred(40) As Single, incgrn(40) As Single, incblu(40) As Single
Dim ared(40) As Integer, agrn(40) As Integer, ablu(40) As Integer
Dim colorshift As Integer, cs As Integer, sc As Integer, scl As Integer
Dim old6785 As Integer, old4950 As Integer
'Control (object) dimensions set by case Index and aIndex _
(when back or next is clicked) found in contentspre() and _
contents(), and changed in form_resize()
Dim cmdnextwidth As Integer, cmdnextheight As Integer, _
 cmdnextleft As Integer, cmdnexttop As Integer
Dim cmdnextfs As Single 'fs stands for fontsize
Dim cmdbackwidth As Integer, cmdbackheight As Integer, _
 cmdbackleft As Integer, cmdbacktop As Integer
Dim cmdbackfs As Single
Dim cmdbc9width As Integer, cmdbc9height As Integer, _
 cmdbc9left As Integer, cmdcd9top As Integer
Dim cmdbc9fs As Single
Dim cmda0width As Integer, cmda0height As Integer, _
 cmda0left As Integer, cmda0top As Integer
Dim cmda0fs As Single
Dim cd1width As Integer, cd1height As Integer, _
 cd1left As Integer, cd1top As Integer
Dim cd2width As Integer, cd2height As Integer, _
 cd2left As Integer, cd2top As Integer
Dim cd3width As Integer, cd3height As Integer, _
 cd3left As Integer, cd3top As Integer
Dim cd4width As Integer, cd4height As Integer, _
 cd4left As Integer, cd4top As Integer
Dim cd5width As Integer, cd5height As Integer, _
 cd5left As Integer, cd5top As Integer
Dim lblalgwidth As Integer, lblalgheight As Integer, _
 lblalgleft As Integer, lblalgtop As Integer
Dim lblobjwidth As Integer, lblobjheight As Integer, _
 lblobjleft As Integer, lblobjtop As Integer
Dim lblfunctwidth As Integer, lblfunctheight As Integer, _
 lblfunctleft As Integer, lblfuncttop As Integer
Dim lblbuilwidth As Integer, lblbuilheight As Integer, _
 lblbuilleft As Integer, lblbuiltop As Integer
Dim lblqa1width As Integer, lblqa1height As Integer, _
 lblqa1left As Integer, lblqa1top As Integer
Dim lblqa2width As Integer, lblqa2height As Integer, _
 lblqa2left As Integer, lblqa2top As Integer
Dim lblmainwidth As Integer, lblmainheight As Integer, _
 lblmainleft As Integer, lblmaintop As Integer
Dim lblcomwidth As Integer, lblcomheight As Integer, _
 lblcomleft As Integer, lblcomtop As Integer
Dim lblqadvwidth As Integer, lblqadvheight As Integer, _
 lblqadvleft As Integer, lblqadvtop As Integer
Dim lblqcomwidth As Integer, lblqcomheight As Integer, _
 lblqcomleft As Integer, lblqcomtop As Integer
Dim lblqpagewidth As Integer, lblqpageheight As Integer, _
 lblqpageleft As Integer, lblqpagetop As Integer
Dim lblqpropwidth As Integer, lblqpropheight As Integer, _
 lblqoropleft As Integer, lblqproptop As Integer
Dim lblqskipwidth As Integer, lblqskipheight As Integer, _
 lblqskipleft As Integer, lblqskiptop As Integer
Dim lblchaptrwidth As Integer, lblchaptrheight As Integer, _
 lblchaptrleft As Integer, lblchaptrtop As Integer
Dim cmdcopywidth As Integer, cmdcopyheight As Integer, _
 cmdcopyleft As Integer, cmdcopytop As Integer
Dim cmd1lv1width As Integer, cmd1lv1height As Integer, _
 cmd1lv1left As Integer, cmd1lv1top As Integer
Dim cmd2lv1width As Integer, cmd2lv1height As Integer, _
 cmd2lv1left As Integer, cmd2lv1top As Integer
Dim cmd1mv1width As Integer, cmd1mv1height As Integer, _
 cmd1mv1left As Integer, cmd1mv1top As Integer
Dim cmd2mv1width As Integer, cmd2mv1height As Integer, _
 cmd2mv1left As Integer, cmd2mv1top As Integer
Dim cmdgobackwidth As Integer, cmdgobackheight As Integer, _
 cmdgobackleft As Integer, cmdgobacktop As Integer
Dim cmdsimplifywidth As Integer, cmdsimplifyheight As Integer, _
 cmdsimplifyleft As Integer, cmdsimplifytop As Integer
Dim cmdrunwidth As Integer, cmdrunheight As Integer, _
 cmdrunleft As Integer, cmdruntop As Integer
Dim cmdrndwidth As Integer, cmdrndheight As Integer, _
 cmdrndleft As Integer, cmdrndtop As Integer
Dim cmdboxofficewidth As Integer, cmdboxofficeheight As Integer, _
 cmdboxofficeleft As Integer, cmdboxofficetop As Integer
Dim cmbvtypleft As Integer, cmbvtypwidth As Integer, _
 cmbvtypheight As Integer, cmbvtyptop As Integer
Dim cmbansileft As Integer, cmbansiwidth As Integer, _
 cmbansiheight As Integer, cmbansitop As Integer
Dim hscroll1width As Integer, hscroll1height As Integer, _
 hscroll1left As Integer, hscroll1top As Integer
Dim piccodewidth As Integer, piccodeheight As Integer, _
 piccodeleft As Integer, piccodetop As Integer
Dim pictablewidth As Integer, pictableheight As Integer, _
 pictableleft As Integer, pictabletop As Integer
Dim txtcodewidth As Integer, txtcodeheight As Integer, _
 txtcodeleft As Integer, txtcodetop As Integer
Dim txtinwidth As Integer, txtinheight As Integer, _
 txtinleft As Integer, txtintop As Integer
Dim vscroll1width As Integer, vscroll1height As Integer, _
 vscroll1left As Integer, vscroll1top As Integer
Dim lstdtwidth As Integer, lstdtheight As Integer, _
 lstdtleft As Integer, lstdttop As Integer
Private Sub form_resize()
Call resizeall
If cmdback.Visible = True Then
 Call contentspre
End If
Call contents
End Sub
Private Sub form_lostfocus()
'Call resizeall
End Sub
Private Sub form_gotfocus()
'Call resizeall
End Sub
Private Sub form_load()
 q = Chr(34) 'double quote
 qps = "Private Sub " 'often printed to piccode
 old6785 = 6785 'default form dimensions
 old4950 = 4950
 piccode.ForeColor = vbBlack 'necessary for certain win _
 colorschemes
 picTable.ForeColor = vbBlack
 piccode.BackColor = vbWhite
 picTable.BackColor = vbWhite
 bla = 0: black = 0
 blu = 1: blue = 1
 red = 2
 grn = 4: green = 4
 mag = 6: magenta = 6
 whi = 5: white = 5
 yel = 3: yellow = 3
 cyan = 7
 Dim ansindx As Integer
 Dim ansilist(0 To 255) As String
 For ansindx = 0 To 255
  ansilist(ansindx) = Chr(ansindx) & "   " & ansindx
 Next ansindx
 ansilist(0) = "(null)   0"
 ansilist(9) = "(tab)    9"
 ansilist(10) = "(line feed) 10"
 ansilist(13) = "(carriage return)"
 ansilist(32) = "(space)   32"
 For ansindx = 0 To 255
  cmbansi.AddItem ansilist(ansindx)
 Next ansindx
 cmbvtyp.AddItem "Byte" & "  1 byte" & "  0 to 255"
 cmbvtyp.AddItem "Boolean" & "  2 bytes" & "  True or False"
 cmbvtyp.AddItem "Integer" & "  2 bytes" & " -32,768 to 32,767"
 cmbvtyp.AddItem "Long" & "  4 bytes" & " -2,147,483,648 to 2,147,483,647"
 cmbvtyp.AddItem "Single " & "  4 bytes" & " -3.402823E38 to -1.401298E-45 for - vals"
 cmbvtyp.AddItem " 1.401298E-45 to 3.402823E38 for +"
 cmbvtyp.AddItem "Double" & "  8 bytes" & " -1.79769313486232E308 to -49065645841247E-324"
 cmbvtyp.AddItem " 4.94065645841247E-324 to 1.79769313486232E308"
 cmbvtyp.AddItem "Currency" & "  8 bytes" & " -922,337,203,685,477.5808 to 922,337,203,685,477.5807"
 cmbvtyp.AddItem "Decimal" & "  14 bytes"
 cmbvtyp.AddItem " +/- 79,228,162,514,264,337,593,543,950,335 (no dec point)"
 cmbvtyp.AddItem " +/-7.9228162514264337593543950335 (that's 28 after dec)"
 cmbvtyp.AddItem " smallest non-zero is +/-0.0000000000000000000000000001"
 cmbvtyp.AddItem "Date" & "  8 bytes" & "     Jan 1, 100 to Dec 31, 9999"
 cmbvtyp.AddItem "String" & "  Length of string" & "     1 to approx 65,400"
 cmbvtyp.AddItem "String var-length" & "  10 bytes + str len" & "     0 to approx 2 billion"
 cmbvtyp.AddItem "Variant (nums)" & "  16 bytes" & "  Any numeric value up to a Double's range"
 cmbvtyp.AddItem "Variant (char)" & "  22 bytes + str len" & "     0 to approx 2 billion"
 cmbvtyp.AddItem "User-defined" & "  # req. by elements" & "   The range of each elem = data type range"
 lblmaintop = 480
 lblcomtop = 3480
 lblalgtop = 165
 lblqa1top = 1000
 lblqa2top = 500
 lblfuncttop = 4150
 lblqadvtop = 300
 lblqcomtop = 3480
 lblqpagetop = 120
 lblqproptop = 1200
 lblqskiptop = 3750
 lblchaptrtop = 120
 lblbuiltop = 3975
 cmdcd1top = 120
 cmdcd2top = 120
 cmdcd3top = 120
 cmdcd4top = 120
 cmdcd5top = 120
 cmd1lv1top = 3840
 cmd2lv1top = 3840
 cmd1mv1top = 3840
 cmd2mv1top = 3840
 cmda0top = 3960
 cmdnexttop = 3960
 cmdbc9top = 3960
 cmdbacktop = 3960
 cmdboxofficetop = 1055
 cmdrndtop = 750
 txtintop = 3430
 lblmainheight = 780
 lblcomheight = 855
 lblalgheight = 165
 lblqa1height = 4575
 lblqa2height = 4575
 lblfunctheight = 165
 lblqadvheight = 165
 lblqcomheight = 255
 lblqpageheight = 255
 lblqpropheight = 255
 lblqskipheight = 195
 lblchaptrheight = 375
 lblbuilheight = 165
 cmdcd1height = 255
 cmdcd2height = 255
 cmdcd3height = 255
 cmdcd4height = 255
 cmdcd5height = 255
 cmdgobackheight = 375
 cmdsimplifyheight = 375
 cmdrndheight = 375
 cmdrunheight = 375
 cmd1lv1height = 375
 cmd2lv1height = 375
 cmd1mv1height = 375
 cmd2mv1height = 375
 cmda0height = 375
 cmdnextheight = 375
 cmdbc9height = 375
 cmdbackheight = 375
 lblchaptrleft = 1920
 lblmainleft = 1635
 lblcomleft = 1680
 lblqcomleft = 840
 lblalgleft = 210
 lblqpropleft = 5160
 lblqpageleft = 4680
 lblqskipleft = 75
 lblbuilleft = 90
 lblfunctleft = 120
 cmda0left = 4920
 cmdnextleft = 4920
 cmdbackleft = 4320
 cmdbc9left = 4320
 cmdcd1left = 5160
 cmdcd2left = cmdcd1.Left + 240
 cmdcd3left = cmdcd2.Left + 240
 cmdcd4left = cmdcd3.Left + 240
 cmdcd5left = cmdcd4.Left + 240
 cmdrunleft = 850
 cmdrndleft = 2300
 txtinleft = 255
 lblchaptrwidth = 2775
 lblmainwidth = 3540
 lblcomwidth = 2415
 lblqcomwidth = 735
 lblalgwidth = 1825
 lblqpropwidth = 1215
 lblqpagewidth = 475
 lblqskipwidth = 735
 lblbuilwidth = 1695
 lblfunctwidth = 1695
 cmda0width = 650
 cmdnextwidth = 650
 cmdbackwidth = 600
 cmdbc9width = 600
 cmdrunwidth = 615
 cmdrndwidth = 735
 cmdboxofficewidth = 615
 txtinwidth = 255
 pictableheight = 1095
 pictablewidth = 2535
 pictableleft = 3840
 pictabletop = 1440
 piccodeheight = 1815
 piccodewidth = 3375
 piccodetop = 1440
 piccodeleft = 120
 'cmbansileft = 1160
 cmbansileft = 140
 cmbansiwidth = 735
 cmbansitop = 170
 cmbvtypleft = 980
 cmbvtyptop = 170
 hscroll1top = 3720
 hscroll1left = 120
 hscroll1width = 1455
 vscroll1top = 2520
 vscroll1left = 120
 vscroll1height = 1215
 cmdsimplifytop = 500
 cmdsimplifyleft = 500
 cmdsimplifywidth = 855
 cmdgobacktop = 500
 cmdgobackleft = 500
 cmdgobackwidth = 855
End Sub
Private Sub resizeall()
 'called by piccode_Click, contentspre(), contents(), ..
 scw = old6785 / Form1.Width  'ratios based on defaults
 sch = old4950 / Form1.Height
 fsr = 2 / (scw + sch) 'font size ratio is the average _
  of new ratios of Form height and width
 fs = 8
 lblmain.FontSize = fs * fsr
 lblcom.FontSize = fs * fsr
 piccode.FontSize = fs * fsr
 picTable.FontSize = fs * fsr
 lblqcom.FontSize = fs * fsr
 'lblalg.FontSize = 7 * fsr
 lblqskip.FontSize = 8.25 * fsr
 'lblqadv.FontSize = 7 * fsr
 'lblbuil.FontSize = 7 * fsr
 'lblfunct.FontSize = 7 * fsr
 lblqpage.FontSize = fs * fsr
 lblqprop.FontSize = fs * fsr
 cmdcd1.FontSize = fs * fsr
 cmdcd2.FontSize = fs * fsr
 cmdcd3.FontSize = fs * fsr
 cmdcd4.FontSize = fs * fsr
 cmdcd5.FontSize = fs * fsr
 cmdnext.FontSize = fs * fsr
 cmdback.FontSize = fs * fsr
 cmdA0.FontSize = fs * fsr
 cmdbc9.FontSize = fs * fsr
 cmdrun.FontSize = fs * fsr
 cmdboxoffice.FontSize = fs * fsr
 cmdrnd.FontSize = fs * fsr
 cmbvtyp.FontSize = fs * fsr
 cmbansi.FontSize = fs * fsr
 txtcode.FontSize = fs * fsr
 lblmain.Top = 480 / sch
 lblcom.Top = 3480 / sch
 lblalg.Top = 165 / sch
 lblqa1.Top = 1000 / sch
 lblqa2.Top = 500 / sch
 lblfunct.Top = 4150 / sch
 'lblqadv.Top = 20 / sch
 lblqcom.Top = 3480 / sch
 lblqpage.Top = 120 / sch
 lblqprop.Top = 1200 / sch
 lblqskip.Top = 3750 / sch
 lblchaptr.Top = 120 / sch
 lblbuil.Top = 3975 / sch
 lblobj.Top = 4350 / sch
 cmdcopy.Top = cmdcopytop / sch
 cmdcd1.Top = 120 / sch
 cmdcd2.Top = 120 / sch
 cmdcd3.Top = 120 / sch
 cmdcd4.Top = 120 / sch
 cmdcd5.Top = 120 / sch
 cmd1lv1.Top = 3840 / sch
 cmd2lv1.Top = 3840 / sch
 cmd1mv1.Top = 3840 / sch
 cmd2mv1.Top = 3840 / sch
 cmdA0.Top = 3960 / sch
 cmdnext.Top = 3960 / sch
 cmdbc9.Top = 3960 / sch
 cmdback.Top = 3960 / sch
 txtcode.Top = txtcodetop / sch
 lblmain.Height = 780 / sch
 lblcom.Height = 855 / sch
 lblalg.Height = 165 / sch
 lblqa1.Height = 4575 / sch
 lblqa2.Height = 4575 / sch
 lblfunct.Height = 165 / sch
 lblqadv.Height = 165 / sch
 lblqcom.Height = 255 / sch
 lblqpage.Height = 255 / sch
 lblqprop.Height = 255 / sch
 lblqskip.Height = 195 / sch
 lblchaptr.Height = 375 / sch
 lblbuil.Height = 165 / sch
 lblobj.Height = 165 / sch
 cmdcopy.Height = 255 / sch
 cmdcd1.Height = 255 / sch
 cmdcd2.Height = 255 / sch
 cmdcd3.Height = 255 / sch
 cmdcd4.Height = 255 / sch
 cmdcd5.Height = 255 / sch
 cmdgoback.Height = 375 / sch
 cmdsimplify.Height = 375 / sch
 cmdrnd.Height = 375 / sch
 cmdrun.Height = 375 / sch
 cmdboxoffice.Height = 375 / sch
 cmd1lv1.Height = 375 / sch
 cmd2lv1.Height = 375 / sch
 cmd1mv1.Height = 375 / sch
 cmd2mv1.Height = 375 / sch
 cmdA0.Height = 375 / sch
 cmdnext.Height = 375 / sch
 cmdbc9.Height = 375 / sch
 cmdback.Height = 375 / sch
 txtcode.Height = txtcodeheight / sch
 lblchaptr.Left = 1920 / scw
 lblmain.Left = 1635 / scw
 lblqadv.Left = 20 / scw
 lblcom.Left = 1680 / scw
 lblqcom.Left = 840 / scw
 lblalg.Left = 210 / scw
 lblqprop.Left = 5160 / scw
 lblqpage.Left = 4680 / scw
 lblqskip.Left = 75 / scw
 lblbuil.Left = 90 / scw
 lblfunct.Left = 110 / scw
 lblobj.Left = 120 / scw
 cmdcopy.Left = cmdcopyleft / scw
 txtcode.Left = txtcodeleft / scw
 cmdA0.Left = 4920 / scw
 cmdnext.Left = 4920 / scw
 cmdback.Left = 4320 / scw
 cmdbc9.Left = 4320 / scw
 cmdcd1.Left = 5160 / scw
 cmdcd2.Left = cmdcd1.Left + 240
 cmdcd3.Left = cmdcd2.Left + 240
 cmdcd4.Left = cmdcd3.Left + 240
 cmdcd5.Left = cmdcd4.Left + 240
 lblchaptr.Width = 2775 / scw
 lblmain.Width = 3540 / scw
 lblcom.Width = 2415 / scw
 lblqcom.Width = 735 / scw
 lblalg.Width = 1825 / scw
 lblqprop.Width = 1215 / scw
 lblqpage.Width = 375 / scw
 lblqskip.Width = 735 / scw
 lblbuil.Width = 1695 / scw
 lblfunct.Width = 1695 / scw
 lblobj.Width = 615 / scw
 cmdcopy.Width = 975 / scw
 cmdA0.Width = 650 / scw
 cmdnext.Width = 650 / scw
 cmdback.Width = 600 / scw
 cmdbc9.Width = 600 / scw
 cmdrun.Width = 615 / scw
 cmdrnd.Width = 735 / scw
 cmdboxoffice.Width = 615 / scw
 txtcode.Width = txtcodewidth / scw
 piccode.Top = piccodetop / sch
 VScroll1.Top = vscroll1top / sch
 HScroll1.Top = hscroll1top / sch
 cmdrun.Top = cmdruntop / sch
 cmdrnd.Top = cmdrndtop / sch
 cmdsimplify.Top = cmdsimplifytop / sch
 cmdgoback.Top = cmdgobacktop / sch
 cmdboxoffice.Top = cmdboxofficetop / sch
 piccode.Height = piccodeheight / sch
 VScroll1.Height = vscroll1height / sch
 piccode.Left = piccodeleft / scw
 VScroll1.Left = vscroll1left / scw
 HScroll1.Left = hscroll1left / scw
 cmdrun.Left = cmdrunleft / scw
 cmdrnd.Left = cmdrndleft / scw
 cmdsimplify.Left = cmdsimplifyleft / scw
 cmdgoback.Left = cmdgobackleft / scw
 cmdboxoffice.Left = cmdboxofficeleft / scw
 piccode.Width = piccodewidth / scw
If aIndex <> 11 Then
 picTable.Top = pictabletop / sch
 picTable.Width = pictablewidth / scw
 picTable.Height = pictableheight / sch
 picTable.Left = pictableleft / scw
End If
 HScroll1.Width = hscroll1width / scw
 cmdrun.Width = cmdrunwidth / scw
 cmdrnd.Width = cmdrndwidth / scw
 cmdsimplify.Width = cmdsimplifywidth / scw
 cmdgoback.Width = cmdgobackwidth / scw
 cmdboxoffice.Width = cmdboxofficewidth / scw
 'old6785 = Form1.width
 'old4950 = Form1.height
 cmbvtyp.Width = cmbvtypwidth / scw 'set in _dropdown and _Validate
 cmbvtyp.Left = cmbvtypleft / scw
 cmbvtyp.Top = cmbvtyptop / sch
 cmbansi.Width = cmbansiwidth / scw
 cmbansi.Left = cmbansileft / scw
 cmbansi.Top = cmbansitop / sch
 txtin.Left = txtinleft / scw
 txtin.Width = txtinwidth / scw
 txtin.Top = txtintop / sch
 'Call contentspre
End Sub
Private Sub qscolor(qline As String, ByVal qcolor As Byte, ByVal append As Byte)
Select Case qcolor
Case 0
piccode.ForeColor = vbBlack
Case 1
 piccode.ForeColor = vbBlue
Case 2
 piccode.ForeColor = vbRed
Case 3
 piccode.ForeColor = vbYellow
Case 4
 piccode.ForeColor = vbGreen
Case 5
 piccode.ForeColor = vbWhite
Case 6
 piccode.ForeColor = vbMagenta
Case 7
 piccode.ForeColor = vbCyan
End Select
If append = 0 Then
 piccode.Print qline
 piccode.Print qline;
End If
piccode.ForeColor = vbBlack
End Sub
Private Sub cmbvtyp_DropDown()
'cmbvtyp.Left = 170 / scw
cmbvtyp.Width = 5740 / scw
End Sub
Private Sub cmbvtyp_Validate(Cancel As Boolean)
'cmbvtyp.Left = 900 / scw
cmbvtyp.Width = cmbvtypwidth / scw
cmbvtyp.Text = "VarTypes"
End Sub
Private Sub cmbansi_DropDown()
cmbansi.Width = 1435 / scw
cmbvtyp.Left = 1650 / scw
End Sub
Private Sub cmbansi_Validate(Cancel As Boolean)
cmbansi.Width = 865 / scw
cmbansi.Text = "ANSI"
cmbvtyp.Left = 1090 / scw
End Sub
Private Sub lblmain_Click()
If cancelbyte(1) = 0 Then
lblqa1.Visible = True
cancelbyte(1) = 1
lblfunct.Visible = False
lblbuil.Visible = False
lblobj.Visible = False
lblqskip.Visible = False
lblmain.Visible = False
End If
End Sub
Private Sub lblqa1_Click()
lblqa1.Visible = False
lblqa2.Visible = True
End Sub
Private Sub lblqa2_click()
lblqa2.Visible = False
lblmain.Visible = True
lblmain.Caption = "We're ready to start.  Click the Command Button that says 'next'."
End Sub
Private Sub cmdA0_Click()
npage = 1
aIndex = aIndex + 1
backtrue = False
cmdbc9.Visible = True
Call contents
End Sub
Private Sub enableform()
cmdcd3.Enabled = True
cmdcd4.Enabled = True
cmdcd5.Enabled = True
cmdA0.Enabled = True
cmdbc9.Enabled = True
firsttime(1) = 1
firsttime(2) = 1
firsttime(3) = 1
firsttime(4) = 1
firsttime(5) = 1
End Sub
Private Sub clearform()
cmdrun.Visible = False: cmdcd1.Visible = False
cmdcd2.Visible = False: cmdcd4.Visible = False
HScroll1.Visible = False: cmdcd5.Visible = False
VScroll1.Visible = False: cmdcd3.Visible = False
cmd2mv1.Visible = False: cmd1mv1.Visible = False
cmd2lv1.Visible = False: cmd1lv1.Visible = False
txtin.Visible = False
'lblqpage.Visible = False
'lblqprop.Visible = False
cmdgoback.Visible = False
cmdsimplify.Visible = False
End Sub
Private Sub clearqs() 'this sub is called just before _
 a sub assigns values to qs().
 For fn1 = 1 To 99
  qs(fn1) = ""
 Next fn1
End Sub
Private Sub contents()
Select Case aIndex
Case 1
 Call resizeall
 cmdback.Visible = False
 lblqpage.Caption = ""
 lblchaptr.Caption = "Indexing"
 lblmain.Caption = "'Slowly poofed' to me how to use only one next and one back command button."
 Call clearform
 lblcom.Caption = ""
 piccode.Visible = False: picTable.Visible = False
Case 2
 lblmain.Caption = "First I created a subroutine to make a general Form 'wipe'."
 piccodetop = 960: piccodeleft = 400: piccodewidth = 3540: piccodeheight = 2050
 Call resizeall
 piccode.Cls: piccode.Visible = True
 picTable.Visible = False
 piccode.Print "Private Sub clearform()"
 piccode.Print " cmdrun.Visible = False: cmdcd1.Visible = False"
 piccode.Print " cmdcd2.Visible = False: cmdcd3.Visible = False"
 piccode.Print " cmdcd4.Visible = False: cmdcd5.Visible = False"
 piccode.Print " HScroll1.Visible = False"
 piccode.Print " VScroll1.Visible = False"
 piccode.Print " piccode.Visible = False"
 piccode.Print " picTable.Visible = False"
 piccode.Print " txtin.Visible = False"
 piccode.Print "End Sub ";: Call qscolor("'cmdcd* are my page buttons", blue, 0)
 lblcom.Caption = ""
Case 3
 piccode.Visible = False: picTable.Visible = False
 lblmain.Caption = "Then I made the new next and back buttons.  aIndex can be accessed by all subs."
 piccodeleft = 3290: piccodewidth = 2090
 pictablewidth = 2170: pictableleft = 990: piccodetop = 960
 pictabletop = 960: pictableheight = 1600: piccodeheight = 1250
 Call resizeall
 lblcom.Caption = "Private Sub contents() is an entire menu, where aIndex is a menu item."
  piccode.Visible = True: picTable.Visible = True
 piccode.Cls
 picTable.Print "Dim aIndex As Integer"
 piccode.Print "Private Sub cmdnext_Click()"
 piccode.Print " aIndex = aIndex + 1"
 piccode.Print " If aIndex > 34 Then"
 piccode.Print "  aIndex = 34: End If"
 piccode.Print " Call contents"
 piccode.Print "End Sub"
 picTable.Cls: picTable.Visible = True
 picTable.Print "Private Sub cmdback_Click()"
 picTable.Print " aIndex = aIndex - 1"
 picTable.Print " If aIndex < 1 Then"
 'picTable.Print "  cmdback.Visible = False"
 picTable.Print "  aIndex = 1"
 picTable.Print " Else"
 picTable.Print "  Call contents"
 picTable.Print " End If"
 picTable.Print "End Sub"
Case 4
 lblchaptr.Caption = "Indexing"
 cmdbc9.Caption = "back": cmdA0.Caption = "next"
 lblmain.Caption = "Here is the meat and potatoes.": picTable.Visible = False
 piccode.Cls: piccodeheight = 2650: piccodeleft = 95
 piccodewidth = 6260: piccodetop = 800
 cmdcopy.Visible = False: txtcode.Visible = False
 Call resizeall
 piccode.Visible = True
 piccode.Print "Private Sub contents()"
 piccode.Print " Select Case aIndex"
 piccode.Print " Case 1"
 piccode.Print "  lblchaptr.Caption = " & q & "Indexing" & q
 piccode.Print "  Call clearform"
 piccode.Print "  lblmain.Caption = " & q & "'Slowly poofed' to me how to use only one next and one back command button." & q
 piccode.Print "  lblcom.Caption = " & q & "I will keep my previous buttons." & q
 piccode.Print
 piccode.Print " Case 2"
 piccode.Print "  lblmain.Caption =" & q & "First I created a subroutine to make a general Form 'wipe'." & q
 piccode.Print "  piccodetop = 960: piccodeleft = 400: piccodewidth = 3500: piccodeheight = 2000"
 piccode.Print "  piccode.Cls: piccode.Visible = True"
 piccode.Print "  .."
 lblcom.Caption = "cmdback drops the value of aIndex, and cmdnext increases the value."
Case 5
 Dim lintx As Byte  'For-Next counter
 lblchaptr.Caption = "File Access"
 lblmain.Caption = "A simple matter of knowing the code.  I'm using more regular programming conventions now, with 'l(local)str(string)quote'."
 piccodetop = 1115: piccodeleft = 40
 piccodewidth = 4150: piccodeheight = 3400
 pictabletop = 1055: pictableleft = 3490
 pictableheight = 1850: pictablewidth = 3430
 cmdcopyleft = 300: cmdcopytop = 750
 txtcodeleft = 400: txtcodewidth = 5700
 txtcodetop = 1100: txtcodeheight = 2650
 Call resizeall
 If txtcode.Visible = False Then
  cmdcopy.Visible = True
  picTable.Cls
  piccode.Cls: picTable.Visible = False: piccode.Visible = True
  piccode.Print qps & "LoadFavoriteQuotes()"
  piccode.Print " Dim lstrquote(1 To 100) As String"
  piccode.Print " Dim lstrauthor(1 To 100) As String"
  piccode.Print " Dim lbytindx As Byte: lbytindx = 1"
  piccode.Print " Open " & q & "c:\favquots.txt" & q & " For Input As #1"
  Call qscolor(" 'Input into 'Buffer 1'", red, 0)
  Call qscolor(" 'EOF(buffer 1)(line below) is a handy 'End Of File' function", red, 0)
  Call qscolor(" Do While ", mag, 1): piccode.Print "Not EOF(1)"
  piccode.Print "  Input #1, lstrquote(lbytindx), lstrauthor(lbytindx)"
  piccode.Print "  Call randomjumble(lstrquote(lbytindx), lstrauthor(lbytindx))"
  Call qscolor("  If ", blue, 1): piccode.Print "LCase(lstrauthor(lbytindx)) = " & q & "einstein" & q & " Then"
  piccode.Print "   Exit Do  ";: Call qscolor("'A quote from Einstein is a good place to stop.", red, 0)
  Call qscolor("  End If", blue, 0)
  piccode.Print "  lbytindx = lbytindx + 1";: Call qscolor("  'increment to next array slot", red, 0)
  Call qscolor(" Loop", mag, 0)
  piccode.Print " Close #1"
  piccode.Print "End Sub"
  lblcom.Caption = "Exit Do is a nice option."
 Else
  Call cmdcopy_Click
 End If
' For lintx = 1 To 6
'  picTable.Print q & qs(lintx) & q & ", " & q & qs(lintx + 6)
' Next lintx
Case 6
 lblmain.Caption = ""
 cmdrnd.Visible = False: picTable.Visible = False
 piccodetop = 685: piccodeleft = 130
 piccodewidth = 6190: piccodeheight = 2800
 cmdcopytop = 400
 txtcodeleft = 400: txtcodewidth = 5700
 txtcodetop = 1100: txtcodeheight = 2650
 txtcode.Visible = False
 Call resizeall
 If txtcode.Visible = False Then
  piccode.Cls
  piccode.Visible = True
  piccode.Print qps & "randomjumble(ByRef quote As String, ByRef author As String)"
  piccode.Print " Dim lsngrandom As Single, lstrjumble As String"
  piccode.Print " lstrjumble = " & q & q
  piccode.Print " Dim lintcount As Integer"
  piccode.Print " For lintcount = 1 To Len(author + quote)"
  piccode.Print "  lsngrandom = Rnd * 10  ";: Call qscolor("'deciding variable for lower or uppercase", blue, 0)
  piccode.Print "  If lsngrandom < 5 Then  ";: Call qscolor("'half of the time, we're making lowercase", blue, 0)
  piccode.Print "   lstrjumble = lstrjumble + LCase(Mid(author + quote, lintcount, 1))"
  piccode.Print "  Else"
  piccode.Print "   lstrjumble = lstrjumble + UCase(Mid(author + quote, lintcount, 1))"
  piccode.Print "  End If";: Call qscolor("    'Adds 1 character from author+quote string, randomly upper or lower-cased", blue, 0)
  piccode.Print " Next lintcount";: Call qscolor("   'each time.", blue, 0)
  piccode.Print " picTable.Print q & Right(lstrjumble, Len(quote) & q & " & q & " - " & q & " & Left(lstrjumble, Len(author))"
  piccode.Print "End Sub"
  lblcom.Caption = ""
 Else
  Call cmdcopy_Click
 End If
Case 7
 cmdcopy.Visible = False
 lblchaptr.Caption = "File Access"
 lblcom.Caption = ""
 lblmain.Caption = "The strings here are stored in an array in this tutorial."
 cmdcopy.Visible = False
 txtcode.Visible = False
 qs(1) = "Healthy food is tasty."
 qs(2) = "Today is watering day."
 qs(3) = "Did you see that?"
 qs(4) = "The rainbow softened the meadow."
 qs(5) = "Cool."
 qs(6) = "Hey there, chalupa."
 qs(7) = "Captain Veggie"
 qs(8) = "neighbor"
 qs(9) = "the cat"
 qs(10) = "somebody"
 qs(11) = "Einstein"
 qs(12) = "me"
 cmdrndtop = 870
 cmdrnd.Visible = True
 piccode.Visible = False: picTable.Visible = False
 picTable.Cls
 piccodeleft = 120: pictableleft = 2000
 pictabletop = 1260: pictableheight = 1050
 pictablewidth = 4100: picTable.Visible = True
 piccodetop = 2400: piccodewidth = 3740
 piccodeheight = 1640: piccode.Visible = True
 Call resizeall
 picTable.Print "Took me 2 hours to get this to work"
 piccode.Cls
 piccode.Print "   contents of " & q & "C:\favquots.txt" & q
 piccode.Print
 For fn1 = 1 To 6
  piccode.Print q & qs(fn1) & q & ", " & q & qs(fn1 + 6) & q
 Next fn1
Case 8
 cmdrnd.Visible = False
 'Form1.Scale (0, 0)-(6675, 4920)
 picTable.Scale (0, 0)-(100, 100)
 picTable.Visible = False: piccode.Visible = False
 'I do this sometimes because certain instances of _
  resizing look glitchy
 lblchaptr.Caption = "Arrays 2"
 lblmain.Caption = "A 2-dimensional Array, like a calendar grid .. we see Varname(First col To Last col, First row To Last row) .. Arrays can have more than 2 dimensions."
 piccodetop = 1355: piccodeleft = 700: piccodewidth = 3200: piccodeheight = 2000
 pictabletop = 2765: pictableleft = 3990: picTable.Cls: pictableheight = 450
 pictablewidth = 1530
 Call resizeall
 piccode.Cls: picTable.Visible = True: piccode.Visible = True
 piccode.Print " Dim i As Integer, j As Integer"
 piccode.Print " Dim arraymult(";: Call qscolor("2 To 3", mag, 1): piccode.Print ", ";: Call qscolor("1 To 5", blue, 1): piccode.Print ") As Integer"
 piccode.Print " 'each 'rectangle' holds an integer"
 piccode.Print
 Call qscolor(" For i = 2 To 3", mag, 0)
 Call qscolor("  For j = 1 To 5", blue, 0)
 piccode.Print "   arraymult(";: Call qscolor("i", mag, 1): piccode.Print ", ";: Call qscolor("j", blue, 1): piccode.Print ") = j * i"
 piccode.Print "   picTable.Print arraymult(";: Call qscolor("i", mag, 1): piccode.Print ", ";: Call qscolor("j", blue, 1): piccode.Print "); " & q & "  " & q & ";"
 Call qscolor("  Next j", blue, 1): piccode.Print ": picTable.Print"
 Call qscolor(" Next i", mag, 0)
 Dim i As Integer, j As Integer
 Dim arraymult(2 To 3, 1 To 5) As Integer
 For i = 2 To 3: For j = 1 To 5: arraymult(i, j) = j * i
  picTable.Print arraymult(i, j); "  ";: Next j: picTable.Print: Next i
 lblcom.Caption = "I am simply loading values quickly into each 'compartment' or 'rectangle'."
 VScroll1.Visible = False
Case 9
 piccodetop = 860: piccodeleft = 120
 piccodeheight = 3500: piccodewidth = 4100
 Call resizeall
 lblchaptr.Caption = "Boolean"
 lblmain.Caption = "Boolean Variables"
 piccode.Cls
 piccode.Print "Dim tall As Boolean"
 piccode.Print "Dim nplayers As Integer"
 piccode.Print " .."
 piccode.Print qps + "heighttest(feet As Integer, inches As Single)"
 piccode.Print " Dim totalinches As Single"
 'piccode.Print " standtall = False  ";: Call qscolor("'Setting this as Default", blue, 0)
 piccode.Print " totalinches = inches + feet * 12"
 piccode.Print " If totalinches > 73 Then"
 piccode.Print "  ";: Call qscolor("tall", blue, 1): piccode.Print " = True"
 piccode.Print "  nplayers = nplayers + 1"
 piccode.Print " Else"
 piccode.Print "  ";: Call qscolor("tall", blue, 1): piccode.Print " = False"
 piccode.Print " End If"
 piccode.Print "End Sub"
 piccode.Print " .."
 piccode.Print qps + "uniform(tall, team)"
 piccode.Print " If ";: Call qscolor("tall", blue, 1): piccode.Print " Then"
 piccode.Print "  lblusize = " & q & "XLarge" & q
 piccode.Print " End If"
 piccode.Print " .."
 picTable.BackColor = vbWhite: picTable.ForeColor = vbBlack
 picTable.Visible = False
 lblcom.Caption = ""
Case 10
 lblchaptr.Caption = "Graphics"
 picTable.BackColor = vbBlack
 pictabletop = 1160: pictableheight = 1400
 pictablewidth = 1800: pictableleft = 4320
 piccodetop = 1160
 piccodeheight = 3000
 piccodeleft = 220
 piccodewidth = 3920
 Call resizeall
 lblmain.Caption = q & "Wohoo!" & q & "  This is what I always look forward to learning in any programming language.  There are at least 3 methods for changing color."
 piccode.Cls
 piccode.Print " .."
 piccode.Print " Dim pi As Single: pi = 3.14159"
 piccode.Print " Dim x As Single"
 piccode.Print " picTable.backcolor = RGB(100, 95, 120)"
 piccode.Print " picTable.Cls"
 piccode.Print " picTable.Scale (-20, 12)-(120, -2)"
 piccode.Print
 piccode.Print " For x = 0 to 100 Step 0.2"
 Call qscolor(" 'plot about 500 points per function", blue, 0)
 piccode.Print "  picTable.PSet (5*x, sin(x/3)), RGB(199, 0, Int(255 - x*2))"
 piccode.Print "  picTable.Pset (x, Sin(x) + 3), vbGreen"
 piccode.Print "  picTable.Pset (x, Cos(x) + 2), vbYellow"
 piccode.Print " Next x"
 Dim x1 As Single
 picTable.BackColor = RGB(100, 95, 120)
 picTable.Cls
 picTable.Scale (-20, 12)-(120, -2)
 For x1 = 0 To 100 Step 0.2
 picTable.PSet (5 * x1, Sin(x1 / 3)), RGB(199, 0, Int(255 - x1 * 2))
 picTable.PSet (x1, Sin(x1) + 3), vbGreen
 picTable.PSet (x1, Cos(x1) + 2), vbYellow
 Next x1
 picTable.Visible = True
 piccode.Visible = True
 cmdrun.Visible = False
Case 11
 picTable.FillColor = vbBlack
 picTable.BackColor = vbWhite: picTable.ForeColor = vbBlack
 VScroll1.Visible = False: cmdrun.Visible = False
 piccode.Visible = False: piccode.Cls
 picTable.FontSize = 8
 picTable.Top = 1160 / sch: picTable.Left = 400 / scw
 picTable.Width = 5700: picTable.Height = 2600
 picTable.Scale (0, 0)-(70, 28)
'piccodetop = 1160: piccodeleft = 200
'piccodewidth = 2600: piccodeheight = 1400
 'Call resizeall
 picTable.Cls
 lblmain.Caption = "Bar, Bar Filled..  To use any of the fillstyles 1 to 7 you must use , , B"
 picTable.CurrentX = 0
 picTable.CurrentY = 0.5
 picTable.Print "(x1, y1)"; Tab(39); "(x1,y1)"
 picTable.Print: picTable.Print
 picTable.CurrentY = 5.8
 picTable.Print Tab(26); "(x2, y2)"; Tab(62); "(x2, y2)"
 picTable.Line (3, 3)-(26, 5.5), , B
 picTable.Line (38.3, 3)-(59.4, 5.5), , BF
 picTable.Print: picTable.Print
 picTable.Print "picTable.Line (x1, y1) - (x2, y2), , B"; Tab(39); "picTable.Line (x1, y1) - (x2, y2), , BF"
 picTable.Print: picTable.CurrentX = 38.8
 picTable.CurrentY = 15
 picTable.Print "picTable.DrawStyle = "
 Dim CY As Single
 For fn1 = 0 To 4
 CY = (fn1 + 1) * 2.1 + 16
 picTable.CurrentX = 36: picTable.CurrentY = CY - 1
 picTable.Print fn1
 picTable.DrawStyle = fn1
 picTable.Line (39, CY)-(60, CY)
 Next fn1
 picTable.DrawStyle = 0
 picTable.CurrentX = 0
 picTable.CurrentY = 13.5: picTable.Print "picTable.Fillstyle ="
 picTable.Print
 For fn1 = 1 To 4
 CY = (fn1 + 1) * 2.9 + 10.8
 picTable.FillStyle = fn1 - 1
 picTable.CurrentX = 0: picTable.CurrentY = CY + 0.2
 picTable.Print fn1 - 1
 picTable.Line (3, CY)-(13, CY + 2.4), , B
 picTable.CurrentX = 16: picTable.CurrentY = CY + 0.2
 picTable.Print fn1 + 3
 picTable.FillStyle = fn1 + 3
 picTable.Line (19, CY)-(31, CY + 2.4), , B
 Next fn1
 picTable.FillStyle = 1
Case 12
 lblmain.Caption = "Positioning Text"
 picTable.Cls: piccode.Cls: cmdruntop = 870
 cmdrun.Visible = True
 piccodeleft = 440: piccodetop = 1300
 piccodeheight = 2200: piccodewidth = 3960
 piccode.Visible = True
 pictableleft = 4510: pictabletop = 1300
 pictablewidth = 1830: pictableheight = 1830
 Call resizeall
 Call clearqs: VScroll1.Min = 1: VScroll1.Max = 14
 VScroll1.Value = 1
 VScroll1.Visible = True
 qs(1) = "Private Sub cmdrun_Click"
 qs(2) = " Select Case aIndex"
 qs(3) = " .."
 qs(4) = " Case 12"
 qs(5) = " Dim qx As Single, qy As Single"
 qs(6) = " picTable.Cls"
 qs(7) = " picTable.Scale (-1.8, 11) - (11, -1.8)"
 qs(8) = " picTable.Line (0, 0) - (0, 10)"
 qs(9) = " picTable.Line (0, 0) - (10, 0)"
'qs(10) = " picTable.currentY = 3 - picTable.TextHeight(" & q & "y=3" & q & ") / 2"
 qs(11) = " For fn1 = 0 To 10  'modular all-purpose Integer"
 qs(12) = "  picTable.Line (n1, .2)-(n1, -0.2), vbBlue"
 qs(13) = "  picTable.CurrentX = n1 - picTable.TextWidth(n1)"
 qs(14) = "  picTable.CurrentY = -.3"
 qs(15) = "  picTable.Print n1"
 qs(16) = "  qy = Int(2.8 * n1 - 10)"
 qs(17) = "  If qy >= 0 and qy <= 10 Then"
 qs(18) = "   picTable.Line (-.3, qy) - (.2, qy), vbMagenta"
 qs(19) = "   picTable.CurrentX = -1.4"
 qs(20) = "   picTable.CurrentY = qy - picTable.TextHeight(qy) / 2"
 qs(21) = "   picTable.Print qy"
 qs(22) = "   End If: Next n1"
 qs(23) = "End Sub"
 Call VScommon
Case 13 'cmdrun_Click sel case aIndex
 'lblmain.Caption = "Arc-circle option and the FillStyle method"
 lblmain.Caption = ""
 picTable.Cls: piccode.Cls: cmdruntop = 760
 piccodeleft = 220: piccodetop = 1160
 piccodeheight = 2800: piccodewidth = 3560
 pictableleft = 4100: pictabletop = 1160
 pictablewidth = 1800: pictableheight = 1400
 Call resizeall
 piccode.Print "Private Sub cmdrun_Click()"
 piccode.Print " Dim c As Single, a As Single, b As Single"
 piccode.Print " picTable.cls"
 piccode.Print " picTableleft = 4100: picTabletop = 1160"
 piccode.Print " picTablewidth = 1800: picTableheight = 1400"
 piccode.Print " picTable.Scale (1, 1)-(60, 60)"
 piccode.Print " c = 2 * 3.14159"
 piccode.Print " a = .0000001"
 piccode.Print " b = .4  ";: Call qscolor("'40%", blue, 0)
 piccode.Print " picTable.Scale (1, 1)-(60, 60)"
 piccode.Print " picTable.FillStyle = 5"
 piccode.Print " picTable.FillColor = vbBlue"
 piccode.Print " picTable.Circle (30, 30), 20, , -a * c, -b * c"
 piccode.Print " picTable.FillStyle = 1";: Call qscolor("  'reset", blue, 0)
 piccode.Print "End Sub"
 VScroll1.Visible = False
 piccode.Visible = True: picTable.Visible = True
 cmdrun.Visible = True
 lblcom.Caption = ""
Case 14 'if change, remembr picTable_Click and VScommon Sel Case aIndex
 txtcode.Visible = False
 lblmain.Caption = "This will give you more of an idea about the RGB function and PSET method"
 VScroll1.Value = 2 'vscroll1.value = 1 later to _
 make text appear in piccode as VScroll1 changes.
 lblchaptr.Caption = "Graphics"
 piccodetop = 960: piccodeleft = 460
 piccodeheight = 2000: piccodewidth = 5200
 picTable.Scale (0, 0)-(100, 100)
 picTable.Cls
 pictabletop = 3110: pictableheight = 1200: pictableleft = 1800
 pictablewidth = 1600
 Call resizeall
 txtin.Visible = False
 Call clearqs
 lblcom.Caption = ""
 qs(1) = "Dim x(40) As Single, y(40) As Single, r(40) As Single"
 qs(2) = "Dim incred(40) As Single, incgrn(40) As Single, incblu(40) As Single"
 qs(3) = "Dim ared(40) As Integer, agrn(40) As Integer, ablu(40) As Integer"
 qs(4) = "Dim colorshift As Integer, csi As Integer, satur As Integer, scl As Integer"
 qs(6) = ""
 qs(5) = "Dim n As Byte"
 qs(7) = "Private Sub picTable_Click()"
 qs(8) = "Select Case aIndex"
 qs(9) = "Case 7: Dim z, az, angle, ar, pi, wx As Single"
 qs(10) = ""
 qs(11) = " pi = 3.141593: picTable.Cls"
 qs(12) = " picTable.Scale (-200, 200)-(200, -200)"
 qs(13) = " satur = 90 'saturation"
 qs(14) = ""
 qs(15) = " For n = 1 To 40"
 qs(16) = ""
 qs(17) = "  ared(n) = 255 * Rnd"
 qs(18) = "  agrn(n) = ared(n) + Rnd * satur - satur / 2.9"
 qs(19) = "  ablu(n) = agrn(n) + Rnd * satur - satur / 2.9"
 qs(20) = ""
 qs(21) = "  scl = 230 'larger value = more sparse cylinders"
 qs(22) = "  x(n) = Rnd * scl - scl / 2"
 qs(23) = "  y(n) = Rnd * scl - scl / 2"
 qs(24) = ""
 qs(25) = "  r(n) = 7 * Rnd + 10 'varying radii"
 qs(26) = ""
 qs(27) = "  csi = 2 'colorshift intensity"
 qs(28) = ""
 qs(29) = "  colorshift = Rnd * satur - satur / 2"
 qs(30) = "  incred(n) = colorshift"
 qs(31) = "  incgrn(n) = colorshift"
 qs(32) = "  incblu(n) = colorshift"
 qs(33) = " Next n"
 qs(34) = ""
 qs(35) = " For z = -70 To 400 Step 25"
 qs(36) = "  ar = 1250 / (1250 - z)"
 qs(37) = "  For n = 1 To 40"
 qs(38) = ""
 qs(39) = "   Call straightencolor(ared(n))"
 qs(40) = "   Call straightencolor(agrn(n))"
 qs(41) = "   Call straightencolor(ablu(n))"
 qs(42) = ""
 qs(43) = "   For a = 0 To 2 * pi Step 2 * pi / 9"
 qs(44) = "    picTable.PSet (ar * (r(n) * Sin(a) + x(n)), _"
 qs(45) = "    ar * (r(n) * Cos(a) + y(n))), _"
 qs(46) = "    RGB(ared(n), agrn(n), ablu(n))"
 qs(47) = "   Next a"
 qs(48) = ""
 qs(49) = "   ared(n) = ared(n) - incred(n)"
 qs(51) = "   agrn(n) = agrn(n) - incgrn(n)"
 qs(51) = "   ablu(n) = ablu(n) - incblu(n)"
 qs(52) = ""
 qs(53) = "  Next n"
 qs(54) = " Next z"
 qs(55) = "End Select"
 qs(56) = "End Sub"
 qs(57) = "Private Sub straightencolor(ByRef color As Integer)"
 qs(58) = " If color < 0 Then"
 qs(59) = "  color = color + 255: End If"
 qs(60) = " If color > 255 Then"
 qs(61) = "  color = color - 255: End If"
 qs(62) = "End Sub"
 VScroll1.Min = 1: VScroll1.Value = 1: VScroll1.Max = 57
 VScroll1.Visible = True: piccode.Visible = True
 picTable.Visible = True: picTable.Print "picTable"
 cmdrun.Visible = False
Case 15
 txtcode.Visible = False
 lblchaptr.Caption = "Text Filtering"
 subj = 7: npage = 3  'txtin_Change and txtin_KeyPress
 lblmain.Caption = "Here is how I axe non-numeric keystrokes and the Fifty thou": Call clearqs
 piccodeleft = 410: piccodewidth = 3700
 piccodetop = 1070: piccodeheight = 2300
 piccode.Visible = True: picTable.Visible = False
 VScroll1.Value = 1: VScroll1.Min = 1: VScroll1.Max = 17
 VScroll1.Visible = True: txtinwidth = 640
 txtinleft = 500: txtintop = 3380
 Call resizeall
 qs(1) = "Dim prevtext As String"
 qs(2) = "Private Sub txtin_change()"
 qs(3) = "Dim asc1 As String"
 qs(4) = "Dim lentxtin As Byte"
 qs(5) = " lentxtin = Len(txtin.Text)"
 qs(6) = " For fn1 = 1 To lentxtin  'no non-numeric keystrokes"
 qs(7) = "  asc1 = Asc(Mid(txtin.Text, fn1, 1))"
 qs(8) = "  If asc1 > 57 Or asc1 < 48 Then"
 qs(9) = "   txtin.Text = prevtext: Exit For: End If"
 qs(10) = " Next fn1"
 qs(11) = " If Val(txtin.Text) > 5hght = 255 = "  as"le.Visible = False
 "  as"le.Visible = FB agrn( For: End If"
 qs(10) = " Next fn1"
 qs(11) = " If Val(h15
For: g"
atyp.Left " Next f5 Val(tsc1 E2"
 lblmain1.Cls: cms(14) = ""
 qs(15) =blmain1.Cls: cms(14) = ""
(28) = "programming conventionA2ain1.Cls: 1Cls: cms(14)uqventionA2ain1.width = 7)uqve: cm40
 picTictablewi4)uqvent
 qs(47) = "   Nextsve: cm40a593: picTable.Cls"
 qs(1 g: 1Cls: cms(ccodldetopr - 255: End I
 qsOrings h55: Enqs
 topr - 255: End I
 qr("   ' fn1 = 1 Tapti2
 qs(6stB9"
, a As Single, b As n.V
 qsAs SingOri", blue, 1):
 qs(11) = " If 22l (30lt(";: Call q colyqy A g, 0)
  piccode.Print " C(";:ifty thou": C(";:iftsjs(6smain.0uziB  N(6smain.0umain.0"
 qs(33) = " Next n" qy - picTme(5) rndwi" Next n" qy - picTme(ble = 25ksoin_B1.MaKor("'40%", blue, - picTme(bleFdwi" Neain.0"
 q'1yRef ctWiLPri5n.0"
 n" qy t. pipicTable.Pale (-200, 200870
 cmdrun.Visible ggef color 4 VScommon Sel Case aI
Caslec -b * c1dCls: piccode.Cls: cm
  piicTable.TextWOri", blue, 1):
 qsdxer ode.Visible = False: icTable.Cls"3lec -b * c1dCls: piccode.C * c1dCls: piccode1picTable1dCls: piccodsmoluee.Visible = False
 "  as"le.Visi.) = "  coloru le (0, 0)37
 VScrE& q &y  -bs: piccode1picTable1"Private Sub t-icTable1"Private Sub t-icTabve: oll1l
th Table qs(6t
 " u pictablewnViscTable1"Prwtop = 3= " ared(n), agrn(n), ablu(n1dCls: pi14)uqvent, _"2000
 pictabletop = 2765: (
Case 8
 cnt, _"2000
= 3=: cms(14)pictablewnViskeystrokesnq  asc1 = Asc(
 End If
' drnd.Vif col"lblm asc1 = Asc(
 End If
' drn C= Asc(
 Endplbl: End48
 piccode.Print
 piccoqs(11) = "n.Visi"   txtin.Text = prev"s'p = 2765:o de.Xou2"s'p e = n1"98
 'p = 2765:= 7: npaFalse
 cmdrun.s"p Scr 'ratios F cmdcd3.Height = es"
 qs(7) = "d(n5:o de qsAs SingOri", blue, 1II9p = 2765:o dcTable"
 cmdrun.Vis6ojXf
 topr -picT
 qs(15) =blmain1.Cls: cms(14) = ""
(28) = "progr qs(51e = 1:  we = Tg this as Defaar qs(51e = 1:  we = Tg this as Defaar qseMr.Cap 22765 piccode.Print
 piccoqs(11) = "n.Vise
cmdbc9= CY +L End I
 qsO6= CY +L End I
 qsO6= CY +L End I
 qsO6= CY +Llb CY +L End I
esible =rFor: Endcolyqy A g
2_cl End Iang"
 am sqs(26 I
 CY +Llb CYtop = 3380
 false
 "  as"le.Vi0(6 Next fn1"
 qs380
 farO6= CY +L End I
 q8) = ""
 qs(29).1"
 piccode3 I
 q8) = ""
 qs(29).1piccoqs(11) +xqI
 qsO6= CY : npaFaXf
 topt
esibles.s4-iscTablaEnd I
 q=id yo y (1.PSet (ain1Vs5:o :sain.0" End Iang"
 am sqs(26 I
) = " Fo
F10 Then (ain) = end I
as"le.Visible = F
 Call resizeall
  " & q & q
  piccode
s"-s Deccode.Cls
  piccods Defaar qseMr.Cap 22765 picco iltyles 1 to 7 you mueMr.Cap 22765 picco ilt Else"
= CY +L End I
 q8) = DCls: piccode.Visible = True"
 piccode.Print "  .."
 lblcom.Caption = "cmdback droplption =o3mf 7:o;zi2 droplption =o3mf 7:o;zi2 droplp is a med9aaa med9aaa med9aaa med9aaa mer: Endcolyqy A g
2scTablaEnd8med9a"  ..aa mer: Endcol5Visible = iccode.Pr6 1400
 pictabl: icTable.Cls"3lefarOq8) = DCls: piccode.Visible = T"bleyo y8f.9" th Table qs(6t
 " u pictabl-True
 5eu  holds an integeictae = o-K: npaFaXf
 topt
esibless2 ho2j = 375 ho2j = 375 ho2j = 375 ho2j = 375 ho2jTrue
 5eu5n ""
 qs(35) = qs(35)a
 VScrsn1.Cls: cms(cmdrue: txtinwidth = 640cmdrue: txtinwidth =y02u5n= nw= True"2h =nd Iang"
 1, 1)-(60, 60)"
 p rmon S)-(60, 60)"
 p rmon S)-(60R1Y +L Ene
 VScrE& q &y(60R1Y +L Ene
 VSle = True"
 piccode.PrinrE& q &y(60R1Y +L: piccode3 I
"GranPrint fn1
 picTable.
ast row) e.Linde.Pr6 1 Asc(
 5dn' drnnnd Iang"
6_..Print " aIndex = aIndezi2 droplp i5 / schSingle"
 qs(2) = II9p plp i5 / schSingle"
ode.Pr6 1400
 pictab de.Pr6 1400
 pictab d6= "Did yp-3n = 865
 pictab " q..aa mer: Endcol5 If
' drn C= Asc(
 Endplbl: run.s"po2j = 370
 pictab d6= "Did ll raor("    'Adds 1V  'Adds 1V  'Adds 1V aor("    'Adds 1"  ared(n) = 255 * Rnd"
ngle, qy As Single
 qs(59) , incgrn(  drn C= Asc(
 Endplbl: run.s"po2j = 370
 ,s5:o :sain.0" End 6drun.Dim ared(40) As Inj = 370
 ,sle
 qs(59) , incgr
d ll raor("    'Add
 qs(59) , incgr
dtfalse
 "  as"ley
 qsrL12p   'Add s 1"  abl: runr
d d6Dim z, apiccode.Print " If totalinsIf totalinsIf totae Ss
 C qs(2) = otaele1"Private Sub t-25"
 e.Visibl9W-25"55 * eancel As Boolean)
'.(6 Nexh=o3mf 7:o1isred(40) As Inj =k
cmdcplbl: run.s"poxe sf = 7)uqve: cm4r6 Inj =k
cmdcplbl: run.= n1 - picTable.Texu(02(cTable.Texu(02(cTable.Texu(02(cTable.Tet 500 poinable.Texu( 3 True"
 piccode.Prinsc(
 Endplbl: run.s"po2j = 370
 pictab d6= "Did ll raor("  I9p plp i5 / schSin = ""
"dru colorshift As Icoq cmd1mv1.Height = 375 / sch
dru cTablaEnd8med9a"  ..aa me= F
 Call = 370
cTa e= F
 Call = 1F
 Call = 1F
 Call isresibl Ta e= l rltion = " & q & "'Slowly poofed' to me how to useein.Text = ow to useein.Text = owa= Truhaptr d6Dim z, apiccode.PpicTable.Print q & qs(linp poofed' to me how to ule.Curre(21) = " h0asy prre(21) = " h0asy prre(2:. C qs(2) = otaele1"Private Sub t-25"
 e.Visibl9W-25"55 * eanc = o-K: npaFaovo ule.Curre(21) = " h09aaa med9aaa medatab d6= "Did ll ra: cmfnzipiccode.Print E.6= "tabl-TruebleFdwi" Neain.0"
 q'1yule.Curre(21) = " h0a =  E.6= "tabl-TruebleFdwi" Neain.0/de
s"-1u t EE.6= "ty,. med9aaa mer: Endcolyqy A g
2scvent," b = .4   + CYtop = 3380
 false
1s Sser: aaa medatab d6= "Did oya. med9aaa mer: Cue: e = True"
 picc3e(21) =Priva ll r3(red(n), Neain.0/de
) = " Next z"
 q As Singlixt z"
 * eanc = o-K: npaFan
 q=id yo y  incblu(lsl"5id oya. me med9aaa mer: Cue: e =t = 220
 picu"
 * eanc = oopicTable.Scale 9aaa mer: Cue: e tal7=:o;zi2iLine (3ext  9aaa mer: Cub d6o;zi25 picco iltyles 1 to rm()
"  as"leseo rm(rivate S1i2iLine (w
 picTable.Widt:o;zi2iLine ( qs(27) = "  csi =)encolor(ByRef color As Integer1i2iLine (w6Widt:o;zi2iLine ( qs(27) =P / 'rintd9aaa30 1400
 pictab de.Ptraig7) = "  csi =)e>qs(27) =d2B765t: picTs3Y : npaP 67ow to useeiny  inc
 txtc0Texu( = 2 & q
 picITexu( = 2 & q
 picI1"  ared(n) = 255 * Rnd"
ngle, qy As Single
 qs(59) , incgrn(  drn C= Asc(
 Endplbl: run.s"po2j = 370
 ,s5:o Rnd"
ngle, qy As Single
 qs(t E.6ue"2h =nb1 255 blewnt " p = " & q & "'Sl = 2c0Texu( = 2 & q
 pic blewnIf"
 qs(62s"
en1.Cls: cm = 370
 ,sle
 qs(5 pi / 9"
 qs(44) = "4) = "4) = "4) = "4)"2h =nb1 255 blewnt " "4) = = " & q & "'Slowly p
 picc 1 to rm()
;kaina =  Etxtin.uible =ruLa3Y : (n) + Rnd * satuq & "'Slowly p
  Etxtin.uibntx
76& "'Slowly p
  Etxtit (w, qy As Single
 qs(59)  As Integer1i2iLine = Tl = 1F
 Call isresi7xtin.Text) "Here is how I axe non-numcmdrun.Vise.Pridrunnd I
esib non-numcmdrun.Vise.Prnt "  .."
= 0 To 10
(28) = "prooll1.Max = 17
 VScroll1.Visiblc1 = Asc(
 0 8i7xtin.Text) "Here pend As Byte)
Selecte ggef color 4 VScommon Sel Ca,) =   sub is called just bend Asfalto ule.Curre(21) = "qTopicTa)n VScrooy in this2xt) "Here t  9aaa mer: Cub d6o;zi25ccod'Node
s"-1u t EE.6= "tub -numcmdru/de prre(2:. Cp? picTablA qs(46) vn C= Aolor As Int"Vift"
e(2:. Cu
a9.ictab " h0asy prre(eFdwiy qsPrivate(eFdwi Int"VVasy prre(eFdwiy qsPricplbl: run.s"poxea1oll1.Vblueprre(eFdwiy qsPricplbl: Texu( = 2 & q
-K: e = "Did you see that?"
 qskt"
 qs(32) ao 40"
 qs(16) = ""
 qs(Bdewidnable.Texu( 3 Tru(
 ighbor"
 qs(9) = '(n)en (ain) = end ed(n), agrn(n), all  "tabl-TruebleF4) = ems(14) qs(44) = "4) = "4) = "4) = "4)"2" Neain.0"
 q'1yule.
 q'1 =  (44) = "4) = "4)ngle, b As n.V
 qsAs dgef color 4 VScommon Sel Ca,) =  eVScommon Sel C=7) = "   Next a"
 qs(48) = ""
 qall  "tabl46)gle2py.Linqp2hbor"
 qs(9) = '(n)0asy prre(eFdwiyhbor"e "ta etop = 6:lowly p
"Here pend As Byte)
S= "4) =  9aaa mer: Cub d6o;ae =v= Trdwi Int"Velys canqs(46) v* eanc =able.DrawSa30b= True: piccode.V0b= Tain.0" End Iang"
 a" p = "  220
 pic: (n) + Rnd .0"
 0" End Iang"
 aaable.tab d6= "Did o0 fed'I-  'rin20"
= CY +L End I
 qsO6= CY +L End I
 qsOxu( = 2 & q
 pn CY +L End I
 qsOxu(  'Adds 1V  'Adds 1V aor(in) =o;zileheight = 1) =o; " .."
 qs(12) = " picTwaterin5: Endeight = 1sPriv h0as
 "  1
 picTable.Cu) - (.2=Priva ll 6:lowly p
l1.Vblueprre(eFdwiy qs pi2S= "4) = e strings hereuly p
  Ets pi2S= "4) = e strin
  Ets euly p
  Ets pi2S= "4) = e strin5Brevevev375 le.FillStg 2 & q
 picITexu( = 2s
End s icITexu( = 2s
End s icITexu( = 2s
Int"tyle = fn1
 pioreColor s icITeb=Priva ll r3yle = nicITeb=Priva llalled just bend " h0asy p = F h0asy le = nicITeb=)"
 qs(8)ble. r3yTexu( e= " Dim qmctablelefxu( = 2 &eb=)"
 qs( picTable.Cu) - (.2=Pris.tabDc 2cITeby p = F h0asy le ==hzi2i h0asy pr Asfaln F h0asy l-O.asy l-O.as:lowly p
l40) Adguly p
  Ets pi2S= "4) pismI
 qsOxu( sht = 2.6=e"
 qs(29) = "  colorshift = Rnd * satur - satur / 2"
 qs(30) iccodetop=cod9 nicITeb=exu( =i h0acITeb=evle = nicITeb=)"
 qn.0/de
) = " Next z-ger, saturm2
 piy t EE.6= " saturm &eb=)"
 qs(-a"
 qs(-a"
 qs(-a"
 qs(l0r,  &eb=)"
Teb=)"
 qs(8)ble. r3yTeS= "-(60R12.6="
Int"tnd Iang"= F
 qs(8)ble. n)  F
 call
  Call qscm112.6="
Int"tnd Ians(-a"
 qs(-a"
 qs(-a"
 qs(l0r,  &eb=) 220: piccodetop = 1160
 pic2qs(9) ueprre(eFdwiy qsPricplpm1picc3e(21)Slowly p
 picc 1
 Call resizeall
 qalft"
e(2:. Ciyhbor"e "ta e:09) ueprre(eFdwiy
 q=ule.
 q'1 =  (44) = i =ry
"Here pend As Byte)v piccode.Vor"e = 2 & q
 pn CY +L End I
"le.Vi0(pend As Byte)eb=(-a"
 19re pe1) - (11, -1.8)"
eb3) = "   For a = 0lab d6= "Did oya. med9le.CurrentX = -1.4"
 qs(20)e Sub t-icTabve: oll1l
th Table qs(6ve: ofed'Ia = 0lab d: pic bor").as:lowly p
l4 "d ar esOx.'Ia =o,11aiccodetop = 1160
6(pend As Byte)eb=(-a"
'qs(10) = " picTab ill1d Ians(-a"
 qs(62s"
en1 incblu(lsl"5id oy:
 piore.Scale opicTab ill1d Ians(-a"
'If"neighode
s"-1l
th Table qs(6ve: ofed5id oy:
 piore.Scale opo6ve: ofed5wruese
 'I do.Scale opo6ve: ofed5wruese
 'I do"ble").as:l(
End Su oy Byt).as:l(
End Su oas:l(
En,4le.
 q'1 =,l"5id oy:
 piore.Scale op 1(lbytindx)) = " & q 'pY
cmdbc9.S9aaa meN"ta eto "  1d I q
 qs(8) = "  If asc1 2"s'p ocode.V0b= Tain.0" End Ian) = "  If asc1 2"s'pno "ppe4Hui"
Ets  = "Heal
E.6= "pe4End IbleF4) icTablght = 2000: pic= " 9l
nd a 1 =,5, 120)"
 picc(
End Su oas:l(
EicTablght = 2000: pIan) = "  If asc1 2" a med9aaa med9aaa m8ytindx)) = " & q 'ps'pno1 2"s'p ocov5h0asy le1
= CY +L End I
 qwY +f color <f asc1 2" a mocov0dx)) = " & q 'ps'pn:ghtt4i&4as"
 qs(12) = " p0& q
 pn CY +L End I
"le.Vi0(pend As Byte)e = " If 22l (30l1 2"s'pno "pe.Circle (30, 30), 2p0& q
 pn CY +L End I
"le.Vi0(pend As Byte)e = " If 22l (30l1 2"s'pno "pe.Circle (30, 30), 2p0& q
 pn CY +L End I
"le.Vi0(pend As Byte)e = " If 22l (30l1 2"s'pno "pe.Circle (30, 30), 2p0&n1.Vblude.30, b3) = "   For a = 0l 1
 Ca2 r3(o Di " If 22qs(11) = " If Val(h15
 0 )e =) = " If Val(^ta 30, ion  As Brs(59) , indL Ecel As Boc>Tru(
 ighborcain5Brevevev375 le.FillStg :ghtt4i&4as"
 qs(12) tr d6Dim Tain.0" End Ian) =pe1) - (11, -1.8)"
eb3) ="rs(59s"le.Visible = 2) = 2c0Texu
aal(^t59s"le. " 9leb3) ="rs(59s"le1
uiblion7asc1 2" a med9aaas(-a"
 qs( = 2c0Texblion7asc1 2"2p0& 0d IbleF4)olor 6-ger,= 2000: pIan) = "a,= =="rs(59s"lbleF4)olp:a= 1640: piccode6-gerWCdo.S Su oas:l(
E= 1640: p'1oicu"
1 - picTable.Tex36a(oas:l(1 Su oas:l(
E= 1640: l) = "bor"e3, 3)-(26, 5.5), , B
8Yq & qb
"Here peyiorcain5B4If asc1 2"s'p ocodeg Bangle, ar, pi, wx As Singlls"
 picc1 2"2p0s'pno1 2 = " If 222j", blueTable1"Prwtop = 3= " ade.Visible = False: piccht lsnpicTai5d oya. med93sneruebleFingle"
 qs(s(1qqs(6ve: ofed5id oy:
 pio4, ion  As Brs(59)ub d6o;zi25 picco6"
 qs(4) = "The rai1 2" a ';de
) = " Next).1pi 2600: pic 2"s'pG4) = "The " C(";: useas:l(1fn1
 picuH2"s'pG4) = "The "u1code.Cl40) As In Variables"
 pictindx1
 picuH2"s'pG4) =e;zi25 pic" b = .4 or fn1 = 0 To 4
6; /de
) iub t-icCext = pr"( = 2c qs(8) = can havpic 4
6; /de
), 2p0& q
 pn CY +L End Idwi" Neain.0"
 q'1yule.Cu vn C= Aolor As n CY : picTable.Height =oas:l( Lasa e:09.u3 , incgr
dtfalse
eleft = 700: picol5 If
' drn C= Aa2 e Aolor As n CY : picTab. mer: Endcol5 If
' S Ne olefarOq8lB,e.Cu)pn CY +L on Sel C: p2) A6; /de
),u)pn Cblue, 0)
 peae1"otalin N(61alue = 1. med9le.CurrentX = e= vbBlue"
 piccode.Pr Etscode.Print " Dim ct As l"5id oy:
 pio ion  As Brs(59)qdt:o; 22l (30l1 X = e0lab d6= " pears(59)ub d6yle, 2o,u)psse0la)
Selecte ggef color '2 e Aolor cte ggef coli25 picco6"
 qs(4) = 11 e Aolor5s
 q '2 e Aolor cte ggef coli25 picco6"
 qs(4) = 11 e Aolor5s
 q '2 e Aolor cte ggef coli25 picco6"
 qs(4) = 11 e Aolor5s
 q '2 e Aolor cte ggef coli25 picco6"
 qs(4) = 11 e Aolor5s
 q '2 e Aollor cte ggef coa med9aaas(-a"
 qs( = 2c0Te)
= coa med9aaatrshift"1.46) A6; /de
),u)pn Cblubor"
 qs(9) = 's n C"tub -numcmdru/de p q '2 e Aolor cte ggef coli2 2o,u)psse0la)
tlorst: picTs34" C(";:ifty thou": C(";Single
 qs(t E.6u870
 cmdru e A3lueCu vn C= Ai5  csi =)e>qsie60
6( C= Ai5  csi =)e>qsC= Aiw"
e>qsC= Aiw"
e>qsC=n.0"
 q'1 e AarO2q '2 e Aolqs(t E.6ue,sC="Prwtop = 3= " ade.Visibumcmdru/de p q '2 e Aolor ctetop XtabD6ue,sC="PVal(h15
 0 )e =) = " If Val(heighttest(feet As I20p 0phhys:  we = Tg this as Defaar qs(51e 6"
 qs(4) = 11'2 e Aollor cte ggef 3)-(26, 5.5), ,Val(heightt= Aiw"
e>qsC=n.00 , indL Ecel As Boc>Truia 270
* =)e>qsC= Ai I
"le.Vi0(pend000: pIan2"2p0lowly Ai I
" " & q 'pYt.0/de
) = " Next z"
 q  l"5id hucTable.Visible = Faloi&4as"
 qs(12) tr d6Dim T'r <f qs(t E.6u870
 cmdru e A3lueCu vn C= Ai5   T'r <f satur
 qs(12) tr d6Dim Tain( = 2c0Texblion7asc1 2"2p0& 0 = O6= CY +L End I
 q8) = ""
 qs(29).e>qsC=n.00 , indL EcDim T'r <f qs(t E.6u870
 =o3mf 7:o;zi2 droplp ie A T'r <f med9le.Cur 4) = "The "u1code.Cl40) As In Variables"
 pictindx1
 picuH2"s'pG4) =e;z to 7 you mue.Cl40) Inj =k
cmdcplbl: ru ? 300
 piccode.VisibY +L End Ie>ctindx1
 picuH2"s'pG4) =e;ziale (-1.8, 11) - (11, jj9There a25 p (-1.8, 11) - .Visible = T"bleyo y8f.9" th Tabls.6) = " For fn1 = 1 To lentxtiue.Vi0(pe:09) ueprre(eFdwiy
 q=ule.
 q'1 =  (44) = i =ry
"Here pend0 fn1 = 1 To lent' qs(.Vi0(p7nd Iang"
 a" 1Vs5:o :sain.0"t Fef saturLs5:o :sain.0"d I
 qsO6 ""e saturLs5X=  (44)ecsi =)endL EcDim T'r <f qs(t E.6u870
 =o3mf  cmdcplbl: r:l(1 Su -i25 le.Curu09) uep= Fa)
  Call qscolor(40
e: txtinwidth = 640cmdrue: txtinwidth =y02u5n= nw= T3ic7r"
 qs(9) = 's Xp q '2 e Aolo: pio(vFor fn1 "
 qjos(9) r3(red(n), Neain.t (w"5id,u1 " we = Tg this as Defaatxtid " s: rint dth =y02u5n= narname(First colate Sub tep= Fa)
 c  piccode.Cls: picTab cm
 qqsCuqs(ctindx1
 picuqve: cm2cTable.Curr2 Sub tep= 2cTaK 1 To lent'  RGB(100,  0 , indL   0 , indL   0 , indL t "  .."
= 0 To 10 dL   0 , indL t "  .2"s'p ocov5h0asy le1vdru/de prre(2:. Cp? picTablA qs(4iccode.V0: rint dtha. med9qsO6 ""e saturd I) - (11, jj9Thereor 4 VScommon  (44)ecsi =)ger
 Dim arraymul1ue"2h =nb1 255 blewn0  qsic borblewn0  qsic borblemmon  (44)ecsi =)gemO6 ""e saturd I) - (11, jjsle.Cu) - (.2=PrEcDim cess= 2cTaK 1 To lent'  RGlR  2cTaK 1 To lent=)e>qsC= Aiw"
e>qsC= Aiw"
P, pi, wx A tC= Aiw"
e>qsC= Aiw"
"4) = e strii =)gemO6  Aiw"
e>qsC= el 6qs(cti4(14) qs(44) = cta5-K:l qscolor("  If i4(.5h0asy le1v 1
4) =i4(.5h0as(ctindxr'y(cti4s'pG4) =e;ziale (-1.8, 11)v 1
4)1d I q
 qs(8) = "  Iicc3e(21)Sloint " picTable.Cls"
oc>Tru(
 ighboe.Tex36a(oas:l(1 Su oas:l(
E= 1640: l(pic  0msof
 picTable.Currint "  .."
U<2 e AAAAAAAAAAAAAAAAAAAAAAAAhen"
 qs(18) = -isible = Faloi&4aslVScrzL: ple = Faloi&4aslVScrzL: ple r qs(51e 6"
 q2 = Faloi&4aslVScrzL: q2 = Faloi&4aslVScq2 = Fale)emO6 e: p= "  Ii, In Varere a25 p (-1.8, 11)0 Y4o:e, L
EicTab"ve: ofedion= "
 qs(4) 4o:e, L
EicTab"ve= Faloi&4aslVScrzL: q2 eFdwiyle.Curre(21) lVScrzL: q2 eFdwiyle.Curre(21K 1 To lent=)e>q.0"
 ,hd To lent=)e>q.0"
 slp.0" End Iang"
 on u: cms(1i. len2d, 1
4)1d I q
pc1dCls: piccode1picTati0(p7nd Iang"
 a" 1Vs5:o :sain.0"t Fef" qy - on7nd Iang"1picTati0(p7n9) = 's n C"tubE1skb'pG4) =ee no "p7n9) = 'AAAAAhen"
 qs(18) = -Aiw"
5picTaP'AAAAAhen"qs(18) = -Aiw"
5picTc9) = i =)gemO6 ""e saturd  8elate Su..Cls:t = 4" Ee (x1, eFd  C8aptr d6Dim z, apiccodeg"
 a" 1Vs5:o :t7xtin.Text) "Here penyr d6Dim z, apiccodeg"(ve= Faloi&4asl slVScq2 = Fale)emO6  1Vs5:o :e)e5
 qs(62s"
en1 incbluehwode.Cls
 0" End Iang"
 am sqs(26 I
) ts(44) = cta5-K:l qscolor("  If i4(.51.Height = 375 / sct,1ve= Faloi&4asl slVScq2 = Fale)emO6  1Vs5:o :e)e5
 qs(6ge strii =)gemO6  Aiw"
e>qsC= F
 am sqs(26 I
) t4dlent=)e>q.a)gemO6 sf
 topr -picT
 qsent=)ee>qsC= F
 am sqs(26 I10prre(eFdwiy
 q=ulel" a mocov0dx)) = " & q 'ps'pn:g'pss * c, -b * False
 "  as"AAAAAAAhen"
 qs(18) = -'2 e Aollor dth = -'2 d5wru'nt=)e>q.a)as Defaar" I= Flaatxtid "faar9 = n1 -sTmO6  1VsPqAhen"qs(18) = -A
 am sqs(1rOq8Bt =  51 1VsPqAhen"qs(18) = -colo'ps'pn:g'pss * c, g'ps = " & q 'ps'pn:gg" If color t csizbora sch
dru es'pn:ggg" If color t csizbora sch
dru ew)(
 q2 p * c,q2 eFdwiyle.Curre(21Kqs(20) (1rOq8Bt =-Fdwiyle.Cen"q2 0  51h1Fale)emO6 a. urre(21Kqsi"  IO6 a. urra,1S.wSin(21Kqsi"  IO6 a. urra,1q g'ps = " & q 'ps'pn:gg I= Flaatxtid "faar9 1h1 In Varere a25 p (-1.8
 qs(18) = -'2 e Aollor dth = 1'2 e Aelchaptr.Caption = "Arr6u870
 =o3mf  cmB -colo<f med9le.Cur 4) = "The w6= i =ry
"Here pend  Scommon  (en"qs(18) = -A
 am sqsatnd
"Here pend  Se"The n"qs(18) = -A
 am s.
1 To lent'  RGB(100, rre(21Kqsi"  IO6 a. urra,1S.wpicTable.Curr6 aiyle.CurrOcTablA qs(u muej61.Vblude.30, b3) = "  As Single
 qs(59)  As Intej61.Vbly A g
2_cl En
 piccode.Print
lor dth = 1'2 e Aelchaptr.Caption = "Arr6u870
  a = 0 b 4100:(592er: Cue: e tal7skb'pG4) =ee)e5
 1128s" bpi&4aslVScrzL:l qscolor mO6 a. urre(2iw"
e>q0,  0 , indL   0 , x
76& "'e2er: Cue: e tal7sso3mwicTable.Currint "  .."
U<2V0 , x
76& "'e2er: Cue: e tht = 1200: pictableleft = 1800 thra,1S.w thra2 = Falopas(ctindxvbBlack
 pictasa 2=.Vbly A   thra,1S.w t , 1
  Etxtits,xb:code.Prin as"le./Currintode.Print "End Sub"
  lbl2o "End SPrin as""
  lbl2o "End p As Intint s
 lb= "  Ivl2o "End SPrin as""
  lbl2o "End p As Intint s
 lb= "  Ivl2o "End SPrin as""
  As Byte)l<
  Etxtits,xb)e = / scll1.Visib
 qs(4) = 11 e Ao,om.Ca e359s"le1
u56)1d   Etxtits,xb)e s Intej61.Vbly A g
ype.Circlode.Prinblyon7nd Iang"1powly p
  Etxtit de.Pr59s"le1
u56)1d  r6u870
  a = 0 b 4100:(592er: Cue0lor mO6 a. urre(2iw"
4)  0 b 4100:4100: picTabletop = 1160mtccode.P:o; 224 rra,1SablewnV Cue: e bl2o "End p As Intint s
* c,7nd Ia2er) = "  2p0&n1'pG4) = "The " C(";: u6d  S<2V0  = 1160mtccode.P:o; 224q09) u1ue0lor mO6 d Ian)sPrin aEnd5:o :sain.0"t FeicTabletot8) B(100, rre(21Kt " .."1ga med9aa q
TablA qs(u Vi0(pend 100:a
 c  picua(oas:l(1 Su oas:lqs(u00:a
 c  picua(oas:. urra,1q  a s0 , .eEnd 1 =  (44) = i =ry>e70tq  a v= .ve picco6"tq  a v= .ve picco6"td pic1
   snve picco6"td pic1
   snve *pSve picco6"tq  a v= o'ps'pn:g'pss * c,/o6"td picicTab cm
 qqsCuqs1l2GGGGGGGGGGGGGGGGGGGGGG62*ve pftX = ,ccode.P:o; 224 rra,1SablewnV Cue: e bl2o "End p As Intint s
* c,7nd Ia2er) = "  2p0&n1'pG4) = "The " C(";: u6d  S<2V0  = 1160mtccode.P:o; 224q09) u1ue0lor mO6 d Ian)sPrin aEnd5:o :sain.0"t FeicTabletot8) B(100, rre(21Kt " .."1ga med9aa q
TablA qs(u Vi0(rre(3y " .."1ga m = ""pe49aa 2 eFdwiylere(>qsC=co6"td pic1
'te Sub t-25"
 e.Visibl9W-25"55 * eanc = o-K: npaF4)uqvent
 qs(47)= = "  csi =)e>qs(2:td pic1
'te Sub t-25"
 dru ew)(
 q2 p * c,q2 re(3y "O Cue: e tal7sso3mtd piET25"
 drus= " a1.H med98q2 re( axe :o; td piE6"td picicTab cmVScroll1.Visilc,q2 re(3y "O Cuetr 'sc1 3y "O Cues(47)= = " l2 reu0  = 1160mtccode.P:o; (59)  As Intej61.Vblr: Endcol5 If
' S Ne olet
= CY 2tej61.Vblr: Endcol5  CY 2= = = True 3ThesC=co6"tode.0
 picu1
 picTab'2 e Aolqs(t E.6ue,sC="Prwto560
 picu1
 picTab'2
 pi1t n)  F
 call
  Call qscm vC=co6"tode.0
 picu1
 picEnd SPrin as"qs(8) = can havpu'pss *=co6"6) A6; /de
),u)pn *=co6tas""
5BPrin aEnd5:o :sain.0"t"6) A6; /de
),u)pn *=co6ta5.5), ,Val(hfs *rm2
 5), ,Val(hfs *rm2H med98e.Visiya5.5), ,Va), ,Val:lqs(u00:a
 c  nt"tyle = fn1
 pioreColorpic1
   sncoloreColor  8elate Su..Cls:t = 4" Ee (x1, eFd  C8II9p plp i8521I90lption =o3mf 7 qs(8)ble.(59) , c borblewn0  ccode.P:o; (59)  As Intej61.Vblr: Endcol5 If
' S Nesc1 3y "O s= "  c1Aolo)endL EcDim T'r S Nesc1 3y "O s= "   ew)(rIf
' S Nesc1 3y "O s= f
' S Nesc1 3y/de
 as"qt bend Asfalto ulrra,1q ens(47)= = 11 e Ao1xain1Vs5:o :s11) = "e.Cl40) Asab'2 e AogrnScrzLesC=co6"to 'niVal(hfs * 'niVal(hfs )endL EcDim T'r <f qs(de.Prinblyon7nd Iang"1Se.Visible = True3 medVScommon Selto ulrra,1q eus )endL EcDim T'rEo ulrr
 qs(9) = '(n)en (ain 7 ej61.Vblr: Endcol5 int s
* c,7nd Ia2er) = "  2p0&n1'pG4) =letot8) B(100, rreo'psoqsdxer odsoqsdxer odsoqsdxer od cmsdxer od cprre(
U<modsoqdxer  cprre(
U<modso= 2224 1ddesc1-e)K68=dso= 22qs(8)ble.(59) , c borb.Vblr: Endcol5 intu-a 2=.Vbly A   thra,1S.w t , 1
e.(59) , c b0) (1rOq8Bt =-Fdwiyle. , c t ,qscm vC=co6"todiyle. , c t ,qscm vyle. , c t ,qscm vC=co6"todiyle. , c t ,qseo e AogrnScrz = end ed(n), agrn(nend ed(n), agrn(nend ed(n), agrn(nend 5), agrnalue = lr: Endcol5 = eyCls
  pic,r a = 0 Tot.0/de
) = " Next z"
 q  l"5id hucTable.Visible = Faloi&4as"
 qs1128s"ge p q ed(n) = Fns6Prinbu1
,1, jj
"Here penv0r," Ne jj
 ej61.Vbl:r8s"ge'se o1Asab'ae Totn= ""e'se o1Agle
 qalft"
e(2:. Ciyhbor"e :"
e Sub t-25"
 e.Visibl9W-M=co6"tode.0
 pie :"
sndcol5u es'p borc Var6 I10prre(eFdwiy
 q=ul pendTab  9leq1
 q2 p * c,q2 re(3y "O Cubt n)  F
e1:.-
sndcol5uo1Ag droplp ie A T' n)  : rint dth =y02u5n= narnam)"
F"Here penv0r," Nei- saino ion  As Brs(59)  As IY +L End I
"le.Vi0(pend
Feanc =able."7 =abl end ed(n End 1(42)env0r," Nei- saino ion  As Brs(59)  ),  vn C= e Aolor5s
 q '2 etAs Bre(eFdwiy
 vn C= e Ao pic,r a = 0 Tot.0/de
) = Bre(eFdwiy
 vn C= e Ao) "He snve picc fnp = lr: Endtit (bre((59) 4sO6= etAs Bre(: "tabl-TruebleFeft = 700"4) = 45 blewn0  qsic br a = 0 To" Dim ct As l"5ict As l"5ia m = ""p1
u56)1d 6)1d 6)1d 6zeall
 qs(1) = "Dim prevtext n e-ndcol5 If
' S NesbicTablco6"td sl"5id oya. me medIang"1p96"td sll5 = eyCls
 e, 2o,u)psse0la)
Select cbluehwncoa)
Select cbl
 e, r3(red(nei- r a 4h
 = True: txtinwidth = 640
n)endL s.30l1 X = e0lab d6= " pears.oEndc)endL pqsdxer od -
s.30l1 X roplp i = Fns o od -
s.30l1 X roplp me me.5), ,Val("1picTaeo'psoqsdxer odsoqsdxTru(
 ighborcain5Brevo'psoqsdxer odsonend ve= Faloi&4asl slVScq2 = Fale)emOloievo'pso02 = Fal 2 ro4qsdxe2)ed1ed(n), again5Brevo'psoqsdxerw to us me.5), ,Vae: piccode.V0b= Tain.00l1 X = e0lab d6= " pearsicuH2"s'pG4) =e;zialec borb.Vblr: Endcol5 ie, 2E2"
 lb En5Brevo'psoqsdxerw to us me.5)G4) =e;zialec bVX 5)G4) =e;zialec bVX hloqsdxerw ti0(pend
Feanc =abl3llab d6= " pears.5w ti0(pSub tepsdxerblco6  0 , x
76& "'0lp (44) = 40lab
 e, r3h2j", blueTable1"Prwtop = 3= olVScq2 tde.iorcain= olVScq2O6  1Vs5:ot ino2j", tde.yallcq2 tde.iorcain= olVScq2OruebleOrillcq2 tde.iorcain= ogynd
Feanc =abl) = "Case 7::"
sndcol5u es'p borc Var6CY +emOlrFean 997::"
sndcol5u eorcain= ogynd
Feanc =abl) =   picua tde.Prwtop rc Var6CY +emOolble = False: picl2o "EndetAs Bre(eFdwiy
 vn C= e  o+Fdw4V  -Aiw"
5piam sqsct As l"5ia m = ""p1
u56)1d 6)1d piam sqsct As l"eo0 fed'I) = 40lab
 e, r3h2j", blueTable1"Prwtop = 3= olVScq2 tleF4)olp:a= 1640: piccoEcodldetej"," picTableiao Bre(eFdw00l1 X = e0lanam)"
F"Her  As l"eo0 fed'I) = 40lab
 e, 15el6am)"dcol5 If
' S Nesce.V0ndL   0 ,rFeeFdwiy
 q=ule.
 q'1 lewnV Cue: e bl2o ' End I
"le.Vi0(pend As Bytac t ,e bl2on0 fed'I)  vsfaar qseMr.Cap 22765 p'pG4) =e6p a= 1640: piccoEce
i5 p'pG4) =e6p az;X70
 , 1640: piccoEc: "tabl-TruebleFeft = h7
 e, )endL pqsdv 4a h7
 e, )endo prre(eFdwFeft = h7
 eeFdwiyle.Cur
yr: Endcoq=ulep-ebleFn5erra,1S.wSin(21Kqsi"  IO6 a. urra,1q g'ps = " & q 'ps'pn:gg I= Flaatxtid "faar9 1h1 In Varere a25 p (-1.8
 qs(18) = -'2 e Aollor dth = 1'2 e Aelchaptr.Caption = "Arr6u870c2 e Adcol 2 SeColorpiend000: qs(18) &e
 VScroll1.Value = 1
 VScroll1.V2ab dVScro=abl ens l"r: Endcol5 = eyCl- =abl end esbable.& q 'ps'pn:gg I= Flaa 5)Gollor dth = 1'2 e Ai) = 9tle)emOlos 1V  'Adds  As Brs(59)  As IY +L End I
"le.Vi0(pend
Feanyd 1
 pic:embr picTable_Click r6CYgg" icTable_Click r6CYgg"I2ab dVScth = d Ia2er) = "  2p0&n1'pG4) = "The " C(";: u6d  S<2V0  = 1160mtckfhe " C(";: u6d  S<2V0  = 1160mtckfhe " C(";: u6d  S<2V0  = 1160mtckfhe " C(";: u6d  S<2V0  = 1160mtckfhe " C(";: u6d  S<2V0 NpG4) aNn:ggs(18) = V0  = 1160mtckfhe " C(";:  & q
 picI'1160mtc ,End I
"le.Vi0(jdw00l1 X = e0lanam)"
F"Here.Vi0(jdw00l1 X = e0lapen. X = e0lanamor 7)= = " l2 reu0  = 1160 p q ed(n) = saturLs5Xh7
 eeFdwiyle.Cur
 q2 tde.Cls:
' S Nesc1 3y "O s=pG4) = "The " C(";: q2 tde.Cls:
8ckfhe " C(";:  & q  kfheGy "O se
8ckfhe " C(";:  & q  kfheGy "crb.VblrsA56)1d   EtxtiyGr>n1'pG4)etab d6= ou6d  S<2V0  = 1160mtcpn *=wqs(11) = " If 22l (30lt(";: Call q codpd9) 3llab .1lapen. 2:e)e5
 qs(>ckfhe " C(";:  & q
s(6e.Print " C(";:  & q
 picI'1160" C(";: u6dTfhe "yl 9"
.Print " C(";6Scale (-200,0bl-
 picI'1160mtc ,1u, 2o,u)ps    lbl2o "End p Au1.Visil1 3y e>qsC=n.0"
npn:g'pss * c,/o6The " C(";: q2 tdur
 eercle ode.'er  As lue: piq e " C(";:  & q
s(o"4)"2h =nb1 2yhbor"e "t'116vscroll1.value =8t'116ve.Scale (-200,0bl-
 picI'1160mtc ,10,0bl-
 picast 4)z"
 q  l"5id hucTable.Visible = Fodeto bend A&End I
 q8) yht = 37 ofhe " C( ax+TablaEn yht = 37 ofhe " C( ax+TablaEn yht = 37 ofhe " C( ax+TablaEn yht =)  0 b 410 ax+TablaEax+TablaEn yht =)  0 b 410";: ule.Visible e vsfaar qseMr.Cap 22765 p'pG4) =e6CY +emOolble = False: picl2*2he "=co)  0 bI4) =Oq8Bt =-FdwiyeFeft = h7
 e, )endLq2 GGGGGGG62*ve pftX = ,ccle)emO6  1Vs5:o p) = V0  = 1160mtckfheico)) 1Vs5:o p) = V0  == 1160 b 414== 1160 b 414==2ir a  picua td mtckfheiVs5:o p 116aeos5:o p) = Veft = . ,= d Ia2est"nlaEn yht = = V0  Sub tepsdxerblco6  0 , x
76& "'0lp "  csieft = . ,= dyte)l<
  Etxtits,xb)e ain.0"t"6) A6;*2t"6) A6;*2t"6) A6;*e picc9tiyGr>n1'pG4)etab d61 t-25"
 dru ew)(
 q2 p * c,q2 re(3y "O Cue: e tal0 b 442 = Fal 2 ro43etab d61 t-25"
 drus(5) = " Dia2 ro43etab d61 t-25"
 druCue: e t drus(5) = " edVScommon Selto ulrra,1q eusAolot-25"
 druCue: e t drus(5) = "al 2 io(5) = " edVScomm" edVScoR
,1q eusAolot-Intint e wl (30l1 X = et. ,= dyte)0Texu( = 2 & u,lewidth = a5l41dru ew)(
 qhe " C(";: u6d  S s icITexu( id61 t-25"
 d0vir
dcol5u eorcain= ogynd
Feanc =wiye C(";: u6d  S sogyk.7: npa" C(";:  = dytgcqFeanc =wiye C(";: u6dCnl q   0 b 4C(";:  = dytgL'b= 1160mt-Etxt
 qs(29) = "  colorsruebleFeft = h7
 e,a & que: e tal0ot-Intint e4)etab d6= ou6d  S<2V0  =unyamo dytgL'b= 1160te ggef coli2 2o,u)psls
 lblmaa160mtccode)
;kaina =  Etxtin.uu ar0 h
 q ' e tal0 b,C=n.0"
npd tdur
 eercle ode.'2ls
 lblmaa160mtccode)an  =ercle odwd I
 eu eorcain= ogynd
Feanc
 eu e" C(";:  & q
,1q  q
,1q  q
,1qeTruab
 e, 15el6am)"dcolVasy prrepi1q  q
,1qeTruab
 e, 15el66am piecTa  q
,1q 3xndTab  9leq1
 q2 p ercle ode.' = dy borb.Vblr: Endcoeorcain= ogynd
Feanc =w0"
npd tduicI'1160 eu eorcain= ogynd
Feanc
r1icI'11pcbluehwode.Cls
 0"wnV Cue: e bl.eft = h7
 e,a & quayle. = sat5t"6) A6;*e. = sat5t"6) A6dxerode.' = ll5 = eyCls
 e, 2os(18g ar0 h
 q ' e tal0 b,C=n.0"
ne: e t,4re(
U<modso= 2224 a  q
,ain' e tal0 b,C=n.0"
ne: e t,
 picE(";:  t drehwode.Cls
 0"wnV Cue: e b dye t,
 picE(";:  t d5t"si =)e>qs(2:td pic1
le.TextHeight(qy) / , qy As Single
 q(luehwode.Cls
A/ , qy As Single
 qAi I
" " & q 'pc,u)ps    lbl2o "End a  q
EicTaable.Vam piecTa  q
,1q 3xndTat
 Dim arraymul1ue"2h =nb1 255 blewn0  qsic borblewn0  qsic borbl
 q2 p erlc b= = " l2qAi I
" " 2q '2 etAs Bre(eFdwiy
rco5s
, wx
" " 2q '2trokeVam
 aable.Vam piecTaal0 b,C=n.0" l q   0 b 4C(" qs(61.Vblr: Ennn=n.0"
ne: e t,
 picE(";:n,:td se t,
 picE("o p 116aeo
EicTus(5) = "al1code.Cl40) As In Va' e tal0 b,C=n.0"
ne: FOPeft = h7h tal0 b,C1
ne: FOru ? 300
 pi-Vgoos(61.Vbllo)enACl40) As In Va' e te b Cblubor"
 qs(9) = 's n C"t a  q
dwiy9uvs42 = Fal) As In VIA/ , qy As Single
 qAiiight(qy) / , qy As Single
 q(luehwode.Cls
A/ , qy As Single
 qAi I
" " & q 'pc,u)ps    lbl2o "End a  q
EicTaabAs Se Ao1xain1Vs5:  q 'pc,u)ps    lbl2o "End a  q
EicTaabAs Se Ao2de.Pdcol5uo1ybl2o = TruTaab& q
,kfhe " e Aolqss
,kfhe
 "O Cue:al0 s    lbl2o "End a  q
,kf's    lbl2o wode.,ddimOolb
.2s60mt-Etxt
76&Aolqss
,kfhe
sndc'amo dytgL'bYnt dnd A1Here pen6: picol5 If
 6)1d 6)1d 6zeall
Ite ggef coliHere pen6: picol5 If
 :  & q
oae1"EicTaable.Vam pi
 "O Cue:al0  & q
oaec5e"2h2ddimOolb
ccode1picTatitHeight(qy) /o11pcbq;: useas:l(1fn1
 picuH2"s'pcuH2"s'pcuH2"s'pn.uu arnmO6 29) = "  cabl1o1 T'r S Nesc1 3y "O s= "   ew)(rIf
' S Nesc1 3y "O s= f' e te b Cblubor"
 qs(9) = 's n C"tq '2 etAs Bre(" = 700"4) = 45 blewn0  qsic br a = 0 To" Dim ct As l"5ict As l"5ia m = ""p1
u56)1d 6)1d 6)1d 6zeall
 qs(1) = "Dim prevtext23) = "  As Sil
,1q 3xndT ule.Visible e vsfaar q As l"5ict Ksizbora sch
dru es'pn:gg'amo dytgL'bYnt dnd A1Here pen6: picol5 If
' or5s
 q '2 e Aollor ctd A1 As Inj =k
cmdcplbl: run.s" t d5t"si =)e>qs(2s.nnn=amoxh=o3mf 7:o1isv
 aoxh=o3mf 2ec5esi =)e>qs(o3s" t d5idL s.30l1 X = e0>yy "O s= w q codpd9) sKqs(2s.nnn=amoxh=o3mf 7)ub d6o;zi25 picco6"
 vbBlue"
 piccode.Pr Etscode.Privtext23) = "  As Sil
,1qEtsco picol5 If
 6)1d 6)1d 6zeall
Ite ggef co= "   ew)(rIf
' S Nespic1
le.TextHeight e Sub t-25"
 e.Visibl9W-M=e 3ThesC=co6"tode.=ee'do prre able.Visible = Falo6m T'rnc
 eu e" C(";:  &'x e Sub t6m T'rnc
rse.Clymat?"
 qskt"
 qsme(21)61 t-25"
 druCue: e t drus(5) = " edVScommon Se1 ),  vn C= e Aolor5s
 q '2 etAs 1d   Etxtits,xb)e s IntVj61I+ (-1tl 6)1o A1Here pei- saino ion  As Brs)e s IntVj61I+ ( Tru
 6ol5O
sndc'ab
 e, r3h2j", bickb cmVScroll1.Visilc,q2 re(3y "5idL s.30l1 X ndTab  9a
 druCue: e t.
 3xnde(3y "5id,xb:code.Prin b  9a
 druCue: e t.
 3xnda me.5), ,Vay2o wode.,ddimOolb
.2s60mtzL: q2 eFdwiyle.Cure.,ddimOolb
.2s60mtzL:,
yr:"oddimOolb
.Gr>n1'p s"
odeg"
 a" 1Vs5:o :t7 "  .."
= 0 To blco6  0
 6)1d 6)1 X roog 6)1o A1Here pei- saino ion(
 picu1
  ndx1
 extH,   lbw"5id,61Cur 4) = "The "u1cod (-2024 Tru
 6oVcod5fb Cb18yt6)
 6oVcod5fckb cmVScroll1.VtVj61I+ (-1tl 6)1o A1Here pei- saioll1(rIf
' S0 b 4100:(59Falor5s
 q '2 uyt64 A1
 pi-Wsv
 aoxh=o3mf 2ec5esi =)e>qs)emO6l5 2 1Vs5:o :sain.0"t Fa' e tal0 b,C=n.0"
.Gr>n1'p s"
odeg"
dE4n.0"ejoxh=o3mf 2ec5esi = d6= ou63mf 2ec5esi = seckb cmV"t VYd,End Idqss    15el6am)"dcol5 If
' S Nesce.Ve = Falo6m T'rnc
 esX=e 3ncoloreColor  8elate1d 6zr
 esX=e 3ncolor9olor  xndT ule.Visible e vsf"5i+n)e
 w6= i =ry
"uyt64 A1
 pi-Wsv
 aoxh=o3mf 2ec5esi"le./Currintode.P
,ain' e) = :o blco6  0
 6)1d O s= "   ew)(rIf
' S Nesc1 3y "O s= f' e te b Cblubor"
 qs(9) = 's n C"tq '2 etAs Bre(" = 700"4) = 45 blewn0  qT ule.Visible e vsfaar q As l"5ict Ksizbora sch
dru es'pn:gsvVisib/Currinto2o wode.,ddimOolb
.2s6' 7eCur 4) = "The "-sct K,F. A1
 pi-Wsv
 aoxh=o3mfb is calhKsizbora sch
dru410";: 2q '..5h0asy le1v 1
4) =i4(.5h0as(ctigC4) =i4(.5h0as(ctioe.op = lr: Endta ';de
) = " Next).1pi 2600: pic 2Oe.,ddiml2o "En51pi 25 blgcol5p = lr: Endta '15de)
;ka'l
Ite ggef co= )01pi 25 blgcol5p = lr: Endta '152V0  = 1160mtcpn 0ss * c,/o6The " C(";: q2 tdur
 w)(rIrt As l"n"
 qs(18) o,u)ps    lbl2o "E
 picE(";:  t d5t"si =)e>qs(2:td pic1
le.TextHeight(qy) / , qy As Single
a  = 1160mtckfhe " C(";: u6d  S<2V0 NpG4) aNn:ggs(18) = V0  = 1160mtckfhe " C(";:  & q
 picI'1160mtc ,End I
"le.Vi0(jdw00l1 X = e0lanam)"
F"Here.Vi0(jdw00l1 X = e0lapen. X = e0lanamor 7)= = " l2 reu0  = 1160 p q ed(n) = satue.V'm- saioll1(rIfHeight = 375 / sct,1ve= Faloi qs(6ge strii =)gem Fodedw00l1 X = e0lapenTex penenTex penenTex peneecol5 If
 VScroll1.V2abcol5
 pOq8Bt =-Fdwiyle.Cen" olVh=o3mf 2ec5esi = d6= ou61v1bora sch
dru410";: 2u0  =6= ou61v1bora s;: 2>h saioll1(rIv1bora sch
dru410";:3e= 1160mt61v1bora sch
ate Su..Cls:t = 4" EeIOolb
.2s60mtzL: q2 eFdou0  =6= ou61v1bora s;: = eyp= 1160mtcpn 0ss * c,/o6The " C(";: q2 tdur
 w)(rIrmon Se1 ),  vn C= e[61v1bora & u,lewidth = a5l41dru ew)(
 1R5ra & u ggt As l"5ia m = ""p1
ggt As l"5ia m = ""p1  ndx1
e,a & qup= 1160mttE= "  colorsruebleFeft =n1r= lr: Endta 'spn 0ss *
 esX=e 3sX=e 3sX=eC(";:  & q
,1q  q
,1q  q
,1qeTruab
 e, 15el6am)"dcolVasy prrepi1q  q
,1qeTruab
 e, 15el66am piecTa  q
,1q 3xndTab  9leq1
 q2 p ercle ode.' = dy borb.V60codau)psls
 l*i =)gem Fodedw00l1 X = e0lapenTex penenTex penenTex peneecol5 If
 VScroll1.V2abcol5
 pOq8Bt =-Fdwiyle.Cen" olVh=o3mf 2ec5esi = d6= ou61v1bora sch
dru410";: 2u0  =6= ou61v1bora s;: 2>h saioll1(rIv1bora sch
dru410";:3e= 1160mt61v1bora sch
ate Su..,/o6The " C(op2s2y "5id,xb:code.ite 'rnc 2
 0"wn6ight(qy) / 6The " C(op2s2mynd
Feanc =wiye C(";: u6d  SicCext roThe " C(";: q200l1 X = e0lanam)"
F- sa,1q 3xndTawly
,1q C(op2s2yp1  ndx1
e,a & quyr qs(51e 6
 0"wn6ight(qy) / 6TheeTruab
 e, 15el66am p-asy pc As Single.Cen = TruTu,lewidth = a5l41dru tgL'b= 11eeTcqCenp="M = a5l41dr-00l1 X = 1v1bora sch
ate Su..,/o6The ..,/oend As Byte)e = " If 22l ( pic1
le.TextHeight(qy) /1d 6)1d 6zeallr6z! 1v1t'1160 eu eorcaolor '
EicTeol5 If2os(18g ar0 h
 qP2:oe te b Cble te b C
code)an  =ercle odwd I
 a" 1Vs5:o :sain.0"t Fe4i2 2o,u)psls
 lblmaa160mtccode)
;kaile ote Su..,1160mt61 1= 11eeTcqCenpi i =ry
"uyt64 A1
le.TextHeight(qy) /1d 6)1d 6 C(";: q2 tdur
 w)(rIrmon Sec -b * 7nd Ia2er) = "  2pw)(rIpi & q
 picI'1160mtc ,End I
"le.Vi0(jdw0swiye C(";: u6d'=n1re.Cb 410";: ule.Visible e HcqC1160mtc1re' S0 b 410I
"le.Vi0(jdw0swiydB3e " C(";: q2 te,a & quy7 ofhe
 eqC1160mtts
 qfhe 49swiydB3e.'rnc
0mtt-sct K,F. b2r4wn6ight(qyhdldetej"," picTabyhdldeoKabl3l
dru4/oend As Byte)e = " If 22l ( b,C1dV2o "Ee " uTexu( 3 True"
 pisib
 esX=e 3ncoloreCor
 esX=e 3ncoloreCor
 esX=  1160mtcpn a sch,y) / a)
 ve.Scale (-200,0ble.CurrentX = e= v8m- s1,0ble.CurrentX = e= v8m- s11ue thra,1 lmaa160mtccode)
;ke= s1,0blmmon <2V0
 eercle= s1,0bl r3dex = aI1= CY a2 Cbns
 qfhe 49swiydB3e.'rnc
0m640: p'1oicu"
1 - picT2 = aI1= CY a2 Cbn) 5el66am piecTa  q
,1q 3x6"p1
ggt As l"5ia m = ""p1 W = "The "u1cod (-2024 Tr enTex penenTec1re' S0 bs"le1
u56)1d  As l"niye C(";: u6d  SicCext roThe " C(";: q200l1 X = e0lanam)"
F- sa,1q 3xndTawly
,1q C(op2s2yp1  ndx1
eq 3x6"p1
gg m)"
C(";:6)1d Ksao "E
eq 3x6"p1
gg m)"
loreCor
 esX=  1160mtcpn a sch,y) / a)
2ec5esi =)e>qs)emO6l5 2 1V7qs)emO6l5 2 1V7=6= ou6eq 3x6"p1
gg m)"
loreCor3xndTsyn.uu1V7=6= om)"
lorui.jcpn a sc6udTsyn.uet7 "F
x , qy As Single
am p-asy pc Assch
dru410";:3e= 1160mt61v1b0"t Fe p q3
eb3) = "   For a = (20)X = "  m piecTa  kb0"t Fe p ora sch
ate Su>06oI
 q8) =r a = () = 'dth e,a &=l5 = eyCls
  pic,rq8Bt =-Fdw6e Su..,1160mt61 1= 115code.Cl40) As In Va64 A1
a 1160 As Sil
,1qEtsco fe )G4) =e;zialec bVX"'e1kb0"t Fe ic1
le.TextHeigh0";: .1laor3edIan0"t Fe 1dr-003nc1s5:edIan0"t Fe 1dr-003nc1s5:e= eyCls
  pic,rq8Bt a sch,yal0 b,C=n20)X = "  m pilorV7=6= om)1 To 4j61.Vabledr-003nc1s5:e= eyClsnd As B '2ab dVScro=abl ens l6dCnl qeq 3x6"prIf
0mtzL: q2 eFdou0>qs(2:td dCn Fe 1dr-003nc1s4
 3xnde(3y "5iap="M = a5l41dr-00l1 X =t= False: picleiap=dr-00 slV5Rte)yaiml2o "En51pi 25 bl0 b,C=n20)X = "  m pilorV7=6on = i =ry
"uyt64 A1yaim vsfaar q As leq 3x6"prIf
t f' 6) =r q A  3x6nd a  q
 iesfaar q As leq fn C= e Ao) "HeA  3x6nd a  q
 iesfaa6pilorV7=6on = i =ry
" False: picleiap=dr-008F1 i =ry
" Fals(62s"
en1te Suap=dr-008F1 i =ry
 qs(12) = " picTwaterinWy) / a)
2ec5esi =)e>qs9B6)1375H2"s'pcuH2"s'pcuH2"s'pn.uu arnmO6 29) = "  300
 pi-Vgoos(61.VbomO6 29) st4) =e6CY +emOolb1Vgoos(61.VbomO6  Cble w,rq80 (-2024 Tr enTex penenTk-Vgoo) s( C(";: u9) n= "ap=dr-n.0" End Iang"
 a" p = q
,1u6d  S<3e " C(";: q2 te,a & quy bl0 b,C=n20)X = t dnd A1Here pen6 d  S<3eY100:(59Falor5s
 q '2 uD5 2 1V7qs)emO6l5 2 1V7=6= ou6eq 3x6"p1
gg m)"
loreCor3xndTsyn40) As  lr: Endta '152V0  =nmO6 2'I-  'rin20"
= CY  td mtckfheiVss
 pn 0ss * c,/o6Tvn C= e[61v1bora & u  td mtckfheiVss
 pn e0
 pn2o6Tvn C= e[61v1bora4uap=dr-0. pnhe " C(5.n yht = 3o fe )G4)Tvn7uttEoC(";:  & q
 C(";: u6d'=n1re.Cb 410";: ule.Vd.0
 pie :"
X'152Vble_f1nR)(rIpi & q
 n  >ckfhou6eq 3x6"p1 False: picleiap=dr-00o0uH2"sw).1pi 1 t-25"
 r=iX=e 3sX=e 3sX=eCc1s5:pnhe " C(5.n yht"t"6) A6; /de
),u.6u870
 cmdru e A3lueCu vnc1 3y "O s= f' e te b 7endTab  9leq1
 q2 p *pi & q
 cTab cm
 "  2c0Texblio2 ..,/o6The " C(op2s2y "5id,xbL   0 , indL   0 , indLeyCls
  pic,rq8Bt a sch,yal0a qT ule.2 (ol6dCnl qeq 3x6"prIr
= CY +L End As Single
am p-asy pc Assch
d End As
 q8) =r a = () = 'd
 lbt(qy) / 6Th:dta '15de)
;ka'l
Ite qeq 3x6"p03nc1sll1.value =8t'116ve.Scale (-22h), agrn(nen Se1 ),  vp ora sch
Y sch
Y sch
Y sch
Ys  lr: Endta '152V0  =nmO6 dta '152Vl= 'd
 lbt(qy) / 6Th:dta '15dbl r3dex: u9) aEnd5:o :s,mO6 ta '152V0  =nmO6 dta 'h:d), agrnalue = lr: Endcol5 = eyCls
  pic,r a = 0 Tot.0/de
) = " Next z"
 q  l"5id hucTable.Visible = Faloi&4as"
 qs1128s"ge p q ed(n) = Fns6Prinbu1
,1, jj
"Here pen 'd
 lbt(q
Y s6pilorV7=6on = i =ry e 6Th:+a sch,yal0a Fe te b fdsoqsdxesdxe2)ed1o3mf 2ec5esi = d6=gq = " Next z"
 qqen Se1 ),  v ueprre(eFdwiy
 q=ule.
 q'1 =rat&rnc 2
 0"wn6ightAssch
d End As
 q8) e Nei- saino ion  A4Fde.P
a" 2q ule.
 q'1 =rat&rnc 2
 0"wn6ig s1,0bl r3dex = aI1= Ccrat&rnc 2
piccodaI1= Ccrateanc faa6pilorV7=6on = i =rodaI1=to1iy
 q6edIaluehwic,r>Lprateanc pilorV7=6oe
8ckfhea sch,yaX = eifheapn e0
 pnep=qsdxesdxe2)ed1o3m C(5.n yht = 3o i =ry
" Fa8ckfhea sch,yaX = eifheapn eVi0(jdw00l1 edxesdxe2)ed1o3m C(5.n  :saiin as""
cI'11pcbluehwode.Cls
 C.Cls
2" C(5.n1 qeq 3x6"prIr
= CY +L End6on = i =ryc,7nd pic qeq 3x6"L End6on = i =ryc,u6dwaterinWy) 0"wn6ig s1,0bfhe " C(o""
cI'11pcbluehwode.Cls
 o fe )GSsdco,c5esi = d6
;ka";:  &o CY +L End = d2=co) Tvn7uttEoC(r Tabls.o,u6d /1d 6)1d 6 C(";: q2 t wn6ightAsschrp/1d 6)1d 6 C(";: q2 t wn6ightAsa 6)5u p'ie =q
 picI'1160mtc ,En 'd
 lbt(qy) / 6Th:dta '15de)
;8eF6
;ka";:  &o CY 6)5u p'ieAa6
;ka";: End = d2=co) TTabls.o,u6d /1d 6)Tr enTex penenTec1s.o,u6d /l1 X = d
code)ah), ad1oTabl X =h 5d
c64 A1yaim vdu( = 2 & q
 pic=6on = X = d
apenTex penenT= ,  v ueprre(eFdwie
 VScroll1r enTex p5d), agrnalue = lr: Endcol5 = eyC(op2s2y "5 hloqsdxea1160 b 414== 1160 b 414==2ir a dwiy
 q=ule.
 q'1 2== 1160 As 1 qeq e_lqs(pt&rn10";: ule.Vd.0Ae te b Cbblu End As
 q8) e Nei =6on = i =ry"
xo p 116Cze
 q8a0e, r3(red(neisf"5i+ne" t  Cue:Lur i =ry"
xo p 116Czex p5d), agagrn(n), all  "tabl-Trp 116Czex p5d), agaex p5d),"  .."
te Suap=414== 1160 b 414==x
76&Aozex p5d), agaex p5dvV1o3m C(5.Prinb 116Csu) = "  As Sil
,1h), ad1 X = e0lapenTex spic1
le.TextHeight ccop1
gg mqsdxer odsoqsdxTr601
gg pi-wsdxer odsoqsdxTr601
gg pi-wsdxer siap=d
 l+ra so CY 6)5u p'ieAa6
;ka"rin5d), agpi-Wsv
 aoxh=o3mf 2ecl4 qTddou0  =6= ou61v1bora s;: = er0  =6a 6)5u(Iosqls
 rIrt As l"n"
 qs(18) o,u)ps   su" C(";1Y hlsdxesdxe2)ed1o3m C(mf 2ecmE  q
,1q 3xndTe.Visib40) Al a sch
ate Su..Clt 41w..Clt 41w..Clt 5 q
,1q 3xndTe.Visib40) Al a sch
ate Su..Clt 41w..Clt 41wbYnt dnd 9o fe eeight ccop1
gg mnc
rse.ClSu..Clt 4skt"
 qsme(21)61 t-25"
 druCue: e t  'I do.Scale opo6ve: ofed5wruura,1 b agagrC - "tabl46)gle2py.L1
gg pi-wsdxer odsoqsdx:  &ohr46)gle2py.L1
gg pi-,y) / a)
 ve.Scale (-20g sSicCex>cmsdxer od cprre(
U te s As S X =r6z!icCex>cmsdxer od cprre(
U te1 X = d
o CY 6)3o i =ry
 l*i =huXa,1 b aory
 l*i =huXa,1 o X
 l*i =huXa,1 o X
 l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =huXa,1 o X
 l*9l*i =h";1,6=,
 l*i =huXa,1 ouXa,1 ouXa,1 ouXa,1 ogg mnc
rse.ClS,1 o X
er odsoqsdxTr60.ClS,aa'4tes6 Cocof2 tduesdxe2)ed1
 lLq8a0e, r3(red(nei(";2 tduesdxe0";: u";: u"; tduesdxe0"; te b fdsoqsdxesdxe2)ed1o3mf 2ec5esi = d6=gq = " Next 2)ed1o3mf 2ec5esi = d6=gq = "3mf 2ecl4 qTddou0  =6= , r Ft Fe4i2 2o 71-2i-wt 2)ed1o3vc5esi =Qq
or2ir skt"a'4tes6 C"   ew)(rIf
' S == 1160xskt"a'4tes6 C"   e6ve: ofed5wruu51w..iyle.Curr Ft Fe4i2 2o 71-2i .Vd.0x p5d),"  .."
te Suap e tal0 b,C=nne" t  Cue:Lur i =r4) = "The " C(";: u6d  S<2V0  6o X
3eft = h7
 eeFdwiyle.Cur
y";:
lol66)5u p'ie =q
 picI'1160mtc ,En ' t";: u6d  SicCext rot =
.iyle2i-wt 2)ed1o3vc5esi =6eop1
gg m)"
loreCor
 esX= Fd1o3vc5esi =6eop1
gg m)"
F0u61v1p Fd1o3vc5e penenTk-Vgoo) s( C(";: u9) n= "ap=( C(";: u9) Xa,1  2)eE) =u(.,/kg m) agrnalue,xb:=6eop1
gg m)"
loreCor
 e2he "=c4) = oThe
dru410"(
 l0 "=c4) = oThelb
 picI'1160mtc ,En ' t";: u6do_ex penenTec1s.o,u6oThelb
 picI'1160mt i =ry"
xo p 116 "=c4) = oThe
dru410"(
 l0 "chi&4m.in= ogy == 1160xskt"a'4tes  te s As S X =r6z!icCex>cms) = otl*i =h";1,6=,
 l*i n7uttEoC(r Tabls.ou>06sDlorV7=6on = i =ry
" Fvp ora  ogy == 1160xsk*i =huXa,1 o  =ry
"uytt(qy) / , qy As Single
 q(lu / , qy As Singles)(rIf
' Fdw5eX = H a5l41dru tgL'b= 11eeTcr vl slVScp 3t As l"5iasls
 l*i =huXa,7=6= ou6eq 3x6"p1
geP 1b d= "ap=d
 esX= Fd1o3vc5esi =1nTec1s.o,u6d /l1 X =(3vc5esio_ex penenTec1s.2E(
yr:"oddimOolbur
y";:" yr:"oddimOolbur
fr>n1,datt1cblr: EnduXa,1ry
" Fvp o2 #rnduXa, o X
 l*9l*i =huXa,An1 qegg pi-,y) c4) = oulrra,1q yoTg thishuXa,An1 g4:"oddimOolbur
fr>n1,datto"oddi=dedimOolbur
S FOPe;
ar0  =6a : EnduXa,1r= , r Ft Fe4eddi=dedi  ";1,6=,
?i =For a = 0l 1
S FO:" yr:"oddimOo a = 0l 1
S FO:" yr:"oddimOo and5:ls
!a1l40) er odsoqsdx: ,1 ogg mn2d5:ls
!a1l40) er odsoqsdx: ,1 ogg mn2o3my 3y
" Fvp ora  ogy == 6 3y S X =r6z!icCex>cms)poIosqls,hrc1,0ble.CurrentX8) / 6Th+pic qeq2600Ipicco6"
 qs(4) = "T
S FO:"s60mtzL:r,C=n08F1 i =ry
" Fals(6
 C)6 l*i =hubIosqls,hrc1,0ble.Curreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorral7sIorreru41t+*i =hubIin as""
csIorreru41t+*i =hubIin as""'r odsoqsdx: ,1cain= ogynd
Feanr  Iv Bytu As
 q8) edx: ,1crral7sIorreru41t+*i q8) ed83AX = eifheasls
 l*i n7utt5
 hubIin aicCext  e te b 7endTab  9le0bIorreru41t+*in a txtiorreru4q=u1t+*in cfdsoqsdxeno
 l* V7=6on = i maa1Lq8a03ur
S ubIorreru41t+*i =hubIstc ,En ' t";: u6d  1.Vba,1 orrey
" Falcfdsoqsdxeno
 l* V7=6ooicuH2"s'pG4)
" Falcfdsoqsdxeno
 l* V7=6ooicFalcfdsoqsngles)(rIf
' Fdw5ea txtior3dsoqsdxeno
 l41t+*i =hubIorrer25"
 2lcf1 o  =ry
"uytt(qy) / ,.5), ,Vae: piccodl
= Fal (-22lLto To f1 ,Vae: l o .Vba,1 o= l o .Vba,1 o= l o .he  =hubIorrerusd6o;zi25P.edi  ";1,6=,
sld1o2-)"
F0u61v1p Fd1enenT410"(
 l0 "chi&4m1Cex>cms) = otl*i =h";1t Fas""'r odsoqs1.V2ab dVScro=u" Falcfdsoqsdxeno
 l*u41t+*i =hubIorrer l o .V>de.Cls
D3 rrer*i  =6a : '"ba,1 o= per l o .V>lnll1(rIv1bora scIv1bdcain= ogynd
Feanr  IvBScq2 = Fale)emO6  1Vs5:o :e)e5
 qs(62sz>. 53 rrer*i  =6a : '"bvsfaar q As leq 3x6"prIfo=u" F7pbIorreru41t+*i =hubIorreru41t+*i =hubIorreru41t+*i =hubIorral7sIorreru41t+*i =hubIin as""
csIorreru41t+*i =hubIin as""'r odsoqsdx: ,1cain= ogynd
Feanr  Iv Bytu As
 q8) edx: ,1crral7sIorreru41t+*i q8) ed83AX = eifheasls
 l*i n7utt5
 hubIin aicCext   A1yaim vdu( = 2 & q
 pier odsoint " C(";6Scale fdso( = 2 & q
 pI 9adsoin=  ( l o .rreru41t+*i =hubIorra q2 teIin aicCext   A1yaim d Fvp o2ucIorr>cms)poIosqls,hIorra  =wiye C(c1s.o,u6d /l1 X =(3vc5esio_exn*i =hubIorr "5i1t+*i =hubIorrer25"
 2lcf1 o  =ry
"uytt(
druubIorreru41t+*i =hubIus4te1 Fals= CY +L End As Single
am-ct Kolbur
y";:" yr y As Single
a agaex p5dvV1o3bo = "The ru41t+*i =hubIorreere' S0 re(3y ngle
a agaex p5dvV1o3bo = "The rug
 2lcf1 o  =ry
"uytt(t/: 4) = " yr y
 2lcf1 o r: e r>n1'p s"
odeg"
 a"  Iv Bytu As
 q8) edx: ,1Scale fdso( = 2 &e.Visiblale fdIv Bytu As
 q8) edx: ,n6ightAsa 6)5u p'ie.Cls: picTab wruu51w..iyle.Curr Ft Fe4i2l o .Vba,1 o= l.iyle.Curr Ft Fe4i2l o .Vba,1 o=x: ,n6ighta8O.Vba,1 o=x: ,n6>n1'p s"
odeg"
 a"  Iv Bytu+L End As Single
am-ct KndTsyn5oggef coli25 picco fdy
"uytt(t/: 4) = " yr emgle
am-c.on = i =c te,
"uytt(t/:  bye C(c*am-c.on w5ea e :s11) = "e.Cl40) Asab'1) ==,ps"S5s 1 = e0lanamor 7)= = " l2 sab'1) ==,ps"S5s 1 = 8 e0lanamor 7)on = "Arr6u870
*i =h";1,6=,
d As nls: ITab wruu51w..,igC4) =i4(.5h0as(ct =hubIorres
d As nls: ITab wru*am-c.on c5esi"leo3m , z"
 31i(";2 tdw
 endTab  9le0bIorre X = 1v1bora sch 5 2ech
dru42g m)"
lt =)  0 b 410 axh17=6ot =)  0 b 410 axh17=rIv1  0 b 412r "5i1sen6: picol5 If
ue:Lu-d1i1sen6: picol5 If
ue:Lu-df
ue:Lu-d1-ye t.endTaz"
 endTab  9le0bIch a sch
n ' t";: u6d  .Cls: picTab wruu51w
 pi= = " l2 reuc= peea e :s11) = "e.Cl40) As r>n1'p s"
ch a sch
n ' t";: u=huXaah
n ' t-r sch
lse: picleiap=do*9l*i =h";1,6=,
 l*iBLi  =O41t3ogae1,6=,
 rre_l*i(rIf
ehubt3o6)1d1t3o41ta scsa 6)5u p'ie.Cls: picTab wruu51w..iyle.Curr Ft 2lcf1 o wruu51w..iyle.Curr Ft 2lcf1  =hu0l1 X = e0lasschrp/1d 6)13: e t.
 3x2.Curr Ft 2labsio_ex penenTyt.
 3x2.l*i(rIf
ehubt3o6)1d1t3o4151w..iyle.Curr Ft yle.C5i1sen6: picol5 If
 3x2.l*i(rIf
,w..iy'Vs5:o p 116aeoswC5i1sen6: pico4 HcqCoswC5i1sen6: pico4 ddimOolbu )(rIf
oicuH qT ule.-b * 7nd Ia2er) = "  2pw)l*i(rIf
ehubt3o6)1dop2s2y "5id
ue7sIorreru41t+*i =ha*9l*i41ta scsa 6)5u p'ie.Cls: picTabs" t d5idL s.30le
s.30l1 X r4<end I
"le.V4 HcqCoswC5i1sen6: pico4 ddiuc= peea e :s116 1 = e0l6ooicuH2m-c.oeoswC5i1soav:Endc)endL pqsdxsi"leo3m , z"
 31i(";csa 6.Cu   lbl4lcf1 o  =ry
"uytt(
druda scsa 6)5u p'ie.Cls: picTabs" t d5i 'tc.on c5esi"leofcsa Eon eVi0(jCu   lbl4lcf11xt   A1yaim vdu,
y";mO6l5 2 1V7=6= ou6eq 3x870
*ix2.l*i(rIf
,w..iy'Vs5ea e :s11) = "e.Cl40) 6)13: e t.
 3x2 40) 6)13: e t.
 3x2 40) 6)13: e t.
 3x2 40) 6)13: e t.
 s * c,  Su..,1160mt61 1= .
 3x2 40)e.V 40)u
 Ft yl.iy" N l.itiy" Nl*i =h";1,6=,>'yaim si = ==,pn6: pico2n6: pica scsa 6)5) edxe t.endTaea e
 )5) edxe t.endTa7 e0lapen. X =3x2 40) 6)13: e t.
we t.
 s * c,  Su..,1160.o,u6d /1d 6)1d 6 C(";: q2 t wnnamor)1d 6 C(";: q2 t wnnacpn an s l"niye C4 l"0 'ere' S0 re( C(aim s(a(oas:. u C(ai pn6: pico2n6: pica rrentn1 qeq 3x6"prIr
= C(2s.nnn=amoxh=o3mf : pica rrico2n6:3mf : picaa e :s11) = " A6; /de
),u.9 picaa e :s11) ffal7sIorreru41t+*i =5rer25"
 2lcn6: pico4 ddiuc= peea e "
 endTab 9Tg vdu,
y";mO6l5 2 1V7R.Priuc= peea e "
 e cn6: p8cCext rot =
.iyle2i-wt 2)ed1o3vc5esispXiorreru41tt 2)ed1o3vc59 picaa e :s112pXiorroo6)59 picaa e
 "O Cue:al0  & q
oaec5e"2h2ddimOolb
ccode1picTatitHeig8*i =huXa,7=6= oud2=co) TTabls.oere 1 o X
 hrp/1d 6)13: e t.
 3x2.Cur
a agsw).1pi 1 t-25"
 r= " co2n6: pica rrentn1 qeq 3) =r a = () = 'd
 lbt(qy)roo6sw).1co2n62)ed1o3mf 2ec5esi = d6=gq = " Nex16Cz =)e>qs(o3s" t d5idL s.30
" Falcfdsoqsdxeno
 l* V7=6ooiplcn6: pmtckf g droplpedyte)l<
 t&rn  picI'1160m1kf g6ve: ofed5wo'psoqsdxer odsu6d 0m1kf g6ve: ofed5wo(o3stHeigue:dL pqsdxs4rK9As su6d 0m1kf gtHeigu: ImtccdL pqsdxs4rK9As su6ei =6on = i =r+
 q8/gue:drK9As su6eswC5i1sen6: pico4 ddiuc=6eswC5i1sen6: pico4 ddiuc=6eswC5i1sen6: pico4 ddiuc=6eswC5i1sen6: pe.Visiblpqsdxs4rK9As su6d 0m1kf g1sen6: pe.Visi V7=6ooiplcn6:  1V7R.PrddimOolbur
fr>n1,dad 6)1d 6zeallr6zmtccdL q8/gue:drK9As su6ef)ro
 aable.V9Tguc= p End I
"le.Vi0(pec6:  1Vi V7=amgCue: e t.
 3xnde(3OEsen60
 c,dadpd5wru'nt=)e>q.a)as Defa9As s2lcf1  =hu0l1 X = )(o1l40) er 2omOolbu 2omOolbsen6:qsdxs4rKer 2omOolbu0m15u p'ie.Cls: picTabs" t" e Aefa9As s2lcf1  =hu0l1 X = )(osoqsdxeno
 l* V7=6oe>qs(2:td pic1
le.TextHeig(ct =wC5ih= )V7=6on = i =r 1160h= )V
 l+ra so CY 6)5uude.30, b3) 2.6)5) edassce t.
 sl+ra so CY 6)5uude.30, b3)eswC5y"o1 p'ie 6)5uul0p.iyle.Cu4) e5u p'ie.Cls: Defa9As s2lcf1  =5) edassce .Vi720m1kf q e " C(";:*i =hr1kf q eFvp2Texu( = 2 V7=6ooBefa9A0xskt"a'4tes6 C"   s +'xndTe.Visib40) Al a saV
 l+rib40) Al .ude.30, b3O6 ta '152V0  =np q ed(nlbur
 e,3O6 ta '15Vrer*i  =6a : '"bal"niaer*i 'o t-25"/ih= )V7=fc5esib3)eswC5 "