diff --git a/MMUD_Explorer.vbp b/MMUD_Explorer.vbp index 708e630..88589eb 100644 --- a/MMUD_Explorer.vbp +++ b/MMUD_Explorer.vbp @@ -1,5 +1,5 @@ Type=Exe -Reference=*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\Dao360.dll#Microsoft DAO 3.6 Object Library +Reference=*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0; MSCOMCTL.OCX @@ -47,7 +47,7 @@ HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=8 -RevisionVer=1 +RevisionVer=2 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="mudinfo.net" diff --git a/MMUD_Explorer.vbw b/MMUD_Explorer.vbw index fefeb74..8aac1ee 100644 --- a/MMUD_Explorer.vbw +++ b/MMUD_Explorer.vbw @@ -1,12 +1,12 @@ -frmMain = 440, 102, 1280, 703, , 173, 118, 1116, 776, C +frmMain = 440, 102, 1280, 703, C, 104, 19, 1187, 810, C modMain = 183, 231, 1326, 947, C frmLoad = 198, 261, 1058, 880, C, 176, 232, 1036, 851, C modSettings = 89, 117, 936, 739, C modWin32Ver = 132, 132, 711, 576, C -frmAbout = 78, 249, 937, 874, Z, 110, 110, 630, 554, C +frmAbout = 78, 249, 937, 874, C, 110, 110, 630, 554, C frmSettings = 132, 132, 652, 576, C, 110, 110, 630, 554, C -modMMudDatabase = 35, 63, 884, 678, -modMMudFunc = 17, 31, 876, 656, +modMMudDatabase = 35, 63, 884, 678, C +modMMudFunc = 17, 31, 876, 656, C modSyntaxsFunc = 221, 291, 1078, 914, C frmResults = 154, 154, 713, 598, C, 132, 132, 691, 576, C clsToolTip = 110, 145, 983, 655, C @@ -18,12 +18,12 @@ frmExpCalc = 88, 116, 898, 714, C, 154, 203, 964, 801, C frmProgressBar = 44, 44, 672, 511, C, 220, 220, 848, 687, C frmEditPreset = 198, 198, 822, 665, C, 176, 176, 804, 643, C cntSplitter = 110, 145, 897, 713, C, 66, 87, 853, 655, C -frmMap = 154, 154, 778, 621, , 216, 162, 1315, 629, C +frmMap = 154, 154, 778, 621, C, 216, 162, 1315, 629, C clsRegistryRoutines = 66, 87, 853, 655, C frmBSCalc = 132, 174, 1013, 768, C, 154, 203, 1035, 797, C -frmSwingCalc = 66, 66, 1050, 829, , 110, 110, 764, 578, C +frmSwingCalc = 66, 66, 1050, 829, C, 110, 110, 764, 578, C frmNotepad = 88, 88, 711, 555, C, 66, 66, 689, 533, C modMenuSubClass = 154, 203, 910, 771, C -clsMonsterAttackSim = 156, 156, 1427, 780, -frmMonsterAttackSim = 156, 156, 1546, 653, , 208, 208, 1531, 705, C -frmMegaMUDPath = 182, 182, 1505, 679, , 407, 30, 1305, 669, C +clsMonsterAttackSim = 156, 156, 1427, 780, C +frmMonsterAttackSim = 156, 156, 1546, 653, C, 208, 208, 1531, 705, C +frmMegaMUDPath = 182, 182, 1505, 679, C, 407, 30, 1305, 669, C diff --git a/README.md b/README.md index 4c8d547..284c0f5 100644 --- a/README.md +++ b/README.md @@ -2,6 +2,12 @@ MMUD Explorer is a database viewer for the game MajorMUD(r) created by syntax53. It has a unique comparing feature which allows you to easily compare weapons, armour, and spells. It also has a graphical room explorer in which you can 'walk' around the realm. Other features include an inventory calculator, exp calculator, explorers for monsters/shops/weapons/armour/spells/items/races/classes, saving/loading characters, and copying data to and from the clipboard. More info may be found here: http://www.mudinfo.net/viewforum.php?f=34 +v1.8.2 (10/27/2016) +------------------------------------------ +Monsters: +-UP: Re-Added filter and column for monster magical level + + v1.8.1 (8/21/2016) ------------------------------------------ Spells: diff --git a/frmHelpChangeLog.frx b/frmHelpChangeLog.frx index c55676c..ea14277 100644 Binary files a/frmHelpChangeLog.frx and b/frmHelpChangeLog.frx differ diff --git a/frmMain.frm b/frmMain.frm index 263a370..172d2d7 100644 --- a/frmMain.frm +++ b/frmMain.frm @@ -374,7 +374,7 @@ Begin VB.Form frmMain _ExtentY = 1270 End Begin VB.Frame framNav - Caption = "Spells" + Caption = "Monsters" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -385,255 +385,324 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 6735 - Index = 2 + Index = 8 Left = 60 - TabIndex = 794 + TabIndex = 639 Top = 1200 Visible = 0 'False Width = 13215 - Begin VB.CommandButton cmdSpellNote - Caption = "Note on Damage Columns" + Begin VB.TextBox txtMonMagic + Alignment = 2 'Center + Enabled = 0 'False + Height = 315 + Left = 7680 + MaxLength = 6 + TabIndex = 1196 + Text = "9999" + Top = 465 + Width = 495 + End + Begin VB.CheckBox chkMonMagic + Height = 255 + Left = 7380 + TabIndex = 1198 + Top = 480 + Width = 435 + End + Begin VB.CommandButton cmdMonsterAttackSim + Caption = "Open Attack Simulator" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 8.25 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Left = 4740 - TabIndex = 1195 - Top = 480 - Width = 2055 - End - Begin MMUD_Explorer.cntSplitter splSplitterNS - Height = 5115 - Index = 2 - Left = 120 - TabIndex = 795 - Top = 840 - Width = 10215 - _ExtentX = 18018 - _ExtentY = 9022 - Begin MSComctlLib.ListView lvSpells - Height = 2535 - Left = 0 - TabIndex = 796 - Tag = "STRETCHALL" - Top = 0 - Width = 10215 - _ExtentX = 18018 - _ExtentY = 4471 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MMUD_Explorer.cntSplitter splSplitterWE - Height = 1155 - Index = 2 - Left = 0 - TabIndex = 797 - Top = 3960 - Width = 10215 - _ExtentX = 18018 - _ExtentY = 2037 - Begin VB.TextBox txtSpellDetail - Height = 1155 - Left = 0 - Locked = -1 'True - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 798 - Top = 0 - Width = 4635 - End - Begin MSComctlLib.ListView lvSpellLoc - Height = 1155 - Left = 7080 - TabIndex = 799 - Top = 0 - Width = 3135 - _ExtentX = 5530 - _ExtentY = 2037 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - End - End - Begin VB.ComboBox cmbSpellContainsAbil - Height = 315 - ItemData = "frmMain.frx":0CCA - Left = 6900 - List = "frmMain.frx":0CCC - Sorted = -1 'True - Style = 2 'Dropdown List - TabIndex = 800 - Top = 480 - Width = 2055 - End - Begin VB.CommandButton cmdFilter - Caption = "&Remove Filter" Height = 555 - Index = 3 - Left = 12300 - TabIndex = 801 + Left = 9840 + TabIndex = 1185 Top = 240 - Width = 795 + Width = 1635 End - Begin VB.ComboBox cmbSpellAttackType - Height = 315 - ItemData = "frmMain.frx":0CCE - Left = 9060 - List = "frmMain.frx":0CD0 - Style = 2 'Dropdown List - TabIndex = 802 - Top = 480 - Width = 1095 + Begin VB.CheckBox chkMonsterDropCash + Caption = "Drops Cash" + Height = 255 + Left = 2760 + TabIndex = 1184 + Top = 240 + Width = 1215 End - Begin VB.CheckBox chkSpellLearnable - Caption = "Learnable Only" - Height = 195 - Left = 5040 - TabIndex = 803 - ToolTipText = "Learnable Only" - Top = 220 - Width = 1635 + Begin VB.TextBox txtMonsterEXP + Alignment = 2 'Center + Height = 315 + Left = 8340 + MaxLength = 14 + TabIndex = 1182 + Text = "0" + Top = 465 + Width = 1395 End - Begin VB.ComboBox cmbSpellTarget + Begin VB.ComboBox cmbMonsterRegen Height = 315 - ItemData = "frmMain.frx":0CD2 - Left = 10260 + ItemData = "frmMain.frx":0CCA + Left = 4080 List = "frmMain.frx":0CD4 Style = 2 'Dropdown List - TabIndex = 804 - Top = 480 - Width = 1095 + TabIndex = 1180 + Top = 465 + Width = 615 End - Begin VB.ComboBox cmbSpellMageryLevel + Begin VB.TextBox txtMonsterRegen + Alignment = 2 'Center Height = 315 - ItemData = "frmMain.frx":0CD6 - Left = 3780 - List = "frmMain.frx":0CD8 - Style = 2 'Dropdown List - TabIndex = 805 - Top = 480 - Width = 795 + Left = 4740 + MaxLength = 4 + TabIndex = 1179 + Text = "9999" + Top = 465 + Width = 495 End - Begin VB.ComboBox cmbSpellMagery + Begin VB.TextBox txtMonsterHP + Alignment = 2 'Center Height = 315 - Left = 2700 - Style = 2 'Dropdown List - TabIndex = 806 - Top = 480 - Width = 1035 - End - Begin VB.TextBox txtSpellFind - Height = 285 - Left = 120 - TabIndex = 807 - Top = 510 - Width = 2355 - End - Begin VB.CommandButton cmdFind - Caption = "&Find" - Height = 255 - Index = 0 - Left = 120 - TabIndex = 808 - Top = 240 - Width = 1155 + Left = 6360 + MaxLength = 6 + TabIndex = 1177 + Text = "999999" + Top = 465 + Width = 855 End - Begin VB.CommandButton cmdFind - Caption = "&Next" - Height = 255 - Index = 1 - Left = 1380 - TabIndex = 809 - Top = 240 - Width = 1095 + Begin VB.TextBox txtMonsterDamage + Alignment = 2 'Center + Height = 315 + Left = 5340 + MaxLength = 6 + TabIndex = 1175 + Text = "999999" + Top = 465 + Width = 915 End Begin VB.CommandButton cmdFilter Caption = "&Apply Filter" Height = 555 - Index = 2 + Index = 8 Left = 11580 - TabIndex = 810 + TabIndex = 1174 Top = 240 Width = 675 End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Contains Ability" - Height = 255 - Index = 28 - Left = 6900 - TabIndex = 811 + Begin VB.CommandButton cmdFilter + Caption = "&Remove Filter" + Height = 555 + Index = 9 + Left = 12300 + TabIndex = 1173 Top = 240 - Width = 2055 + Width = 795 End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Attack Type" + Begin VB.CheckBox chkMonstersNoRegenLookUp + Caption = "Hide Regen" Height = 255 - Index = 30 - Left = 9060 - TabIndex = 812 + Left = 2760 + TabIndex = 640 + Top = 540 + Width = 1215 + End + Begin VB.CommandButton cmdFind + Caption = "&Next" + Height = 255 + Index = 9 + Left = 1440 + TabIndex = 641 + Top = 540 + Width = 1155 + End + Begin VB.CommandButton cmdFind + Caption = "&Find" + Height = 255 + Index = 8 + Left = 120 + TabIndex = 642 + Top = 540 + Width = 1215 + End + Begin VB.TextBox txtMonsterFind + Height = 285 + Left = 120 + TabIndex = 643 Top = 240 - Width = 1095 + Width = 2175 + End + Begin VB.CommandButton cmdMonHelp + Caption = "?" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 2340 + TabIndex = 644 + Top = 240 + Width = 255 + End + Begin MMUD_Explorer.cntSplitter splMonsterSplit + Height = 5415 + Index = 0 + Left = 120 + TabIndex = 645 + Top = 840 + Width = 12975 + _ExtentX = 22886 + _ExtentY = 9551 + Begin MSComctlLib.ListView lvMonsterDetail + Height = 4995 + Left = 5580 + TabIndex = 646 + Tag = "STRETCHALL" + Top = 0 + Width = 4275 + _ExtentX = 7541 + _ExtentY = 8811 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MSComctlLib.ListView lvMonsters + Height = 4995 + Left = 0 + TabIndex = 647 + Tag = "STRETCHALL" + Top = 0 + Width = 5175 + _ExtentX = 9128 + _ExtentY = 8811 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + End + Begin VB.Label lblMonMagic + Alignment = 2 'Center + Caption = "Magic <=" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Left = 7320 + TabIndex = 1197 + Top = 240 + Width = 915 End Begin VB.Label lblLabelArray Alignment = 2 'Center - Caption = "Target" + Caption = "Experience >=" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty Height = 195 - Index = 15 - Left = 10320 - TabIndex = 813 + Index = 39 + Left = 8280 + TabIndex = 1183 Top = 240 - Width = 975 + Width = 1515 End Begin VB.Label lblLabelArray - Caption = "Level:" + Alignment = 2 'Center + Caption = "Regen" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty Height = 195 - Index = 13 - Left = 3780 - TabIndex = 814 + Index = 38 + Left = 4080 + TabIndex = 1181 Top = 240 - Width = 735 + Width = 1155 End Begin VB.Label lblLabelArray - Caption = "Magery:" + Alignment = 2 'Center + Caption = "HP <=" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty Height = 195 - Index = 14 - Left = 2700 - TabIndex = 815 + Index = 37 + Left = 6360 + TabIndex = 1178 Top = 240 - Width = 735 + Width = 855 + End + Begin VB.Label lblMonsterDamage + Alignment = 2 'Center + Caption = "DMG <=" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Left = 5340 + TabIndex = 1176 + Top = 240 + Width = 915 End End Begin VB.Frame framNav - Caption = "Armour" + Caption = "Weapons" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -644,217 +713,221 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 6735 - Index = 1 + Index = 0 Left = 60 - TabIndex = 44 + TabIndex = 26 Top = 1200 - Visible = 0 'False Width = 13215 - Begin VB.ComboBox cmbArmorAbilityList + Begin VB.ComboBox cmbWeaponAbilityOp Height = 315 - Left = 8580 - Sorted = -1 'True - TabIndex = 816 - Text = "cmbArmorAbilityList" + ItemData = "frmMain.frx":0CE0 + Left = 10380 + List = "frmMain.frx":0CEA + Style = 2 'Dropdown List + TabIndex = 970 Top = 480 - Width = 1635 + Width = 615 End - Begin VB.TextBox txtArmorAbilityVal + Begin VB.TextBox txtWeaponAbilityVal Height = 315 - Left = 10920 + Left = 11040 MaxLength = 4 - TabIndex = 817 + TabIndex = 971 Text = "1" Top = 480 Width = 495 End - Begin VB.ComboBox cmbArmorAbilityOp + Begin VB.ComboBox cmbWeaponAbilityList Height = 315 - ItemData = "frmMain.frx":0CDA - Left = 10260 - List = "frmMain.frx":0CE4 - Style = 2 'Dropdown List - TabIndex = 818 + Left = 8760 + Sorted = -1 'True + TabIndex = 972 + Text = "cmbWeaponAbilityList" Top = 480 - Width = 615 + Width = 1575 End Begin VB.CommandButton cmdFilter Caption = "&Remove Filter" Height = 555 - Index = 5 + Index = 7 Left = 12300 - TabIndex = 59 + TabIndex = 40 Top = 240 Width = 795 End - Begin VB.CheckBox chkArmourNonMagic + Begin VB.TextBox txtWeaponSpeed + Height = 315 + Left = 7080 + MaxLength = 6 + TabIndex = 37 + Text = "999999" + Top = 465 + Width = 675 + End + Begin VB.ComboBox cmbWeaponSpeed + Height = 315 + ItemData = "frmMain.frx":0CF6 + Left = 6420 + List = "frmMain.frx":0D00 + Style = 2 'Dropdown List + TabIndex = 36 + Top = 465 + Width = 615 + End + Begin VB.CheckBox chkWeaponNonMagical Caption = "Non-Magic" Height = 195 - Left = 5580 - TabIndex = 56 - Top = 540 - Width = 1095 + Left = 5280 + TabIndex = 35 + Top = 570 + Width = 1155 End - Begin VB.CheckBox chkArmourNoLimit - Caption = "No Limit" - Height = 195 - Left = 5580 - TabIndex = 55 - Top = 300 - Width = 975 - End - Begin VB.CheckBox chkArmourType - Caption = "Plate" + Begin VB.CheckBox chkWeaponStaffOnly + Caption = "Staff Only" Height = 195 - Index = 6 - Left = 4800 - TabIndex = 54 + Left = 4260 + TabIndex = 33 Top = 570 - Value = 1 'Checked - Width = 735 + Width = 1035 End - Begin VB.CheckBox chkArmourType - Caption = "Scale" + Begin VB.ComboBox cmbWeaponMagicLevel + Height = 315 + ItemData = "frmMain.frx":0D0C + Left = 7860 + List = "frmMain.frx":0D0E + Style = 2 'Dropdown List + TabIndex = 38 + Top = 465 + Width = 795 + End + Begin VB.CheckBox chkWeaponNoLimit + Caption = "No Limit" Height = 195 - Index = 5 - Left = 4020 - TabIndex = 53 - Top = 570 - Value = 1 'Checked - Width = 735 + Left = 5280 + TabIndex = 34 + Top = 330 + Width = 975 End - Begin VB.CheckBox chkArmourType - Caption = "Chain" + Begin VB.CheckBox chkBSAble + Caption = "BS'able" Height = 195 - Index = 4 - Left = 4020 - TabIndex = 52 - Top = 300 - Value = 1 'Checked - Width = 795 + Left = 4260 + TabIndex = 32 + Top = 330 + Width = 855 End - Begin VB.CheckBox chkArmourType - Caption = "Leather" + Begin VB.CheckBox chkHanded + Caption = "2H Sharp" Height = 195 Index = 3 - Left = 3120 - TabIndex = 51 + Left = 3240 + TabIndex = 31 Top = 570 Value = 1 'Checked - Width = 855 + Width = 1035 End - Begin VB.CheckBox chkArmourType - Caption = "Ninja" + Begin VB.CheckBox chkHanded + Caption = "1H Sharp" Height = 195 Index = 2 - Left = 3120 - TabIndex = 50 - Top = 300 + Left = 2220 + TabIndex = 29 + Top = 570 Value = 1 'Checked - Width = 795 + Width = 1035 End - Begin VB.CheckBox chkArmourType - Caption = "Silk" + Begin VB.CheckBox chkHanded + Caption = "2H Blunt" Height = 195 Index = 1 - Left = 2220 - TabIndex = 49 - Top = 570 + Left = 3240 + TabIndex = 30 + Top = 330 Value = 1 'Checked - Width = 675 + Width = 1035 End - Begin VB.CheckBox chkArmourType - Caption = "Natural" + Begin VB.CheckBox chkHanded + Caption = "1H Blunt" Height = 195 Index = 0 Left = 2220 - TabIndex = 48 - Top = 300 + TabIndex = 28 + Top = 330 Value = 1 'Checked - Width = 855 - End - Begin VB.ComboBox cmbArmourWorn - Height = 315 - Left = 6780 - Sorted = -1 'True - Style = 2 'Dropdown List - TabIndex = 57 - Top = 480 - Width = 1695 + Width = 1035 End Begin VB.CommandButton cmdFilter Caption = "&Apply Filter" Height = 555 - Index = 4 + Index = 6 Left = 11580 - TabIndex = 58 + TabIndex = 39 Top = 240 Width = 675 End - Begin VB.TextBox txtArmourFind - Height = 285 - Left = 120 - TabIndex = 45 - Top = 510 - Width = 1995 - End Begin VB.CommandButton cmdFind - Caption = "&Find" + Caption = "&Next" Height = 255 - Index = 2 - Left = 120 - TabIndex = 46 + Index = 5 + Left = 1140 + TabIndex = 24 Top = 240 Width = 975 End Begin VB.CommandButton cmdFind - Caption = "&Next" + Caption = "&Find" Height = 255 - Index = 3 - Left = 1140 - TabIndex = 47 + Index = 4 + Left = 120 + TabIndex = 23 Top = 240 Width = 975 End + Begin VB.TextBox txtWeaponFind + Height = 285 + Left = 120 + TabIndex = 22 + Top = 510 + Width = 1995 + End Begin MMUD_Explorer.cntSplitter splSplitterNS Height = 5115 - Index = 1 + Index = 0 Left = 120 - TabIndex = 819 + TabIndex = 973 Top = 840 Width = 10215 _ExtentX = 18018 _ExtentY = 9022 Begin MMUD_Explorer.cntSplitter splSplitterWE Height = 975 - Index = 1 + Index = 0 Left = 0 - TabIndex = 820 + TabIndex = 974 Top = 4140 - Width = 10095 - _ExtentX = 17806 + Width = 10215 + _ExtentX = 18018 _ExtentY = 1720 - Begin VB.TextBox txtArmourDetail + Begin VB.TextBox txtWeaponDetail Height = 975 Left = 0 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical - TabIndex = 61 + TabIndex = 42 Top = 0 - Width = 2895 + Width = 4035 End - Begin MSComctlLib.ListView lvArmourLoc + Begin MSComctlLib.ListView lvWeaponLoc Height = 975 - Left = 6180 - TabIndex = 821 + Left = 6660 + TabIndex = 43 Top = 0 - Width = 3915 - _ExtentX = 6906 + Width = 3555 + _ExtentX = 6271 _ExtentY = 1720 View = 3 LabelEdit = 1 - SortOrder = -1 'True LabelWrap = -1 'True HideSelection = -1 'True FullRowSelect = -1 'True @@ -866,15 +939,15 @@ Begin VB.Form frmMain NumItems = 0 End End - Begin MSComctlLib.ListView lvArmour - Height = 1815 + Begin MSComctlLib.ListView lvWeapons + Height = 3735 Left = 0 - TabIndex = 60 + TabIndex = 41 Tag = "STRETCHALL" Top = 0 - Width = 5775 - _ExtentX = 10186 - _ExtentY = 3201 + Width = 2835 + _ExtentX = 5001 + _ExtentY = 6588 View = 3 LabelEdit = 1 Sorted = -1 'True @@ -904,15 +977,15 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 195 - Index = 12 - Left = 8580 - TabIndex = 822 + Index = 11 + Left = 8760 + TabIndex = 975 Top = 240 - Width = 2835 + Width = 2775 End Begin VB.Label lblLabelArray Alignment = 2 'Center - Caption = "Worn On" + Caption = "Speed" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -923,15 +996,34 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 195 - Index = 16 - Left = 6780 - TabIndex = 823 + Index = 17 + Left = 6420 + TabIndex = 25 Top = 240 - Width = 1695 + Width = 1335 + End + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Magic LVL" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Index = 18 + Left = 7800 + TabIndex = 27 + Top = 240 + Width = 975 End End Begin VB.Frame framNav - Caption = "Equipment" + Caption = "Rooms" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -942,2998 +1034,921 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 6735 - Index = 4 + Index = 10 Left = 60 - TabIndex = 824 + TabIndex = 208 Top = 1200 Visible = 0 'False Width = 13215 - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 16 - Left = 4140 - TabIndex = 825 - Top = 6300 - Width = 255 + Begin VB.TextBox txtMapMove + BackColor = &H00000000& + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 615 + Left = 120 + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 1187 + Top = 6000 + Width = 3195 End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 15 - Left = 4140 - TabIndex = 826 + Begin VB.CommandButton cmdMegaMUDPathing + Caption = "Open MegaMUD Pathing Window" + Height = 615 + Left = 3480 + TabIndex = 1186 Top = 6000 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 14 - Left = 4140 - TabIndex = 827 - Top = 5700 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 13 - Left = 4140 - TabIndex = 828 - Top = 5400 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 12 - Left = 4140 - TabIndex = 829 - Top = 5100 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 11 - Left = 4140 - TabIndex = 830 - Top = 4800 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 10 - Left = 4140 - TabIndex = 831 - Top = 4500 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 9 - Left = 4140 - TabIndex = 832 - Top = 4200 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 8 - Left = 4140 - TabIndex = 833 - Top = 3900 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 7 - Left = 4140 - TabIndex = 834 - Top = 3600 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 6 - Left = 4140 - TabIndex = 835 - Top = 3300 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 5 - Left = 4140 - TabIndex = 836 - Top = 3000 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 4 - Left = 4140 - TabIndex = 837 - Top = 2700 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 3 - Left = 4140 - TabIndex = 838 - Top = 2400 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 2 - Left = 4140 - TabIndex = 839 - Top = 2100 - Width = 255 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 0 - ItemData = "frmMain.frx":0CF0 - Left = 1260 - List = "frmMain.frx":0CF2 - Sorted = -1 'True - TabIndex = 840 - Text = "cmbEquip" - Top = 900 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 1 - ItemData = "frmMain.frx":0CF4 - Left = 1260 - List = "frmMain.frx":0CF6 - Sorted = -1 'True - TabIndex = 841 - Text = "cmbEquip" - Top = 1200 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 17 - ItemData = "frmMain.frx":0CF8 - Left = 1260 - List = "frmMain.frx":0CFA - Sorted = -1 'True - TabIndex = 842 - Text = "cmbEquip" - Top = 1500 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 18 - ItemData = "frmMain.frx":0CFC - Left = 1260 - List = "frmMain.frx":0CFE - Sorted = -1 'True - TabIndex = 843 - Text = "cmbEquip" - Top = 1800 - Width = 2835 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 18 - Left = 4140 - TabIndex = 844 - Top = 1800 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 17 - Left = 4140 - TabIndex = 845 - Top = 1500 - Width = 255 - End - Begin VB.CheckBox chkEquipHold - Caption = "Face" - Height = 195 - Index = 18 - Left = 120 - TabIndex = 846 - Top = 1860 - Width = 1035 + Width = 3855 End - Begin VB.CheckBox chkEquipHold - Caption = "Eyes" - Height = 195 - Index = 17 + Begin VB.PictureBox picMap + Appearance = 0 'Flat + AutoRedraw = -1 'True + BackColor = &H00000000& + ForeColor = &H80000008& + Height = 5565 Left = 120 - TabIndex = 847 - Top = 1560 - Width = 1035 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 2 - ItemData = "frmMain.frx":0D00 - Left = 1260 - List = "frmMain.frx":0D02 - Sorted = -1 'True - TabIndex = 848 - Text = "cmbEquip" - Top = 2100 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 3 - ItemData = "frmMain.frx":0D04 - Left = 1260 - List = "frmMain.frx":0D06 - Sorted = -1 'True - TabIndex = 849 - Text = "cmbEquip" - Top = 2400 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 4 - ItemData = "frmMain.frx":0D08 - Left = 1260 - List = "frmMain.frx":0D0A - Sorted = -1 'True - TabIndex = 850 - Text = "cmbEquip" - Top = 2700 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 5 - ItemData = "frmMain.frx":0D0C - Left = 1260 - List = "frmMain.frx":0D0E - Sorted = -1 'True - TabIndex = 851 - Text = "cmbEquip" - Top = 3000 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 6 - ItemData = "frmMain.frx":0D10 - Left = 1260 - List = "frmMain.frx":0D12 - Sorted = -1 'True - TabIndex = 852 - Text = "cmbEquip" - Top = 3300 - Width = 2835 - End - Begin VB.CheckBox chkEquipHold - Caption = "Wrist" - Height = 195 - Index = 6 - Left = 120 - TabIndex = 853 - Top = 3360 - Width = 1035 - End - Begin VB.CheckBox chkInvenHideCharStats - Caption = "Hide Character Specific Stats" - Height = 195 - Left = 7740 - TabIndex = 854 - Top = 900 - Width = 2535 - End - Begin VB.CommandButton cmdInvenAdditionalWeight - Caption = "Additional Item Weight" - Height = 435 - Left = 4800 - TabIndex = 855 - Top = 1620 - Width = 2055 - End - Begin VB.CommandButton cmdResetFonts - Caption = "Reset Fonts" - Height = 375 - Left = 4800 - TabIndex = 856 - Top = 4560 - Width = 2055 - End - Begin VB.CommandButton cmdInvenSetStatFont - Caption = "Stat Font" - Height = 375 - Left = 4800 - TabIndex = 857 - Top = 4140 - Width = 2055 - End - Begin VB.CommandButton cmdInvenEmptyLists - Caption = "?" - Height = 375 - Index = 1 - Left = 6540 - TabIndex = 858 - Top = 3060 - Width = 315 - End - Begin VB.CommandButton cmdInvenEmptyLists - Caption = "Empty Lists" - Height = 375 - Index = 0 - Left = 4800 - TabIndex = 859 - Top = 3060 - Width = 1695 - End - Begin VB.CommandButton cmdInvenCompareAll - Caption = "Add All to &Compare" - Height = 555 - Left = 4800 - TabIndex = 860 - Top = 2280 - Width = 2055 - End - Begin VB.CheckBox chkInvenAddWeight - Caption = "Use Additional Weight:" - Height = 255 - Left = 4800 - TabIndex = 861 - Top = 900 - Width = 2055 - End - Begin VB.TextBox txtInvenAddWeight - Alignment = 2 'Center - Height = 345 - Left = 4800 - TabIndex = 862 - Top = 1200 - Width = 2055 - End - Begin VB.CommandButton cmdInvenModStrength - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 1 - Left = 12540 - TabIndex = 863 - Top = 840 - Width = 315 - End - Begin VB.CommandButton cmdInvenModStrength - Caption = "-" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 0 - Left = 12240 - TabIndex = 864 - Top = 840 - Width = 315 - End - Begin VB.CommandButton cmdInvenNextBest - Caption = "Ne&xt Best" - Height = 375 - Left = 6420 - TabIndex = 865 - Top = 180 - Width = 1095 - End - Begin VB.PictureBox picStats - Appearance = 0 'Flat - AutoRedraw = -1 'True - BackColor = &H00000000& - ForeColor = &H80000008& - Height = 4695 - Left = 7680 - ScaleHeight = 311 + ScaleHeight = 369 ScaleMode = 3 'Pixel - ScaleWidth = 343 - TabIndex = 866 - Top = 1200 - Width = 5175 - Begin VB.TextBox txtStat + ScaleWidth = 481 + TabIndex = 257 + Top = 180 + Width = 7245 + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 3 - Left = 2820 - Locked = -1 'True - MaxLength = 5 - TabIndex = 867 - TabStop = 0 'False - Text = "0" - Top = 420 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 511 + Left = 60 + TabIndex = 1155 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat - Alignment = 1 'Right Justify + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 2 - Left = 1740 - Locked = -1 'True - MaxLength = 5 - TabIndex = 868 - TabStop = 0 'False - Text = "0" - Top = 420 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 512 + Left = 300 + TabIndex = 1154 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 4 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 869 - TabStop = 0 'False - Text = "0" - Top = 2595 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 513 + Left = 540 + TabIndex = 1153 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 5 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 870 - TabStop = 0 'False - Text = "0" - Top = 795 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 514 + Left = 780 + TabIndex = 1152 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 6 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 871 - TabStop = 0 'False - Text = "0" - Top = 1095 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 515 + Left = 1020 + TabIndex = 1151 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 7 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 872 - TabStop = 0 'False - Text = "0" - Top = 1395 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 516 + Left = 1260 + TabIndex = 1150 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 8 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 873 - TabStop = 0 'False - Text = "0" - Top = 1695 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 517 + Left = 1500 + TabIndex = 1149 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 9 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 874 - TabStop = 0 'False - Text = "0" - Top = 1995 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 518 + Left = 1740 + TabIndex = 1148 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 10 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 875 - TabStop = 0 'False - Text = "0" - Top = 2295 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 519 + Left = 1980 + TabIndex = 1147 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 11 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 876 - TabStop = 0 'False - Text = "0" - Top = 1395 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 520 + Left = 2220 + TabIndex = 1146 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 12 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 877 - TabStop = 0 'False - Text = "0" - Top = 2595 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 521 + Left = 2460 + TabIndex = 1145 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 13 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 878 - TabStop = 0 'False - Text = "0" - Top = 2295 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 522 + Left = 2700 + TabIndex = 1144 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 14 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 879 - TabStop = 0 'False - Text = "0" - Top = 1695 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 523 + Left = 2940 + TabIndex = 1143 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 16 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 880 - TabStop = 0 'False - Text = "0" - Top = 795 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 524 + Left = 3180 + TabIndex = 1142 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 17 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 881 - TabStop = 0 'False - Text = "0" - Top = 1095 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 525 + Left = 3420 + TabIndex = 1141 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 18 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 882 - TabStop = 0 'False - Text = "0" - Top = 2895 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 526 + Left = 3660 + TabIndex = 1140 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 19 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 883 - TabStop = 0 'False - Text = "0" - Top = 3195 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 527 + Left = 3900 + TabIndex = 1139 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 20 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 884 - TabStop = 0 'False - Text = "0" - Top = 3495 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 528 + Left = 4140 + TabIndex = 1138 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 21 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 885 - TabStop = 0 'False - Text = "0" - Top = 3795 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 529 + Left = 4380 + TabIndex = 1137 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 22 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 886 - TabStop = 0 'False - Text = "0" - Top = 4095 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 530 + Left = 4620 + TabIndex = 1136 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 25 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 887 - TabStop = 0 'False - Text = "0" - Top = 3195 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 531 + Left = 4860 + TabIndex = 1135 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 26 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 888 - TabStop = 0 'False - Text = "0" - Top = 3495 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 532 + Left = 5100 + TabIndex = 1134 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 27 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 889 - TabStop = 0 'False - Text = "0" - Top = 3795 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 533 + Left = 5340 + TabIndex = 1133 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 28 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 890 - TabStop = 0 'False - Text = "0" - Top = 4095 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 534 + Left = 5580 + TabIndex = 1132 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 29 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 891 - TabStop = 0 'False - Text = "0" - Top = 4395 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 535 + Left = 5820 + TabIndex = 1131 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 23 - Left = 1560 - Locked = -1 'True - MaxLength = 5 - TabIndex = 892 - TabStop = 0 'False - Text = "0" - Top = 4395 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 536 + Left = 6060 + TabIndex = 1130 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 24 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 893 - TabStop = 0 'False - Text = "0" - Top = 2895 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 537 + Left = 6300 + TabIndex = 1129 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 15 - Left = 4320 - Locked = -1 'True - MaxLength = 5 - TabIndex = 894 - TabStop = 0 'False - Text = "0" - Top = 1995 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 538 + Left = 6540 + TabIndex = 1128 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 1 - Left = 2820 - Locked = -1 'True - MaxLength = 7 - TabIndex = 895 - TabStop = 0 'False - Text = "0" - Top = 60 - Width = 735 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 539 + Left = 6780 + TabIndex = 1127 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.TextBox txtStat - Alignment = 1 'Right Justify + Begin VB.Label lblRoomCell Appearance = 0 'Flat - BackColor = &H00000000& - BorderStyle = 0 'None - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 290 - Index = 0 - Left = 1740 - Locked = -1 'True - MaxLength = 7 - TabIndex = 896 - TabStop = 0 'False - Text = "0" - Top = 60 - Width = 795 + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 540 + Left = 7020 + TabIndex = 1126 + Top = 4140 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenSlash - Alignment = 1 'Right Justify - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "/" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 300 - Index = 1 - Left = 2610 - TabIndex = 897 - Top = 420 - Width = 150 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 541 + Left = 60 + TabIndex = 1125 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Armour Class:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 3 - Left = 120 - TabIndex = 898 - Top = 435 - Width = 1560 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 542 + Left = 300 + TabIndex = 1124 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblEncumLevel - Alignment = 2 'Center - BackColor = &H00000000& - Caption = "None (0%)" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 600 - Index = 1 - Left = 3600 - TabIndex = 899 - Top = 135 - Width = 1560 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 543 + Left = 540 + TabIndex = 1123 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Picklocks:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 22 - Left = 120 - TabIndex = 900 - Top = 4095 - Width = 1200 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 544 + Left = 780 + TabIndex = 1122 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Traps:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 21 - Left = 120 - TabIndex = 901 - Top = 3795 - Width = 720 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 545 + Left = 1020 + TabIndex = 1121 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Prot Evil:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 20 - Left = 120 - TabIndex = 902 - Top = 3495 - Width = 1200 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 546 + Left = 1260 + TabIndex = 1120 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Stealth:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 19 - Left = 120 - TabIndex = 903 - Top = 3195 - Width = 960 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 547 + Left = 1500 + TabIndex = 1119 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Perception:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 18 - Left = 120 - TabIndex = 904 - Top = 2895 - Width = 1320 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 548 + Left = 1740 + TabIndex = 1118 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "SpellCast:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 9 - Left = 120 - TabIndex = 905 - Top = 1995 - Width = 1200 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 549 + Left = 1980 + TabIndex = 1117 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Mana:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 6 - Left = 120 - TabIndex = 906 - Top = 1095 - Width = 600 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 550 + Left = 2220 + TabIndex = 1116 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "HitPoints:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 5 - Left = 120 - TabIndex = 907 - Top = 795 - Width = 1200 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 551 + Left = 2460 + TabIndex = 1115 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Max Damage:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 11 - Left = 2400 - TabIndex = 908 - Top = 1395 - Width = 1320 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 552 + Left = 2700 + TabIndex = 1114 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Magic Resist:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 24 - Left = 2400 - TabIndex = 909 - Top = 2895 - Width = 1560 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 553 + Left = 2940 + TabIndex = 1113 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Lightning Res.:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 29 - Left = 2400 - TabIndex = 910 - Top = 4395 - Width = 1800 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 554 + Left = 3180 + TabIndex = 1112 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Accuracy:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 10 - Left = 120 - TabIndex = 911 - Top = 2295 - Width = 1080 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 555 + Left = 3420 + TabIndex = 1111 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Crits:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 7 - Left = 120 - TabIndex = 912 - Top = 1410 - Width = 720 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 556 + Left = 3660 + TabIndex = 1110 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Dodge:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 8 - Left = 120 - TabIndex = 913 - Top = 1710 - Width = 720 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 557 + Left = 3900 + TabIndex = 1109 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Illuminatn:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 23 - Left = 120 - TabIndex = 914 - Top = 4395 - Width = 1320 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 558 + Left = 4140 + TabIndex = 1108 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Water Resist:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 26 - Left = 2400 - TabIndex = 915 - Top = 3495 - Width = 1560 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 559 + Left = 4380 + TabIndex = 1107 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Fire Resist:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 27 - Left = 2400 - TabIndex = 916 - Top = 3795 - Width = 1440 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 560 + Left = 4620 + TabIndex = 1106 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Stone Resist:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 25 - Left = 2400 - TabIndex = 917 - Top = 3195 - Width = 1560 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 561 + Left = 4860 + TabIndex = 1105 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "HitPoint Regen:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 16 - Left = 2400 - TabIndex = 918 - Top = 795 - Width = 1800 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 562 + Left = 5100 + TabIndex = 1104 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "BS Accuracy:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 13 - Left = 2400 - TabIndex = 919 - Top = 2295 - Width = 1440 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 563 + Left = 5340 + TabIndex = 1103 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "BS Min Damage:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 14 - Left = 2400 - TabIndex = 920 - Top = 1695 - Width = 1680 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 564 + Left = 5580 + TabIndex = 1102 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "BS Max Damage:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 15 - Left = 2400 - TabIndex = 921 - Top = 1995 - Width = 1680 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 565 + Left = 5820 + TabIndex = 1101 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Cold Resist:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 28 - Left = 2400 - TabIndex = 922 - Top = 4095 - Width = 1440 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 566 + Left = 6060 + TabIndex = 1100 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Mana Regen:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 17 - Left = 2400 - TabIndex = 923 - Top = 1095 - Width = 1320 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 567 + Left = 6300 + TabIndex = 1099 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Shield Damage:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 12 - Left = 2400 - TabIndex = 924 - Top = 2595 - Width = 1680 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 568 + Left = 6540 + TabIndex = 1098 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Encum.:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 4 - Left = 120 - TabIndex = 925 - Top = 2595 - Width = 840 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 569 + Left = 6780 + TabIndex = 1097 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenSlash - Alignment = 1 'Right Justify - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "/" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H00C0C000& - Height = 300 - Index = 0 - Left = 2610 - TabIndex = 926 - Top = 60 - Width = 150 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 570 + Left = 7020 + TabIndex = 1096 + Top = 4380 + Visible = 0 'False + Width = 135 End - Begin VB.Label lblInvenStats - AutoSize = -1 'True - BackColor = &H00000000& - Caption = "Encumbrance:" - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 180 - Index = 2 - Left = 120 - TabIndex = 927 - Top = 75 - Width = 1440 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 571 + Left = 60 + TabIndex = 1095 + Top = 4620 + Visible = 0 'False + Width = 135 End - End - Begin VB.CommandButton cmdEquipCheckAll - Caption = "None" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 1 - Left = 1860 - TabIndex = 928 - Top = 690 - Width = 615 - End - Begin VB.CommandButton cmdEquipCheckAll - Caption = "All" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 0 - Left = 1275 - TabIndex = 929 - Top = 690 - Width = 555 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 7 - ItemData = "frmMain.frx":0D14 - Left = 1260 - List = "frmMain.frx":0D16 - Sorted = -1 'True - TabIndex = 930 - Text = "cmbEquip" - Top = 3600 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 8 - ItemData = "frmMain.frx":0D18 - Left = 1260 - List = "frmMain.frx":0D1A - Sorted = -1 'True - TabIndex = 931 - Text = "cmbEquip" - Top = 3900 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 9 - ItemData = "frmMain.frx":0D1C - Left = 1260 - List = "frmMain.frx":0D1E - Sorted = -1 'True - TabIndex = 932 - Text = "cmbEquip" - Top = 4200 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 10 - ItemData = "frmMain.frx":0D20 - Left = 1260 - List = "frmMain.frx":0D22 - Sorted = -1 'True - TabIndex = 933 - Text = "cmbEquip" - Top = 4500 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 11 - ItemData = "frmMain.frx":0D24 - Left = 1260 - List = "frmMain.frx":0D26 - Sorted = -1 'True - TabIndex = 934 - Text = "cmbEquip" - Top = 4800 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 12 - ItemData = "frmMain.frx":0D28 - Left = 1260 - List = "frmMain.frx":0D2A - Sorted = -1 'True - TabIndex = 935 - Text = "cmbEquip" - Top = 5100 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 13 - ItemData = "frmMain.frx":0D2C - Left = 1260 - List = "frmMain.frx":0D2E - Sorted = -1 'True - TabIndex = 936 - Text = "cmbEquip" - Top = 5400 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 14 - ItemData = "frmMain.frx":0D30 - Left = 1260 - List = "frmMain.frx":0D32 - Sorted = -1 'True - TabIndex = 937 - Text = "cmbEquip" - Top = 5700 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 15 - ItemData = "frmMain.frx":0D34 - Left = 1260 - List = "frmMain.frx":0D36 - Sorted = -1 'True - TabIndex = 938 - Text = "cmbEquip" - Top = 6000 - Width = 2835 - End - Begin VB.ComboBox cmbEquip - Height = 315 - Index = 16 - ItemData = "frmMain.frx":0D38 - Left = 1260 - List = "frmMain.frx":0D3A - Sorted = -1 'True - TabIndex = 939 - Text = "cmbEquip" - Top = 6300 - Width = 2835 - End - Begin VB.CheckBox chkEquipHold - Caption = "Weapon" - Height = 195 - Index = 16 - Left = 120 - TabIndex = 940 - Top = 6360 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Off-Hand" - ForeColor = &H00000000& - Height = 195 - Index = 15 - Left = 120 - TabIndex = 941 - Top = 6060 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Worn" - Height = 195 - Index = 14 - Left = 120 - TabIndex = 942 - Top = 5760 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Feet" - Height = 195 - Index = 13 - Left = 120 - TabIndex = 943 - Top = 5460 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Legs" - Height = 195 - Index = 12 - Left = 120 - TabIndex = 944 - Top = 5160 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Finger" - Height = 195 - Index = 10 - Left = 120 - TabIndex = 945 - Top = 4560 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Finger" - Height = 195 - Index = 9 - Left = 120 - TabIndex = 946 - Top = 4260 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Hands" - Height = 195 - Index = 8 - Left = 120 - TabIndex = 947 - Top = 3960 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Waist" - Height = 195 - Index = 11 - Left = 120 - TabIndex = 948 - Top = 4860 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Wrist" - Height = 195 - Index = 7 - Left = 120 - TabIndex = 949 - Top = 3660 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Arms" - Height = 195 - Index = 5 - Left = 120 - TabIndex = 950 - Top = 3060 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Torso" - Height = 195 - Index = 4 - Left = 120 - TabIndex = 951 - Top = 2760 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Back" - Height = 195 - Index = 3 - Left = 120 - TabIndex = 952 - Top = 2460 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Neck" - Height = 195 - Index = 2 - Left = 120 - TabIndex = 953 - Top = 2160 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Ears" - Height = 195 - Index = 1 - Left = 120 - TabIndex = 954 - Top = 1260 - Width = 1035 - End - Begin VB.CheckBox chkEquipHold - Caption = "Head" - Height = 195 - Index = 0 - Left = 120 - TabIndex = 955 - Top = 960 - Width = 1035 - End - Begin VB.CommandButton cmdInvenClipboard - Caption = "Cop&y to Clipboard" - Height = 555 - Left = 4800 - TabIndex = 956 - Top = 5340 - Width = 2055 - End - Begin VB.CommandButton cmdInvenPasteChar - Caption = "&Paste Character.." - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 375 - Index = 0 - Left = 10980 - TabIndex = 957 - Top = 180 - Width = 2115 - End - Begin VB.CheckBox chkInvenNoLimited - Caption = "Non- &Limiteds" - Height = 315 - Left = 7680 - TabIndex = 958 - ToolTipText = "Non-Limiteds" - Top = 240 - Width = 1275 - End - Begin VB.CommandButton cmdFilter - Caption = "Re&move Filter" - Height = 315 - Index = 1 - Left = 1980 - TabIndex = 959 - Top = 240 - Width = 1575 - End - Begin VB.CommandButton cmdFilter - Caption = "&Apply Global Filter" - Height = 315 - Index = 0 - Left = 120 - TabIndex = 960 - Top = 240 - Width = 1755 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 1 - Left = 4140 - TabIndex = 961 - Top = 1200 - Width = 255 - End - Begin VB.CommandButton cmdEquipGoto - Caption = ">" - Height = 315 - Index = 0 - Left = 4140 - TabIndex = 962 - Top = 900 - Width = 255 - End - Begin VB.TextBox txtInvenStrength - Alignment = 2 'Center - Height = 285 - Left = 11400 - MaxLength = 4 - TabIndex = 963 - Text = "100" - Top = 840 - Width = 795 - End - Begin VB.CommandButton cmdInvenFindBest - Caption = "&Find Best..." - Height = 375 - Left = 5160 - TabIndex = 964 - Top = 180 - Width = 1155 - End - Begin VB.CommandButton cmdInvenReset - Caption = "&Reset" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 375 - Left = 3720 - TabIndex = 965 - Top = 180 - Width = 1275 - End - Begin VB.CommandButton cmdSetInvenLabelFont - Caption = "Label Font" - Height = 375 - Left = 4800 - TabIndex = 966 - Top = 3720 - Width = 2055 - End - Begin VB.Line Line1 - BorderWidth = 2 - X1 = 120 - X2 = 13080 - Y1 = 600 - Y2 = 600 - End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Jump" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 165 - Index = 7 - Left = 4080 - TabIndex = 967 - Top = 660 - Width = 345 - End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Hold" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 165 - Index = 8 - Left = 60 - TabIndex = 968 - Top = 720 - Width = 300 - End - Begin VB.Label lblLabelArray - Caption = "Strength:" - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 9 - Left = 10380 - TabIndex = 969 - Top = 870 - Width = 1095 - End - End - Begin VB.Frame framNav - Caption = "Monsters" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 6735 - Index = 8 - Left = 60 - TabIndex = 639 - Top = 1200 - Visible = 0 'False - Width = 13215 - Begin VB.CommandButton cmdMonsterAttackSim - Caption = "Open Attack Simulator" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 555 - Left = 9660 - TabIndex = 1185 - Top = 240 - Width = 1635 - End - Begin VB.CheckBox chkMonsterDropCash - Caption = "Drops Cash" - Height = 255 - Left = 2760 - TabIndex = 1184 - Top = 240 - Width = 1635 - End - Begin VB.TextBox txtMonsterEXP - Alignment = 2 'Center - Height = 315 - Left = 7860 - MaxLength = 14 - TabIndex = 1182 - Text = "0" - Top = 465 - Width = 1395 - End - Begin VB.ComboBox cmbMonsterRegen - Height = 315 - ItemData = "frmMain.frx":0D3C - Left = 4620 - List = "frmMain.frx":0D46 - Style = 2 'Dropdown List - TabIndex = 1180 - Top = 465 - Width = 615 - End - Begin VB.TextBox txtMonsterRegen - Alignment = 2 'Center - Height = 315 - Left = 5280 - MaxLength = 4 - TabIndex = 1179 - Text = "9999" - Top = 465 - Width = 495 - End - Begin VB.TextBox txtMonsterHP - Alignment = 2 'Center - Height = 315 - Left = 6900 - MaxLength = 6 - TabIndex = 1177 - Text = "999999" - Top = 465 - Width = 855 - End - Begin VB.TextBox txtMonsterDamage - Alignment = 2 'Center - Height = 315 - Left = 5880 - MaxLength = 6 - TabIndex = 1175 - Text = "999999" - Top = 465 - Width = 915 - End - Begin VB.CommandButton cmdFilter - Caption = "&Apply Filter" - Height = 555 - Index = 8 - Left = 11580 - TabIndex = 1174 - Top = 240 - Width = 675 - End - Begin VB.CommandButton cmdFilter - Caption = "&Remove Filter" - Height = 555 - Index = 9 - Left = 12300 - TabIndex = 1173 - Top = 240 - Width = 795 - End - Begin VB.CheckBox chkMonstersNoRegenLookUp - Caption = "Hide Summon Refs." - Height = 255 - Left = 2760 - TabIndex = 640 - Top = 540 - Width = 1815 - End - Begin VB.CommandButton cmdFind - Caption = "&Next" - Height = 255 - Index = 9 - Left = 1440 - TabIndex = 641 - Top = 540 - Width = 1155 - End - Begin VB.CommandButton cmdFind - Caption = "&Find" - Height = 255 - Index = 8 - Left = 120 - TabIndex = 642 - Top = 540 - Width = 1215 - End - Begin VB.TextBox txtMonsterFind - Height = 285 - Left = 120 - TabIndex = 643 - Top = 240 - Width = 2175 - End - Begin VB.CommandButton cmdMonHelp - Caption = "?" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 2340 - TabIndex = 644 - Top = 240 - Width = 255 - End - Begin MMUD_Explorer.cntSplitter splMonsterSplit - Height = 5415 - Index = 0 - Left = 120 - TabIndex = 645 - Top = 840 - Width = 12975 - _ExtentX = 22886 - _ExtentY = 9551 - Begin MSComctlLib.ListView lvMonsterDetail - Height = 4995 - Left = 5580 - TabIndex = 646 - Tag = "STRETCHALL" - Top = 0 - Width = 4275 - _ExtentX = 7541 - _ExtentY = 8811 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MSComctlLib.ListView lvMonsters - Height = 4995 - Left = 0 - TabIndex = 647 - Tag = "STRETCHALL" - Top = 0 - Width = 5175 - _ExtentX = 9128 - _ExtentY = 8811 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Experience (>=)" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 39 - Left = 7800 - TabIndex = 1183 - Top = 240 - Width = 1515 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Regen" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 38 - Left = 4620 - TabIndex = 1181 - Top = 240 - Width = 1155 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "HP (<=)" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 37 - Left = 6900 - TabIndex = 1178 - Top = 240 - Width = 855 - End - Begin VB.Label lblMonsterDamage - Alignment = 2 'Center - Caption = "DMG (<=)" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Left = 5880 - TabIndex = 1176 - Top = 240 - Width = 915 - End - End - Begin VB.Frame framNav - Caption = "Weapons" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 6735 - Index = 0 - Left = 60 - TabIndex = 26 - Top = 1200 - Width = 13215 - Begin VB.ComboBox cmbWeaponAbilityOp - Height = 315 - ItemData = "frmMain.frx":0D52 - Left = 10380 - List = "frmMain.frx":0D5C - Style = 2 'Dropdown List - TabIndex = 970 - Top = 480 - Width = 615 - End - Begin VB.TextBox txtWeaponAbilityVal - Height = 315 - Left = 11040 - MaxLength = 4 - TabIndex = 971 - Text = "1" - Top = 480 - Width = 495 - End - Begin VB.ComboBox cmbWeaponAbilityList - Height = 315 - Left = 8760 - Sorted = -1 'True - TabIndex = 972 - Text = "cmbWeaponAbilityList" - Top = 480 - Width = 1575 - End - Begin VB.CommandButton cmdFilter - Caption = "&Remove Filter" - Height = 555 - Index = 7 - Left = 12300 - TabIndex = 40 - Top = 240 - Width = 795 - End - Begin VB.TextBox txtWeaponSpeed - Height = 315 - Left = 7080 - MaxLength = 6 - TabIndex = 37 - Text = "999999" - Top = 465 - Width = 675 - End - Begin VB.ComboBox cmbWeaponSpeed - Height = 315 - ItemData = "frmMain.frx":0D68 - Left = 6420 - List = "frmMain.frx":0D72 - Style = 2 'Dropdown List - TabIndex = 36 - Top = 465 - Width = 615 - End - Begin VB.CheckBox chkWeaponNonMagical - Caption = "Non-Magic" - Height = 195 - Left = 5280 - TabIndex = 35 - Top = 570 - Width = 1155 - End - Begin VB.CheckBox chkWeaponStaffOnly - Caption = "Staff Only" - Height = 195 - Left = 4260 - TabIndex = 33 - Top = 570 - Width = 1035 - End - Begin VB.ComboBox cmbWeaponMagicLevel - Height = 315 - ItemData = "frmMain.frx":0D7E - Left = 7860 - List = "frmMain.frx":0D80 - Style = 2 'Dropdown List - TabIndex = 38 - Top = 465 - Width = 795 - End - Begin VB.CheckBox chkWeaponNoLimit - Caption = "No Limit" - Height = 195 - Left = 5280 - TabIndex = 34 - Top = 330 - Width = 975 - End - Begin VB.CheckBox chkBSAble - Caption = "BS'able" - Height = 195 - Left = 4260 - TabIndex = 32 - Top = 330 - Width = 855 - End - Begin VB.CheckBox chkHanded - Caption = "2H Sharp" - Height = 195 - Index = 3 - Left = 3240 - TabIndex = 31 - Top = 570 - Value = 1 'Checked - Width = 1035 - End - Begin VB.CheckBox chkHanded - Caption = "1H Sharp" - Height = 195 - Index = 2 - Left = 2220 - TabIndex = 29 - Top = 570 - Value = 1 'Checked - Width = 1035 - End - Begin VB.CheckBox chkHanded - Caption = "2H Blunt" - Height = 195 - Index = 1 - Left = 3240 - TabIndex = 30 - Top = 330 - Value = 1 'Checked - Width = 1035 - End - Begin VB.CheckBox chkHanded - Caption = "1H Blunt" - Height = 195 - Index = 0 - Left = 2220 - TabIndex = 28 - Top = 330 - Value = 1 'Checked - Width = 1035 - End - Begin VB.CommandButton cmdFilter - Caption = "&Apply Filter" - Height = 555 - Index = 6 - Left = 11580 - TabIndex = 39 - Top = 240 - Width = 675 - End - Begin VB.CommandButton cmdFind - Caption = "&Next" - Height = 255 - Index = 5 - Left = 1140 - TabIndex = 24 - Top = 240 - Width = 975 - End - Begin VB.CommandButton cmdFind - Caption = "&Find" - Height = 255 - Index = 4 - Left = 120 - TabIndex = 23 - Top = 240 - Width = 975 - End - Begin VB.TextBox txtWeaponFind - Height = 285 - Left = 120 - TabIndex = 22 - Top = 510 - Width = 1995 - End - Begin MMUD_Explorer.cntSplitter splSplitterNS - Height = 5115 - Index = 0 - Left = 120 - TabIndex = 973 - Top = 840 - Width = 10215 - _ExtentX = 18018 - _ExtentY = 9022 - Begin MMUD_Explorer.cntSplitter splSplitterWE - Height = 975 - Index = 0 - Left = 0 - TabIndex = 974 - Top = 4140 - Width = 10215 - _ExtentX = 18018 - _ExtentY = 1720 - Begin VB.TextBox txtWeaponDetail - Height = 975 - Left = 0 - Locked = -1 'True - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 42 - Top = 0 - Width = 4035 - End - Begin MSComctlLib.ListView lvWeaponLoc - Height = 975 - Left = 6660 - TabIndex = 43 - Top = 0 - Width = 3555 - _ExtentX = 6271 - _ExtentY = 1720 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 572 + Left = 300 + TabIndex = 1094 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 573 + Left = 540 + TabIndex = 1093 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 574 + Left = 780 + TabIndex = 1092 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 575 + Left = 1020 + TabIndex = 1091 + Top = 4620 + Visible = 0 'False + Width = 135 End - Begin MSComctlLib.ListView lvWeapons - Height = 3735 - Left = 0 - TabIndex = 41 - Tag = "STRETCHALL" - Top = 0 - Width = 2835 - _ExtentX = 5001 - _ExtentY = 6588 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 576 + Left = 1260 + TabIndex = 1090 + Top = 4620 + Visible = 0 'False + Width = 135 End - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Negate Spell / Ability Filter" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 11 - Left = 8760 - TabIndex = 975 - Top = 240 - Width = 2775 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Speed" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 17 - Left = 6420 - TabIndex = 25 - Top = 240 - Width = 1335 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Magic LVL" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 195 - Index = 18 - Left = 7800 - TabIndex = 27 - Top = 240 - Width = 975 - End - End - Begin VB.Frame framNav - Caption = "Rooms" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 6735 - Index = 10 - Left = 60 - TabIndex = 208 - Top = 1200 - Visible = 0 'False - Width = 13215 - Begin VB.TextBox txtMapMove - BackColor = &H00000000& - BeginProperty Font - Name = "Terminal" - Size = 9 - Charset = 255 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ForeColor = &H0000C000& - Height = 615 - Left = 120 - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 1187 - Top = 6000 - Width = 3195 - End - Begin VB.CommandButton cmdMegaMUDPathing - Caption = "Open MegaMUD Pathing Window" - Height = 615 - Left = 3480 - TabIndex = 1186 - Top = 6000 - Width = 3855 - End - Begin VB.PictureBox picMap - Appearance = 0 'Flat - AutoRedraw = -1 'True - BackColor = &H00000000& - ForeColor = &H80000008& - Height = 5565 - Left = 120 - ScaleHeight = 369 - ScaleMode = 3 'Pixel - ScaleWidth = 481 - TabIndex = 257 - Top = 180 - Width = 7245 Begin VB.Label lblRoomCell Appearance = 0 'Flat BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 511 - Left = 60 - TabIndex = 1155 - Top = 4140 + Index = 577 + Left = 1500 + TabIndex = 1089 + Top = 4620 Visible = 0 'False Width = 135 End @@ -3943,10 +1958,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 512 - Left = 300 - TabIndex = 1154 - Top = 4140 + Index = 578 + Left = 1740 + TabIndex = 1088 + Top = 4620 Visible = 0 'False Width = 135 End @@ -3956,10 +1971,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 513 - Left = 540 - TabIndex = 1153 - Top = 4140 + Index = 579 + Left = 1980 + TabIndex = 1087 + Top = 4620 Visible = 0 'False Width = 135 End @@ -3969,10 +1984,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 514 - Left = 780 - TabIndex = 1152 - Top = 4140 + Index = 580 + Left = 2220 + TabIndex = 1086 + Top = 4620 Visible = 0 'False Width = 135 End @@ -3982,10 +1997,62 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 515 - Left = 1020 - TabIndex = 1151 - Top = 4140 + Index = 581 + Left = 2460 + TabIndex = 1085 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 582 + Left = 2700 + TabIndex = 1084 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 583 + Left = 2940 + TabIndex = 1083 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 584 + Left = 3180 + TabIndex = 1082 + Top = 4620 + Visible = 0 'False + Width = 135 + End + Begin VB.Label lblRoomCell + Appearance = 0 'Flat + BackColor = &H00C0C0C0& + BorderStyle = 1 'Fixed Single + ForeColor = &H00000000& + Height = 135 + Index = 585 + Left = 3420 + TabIndex = 1081 + Top = 4620 Visible = 0 'False Width = 135 End @@ -3995,10 +2062,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 516 - Left = 1260 - TabIndex = 1150 - Top = 4140 + Index = 586 + Left = 3660 + TabIndex = 1080 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4008,10 +2075,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 517 - Left = 1500 - TabIndex = 1149 - Top = 4140 + Index = 587 + Left = 3900 + TabIndex = 1079 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4021,10 +2088,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 518 - Left = 1740 - TabIndex = 1148 - Top = 4140 + Index = 588 + Left = 4140 + TabIndex = 1078 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4034,10 +2101,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 519 - Left = 1980 - TabIndex = 1147 - Top = 4140 + Index = 589 + Left = 4380 + TabIndex = 1077 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4047,10 +2114,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 520 - Left = 2220 - TabIndex = 1146 - Top = 4140 + Index = 590 + Left = 4620 + TabIndex = 1076 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4060,10 +2127,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 521 - Left = 2460 - TabIndex = 1145 - Top = 4140 + Index = 591 + Left = 4860 + TabIndex = 1075 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4073,10 +2140,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 522 - Left = 2700 - TabIndex = 1144 - Top = 4140 + Index = 592 + Left = 5100 + TabIndex = 1074 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4086,10 +2153,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 523 - Left = 2940 - TabIndex = 1143 - Top = 4140 + Index = 593 + Left = 5340 + TabIndex = 1073 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4099,10 +2166,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 524 - Left = 3180 - TabIndex = 1142 - Top = 4140 + Index = 594 + Left = 5580 + TabIndex = 1072 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4112,10 +2179,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 525 - Left = 3420 - TabIndex = 1141 - Top = 4140 + Index = 595 + Left = 5820 + TabIndex = 1071 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4125,10 +2192,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 526 - Left = 3660 - TabIndex = 1140 - Top = 4140 + Index = 596 + Left = 6060 + TabIndex = 1070 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4138,10 +2205,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 527 - Left = 3900 - TabIndex = 1139 - Top = 4140 + Index = 597 + Left = 6300 + TabIndex = 1069 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4151,10 +2218,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 528 - Left = 4140 - TabIndex = 1138 - Top = 4140 + Index = 598 + Left = 6540 + TabIndex = 1068 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4164,10 +2231,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 529 - Left = 4380 - TabIndex = 1137 - Top = 4140 + Index = 599 + Left = 6780 + TabIndex = 1067 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4177,10 +2244,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 530 - Left = 4620 - TabIndex = 1136 - Top = 4140 + Index = 600 + Left = 7020 + TabIndex = 1066 + Top = 4620 Visible = 0 'False Width = 135 End @@ -4190,10 +2257,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 531 - Left = 4860 - TabIndex = 1135 - Top = 4140 + Index = 601 + Left = 60 + TabIndex = 1065 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4203,10 +2270,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 532 - Left = 5100 - TabIndex = 1134 - Top = 4140 + Index = 602 + Left = 300 + TabIndex = 1064 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4216,10 +2283,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 533 - Left = 5340 - TabIndex = 1133 - Top = 4140 + Index = 603 + Left = 540 + TabIndex = 1063 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4229,10 +2296,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 534 - Left = 5580 - TabIndex = 1132 - Top = 4140 + Index = 604 + Left = 780 + TabIndex = 1062 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4242,10 +2309,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 535 - Left = 5820 - TabIndex = 1131 - Top = 4140 + Index = 605 + Left = 1020 + TabIndex = 1061 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4255,10 +2322,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 536 - Left = 6060 - TabIndex = 1130 - Top = 4140 + Index = 606 + Left = 1260 + TabIndex = 1060 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4268,10 +2335,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 537 - Left = 6300 - TabIndex = 1129 - Top = 4140 + Index = 607 + Left = 1500 + TabIndex = 1059 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4281,10 +2348,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 538 - Left = 6540 - TabIndex = 1128 - Top = 4140 + Index = 608 + Left = 1740 + TabIndex = 1058 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4294,10 +2361,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 539 - Left = 6780 - TabIndex = 1127 - Top = 4140 + Index = 609 + Left = 1980 + TabIndex = 1057 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4307,10 +2374,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 540 - Left = 7020 - TabIndex = 1126 - Top = 4140 + Index = 610 + Left = 2220 + TabIndex = 1056 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4320,10 +2387,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 541 - Left = 60 - TabIndex = 1125 - Top = 4380 + Index = 611 + Left = 2460 + TabIndex = 1055 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4333,10 +2400,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 542 - Left = 300 - TabIndex = 1124 - Top = 4380 + Index = 612 + Left = 2700 + TabIndex = 1054 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4346,10 +2413,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 543 - Left = 540 - TabIndex = 1123 - Top = 4380 + Index = 613 + Left = 2940 + TabIndex = 1053 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4359,10 +2426,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 544 - Left = 780 - TabIndex = 1122 - Top = 4380 + Index = 614 + Left = 3180 + TabIndex = 1052 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4372,10 +2439,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 545 - Left = 1020 - TabIndex = 1121 - Top = 4380 + Index = 615 + Left = 3420 + TabIndex = 1051 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4385,10 +2452,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 546 - Left = 1260 - TabIndex = 1120 - Top = 4380 + Index = 616 + Left = 3660 + TabIndex = 1050 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4398,10 +2465,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 547 - Left = 1500 - TabIndex = 1119 - Top = 4380 + Index = 617 + Left = 3900 + TabIndex = 1049 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4411,10 +2478,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 548 - Left = 1740 - TabIndex = 1118 - Top = 4380 + Index = 618 + Left = 4140 + TabIndex = 1048 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4424,10 +2491,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 549 - Left = 1980 - TabIndex = 1117 - Top = 4380 + Index = 619 + Left = 4380 + TabIndex = 1047 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4437,10 +2504,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 550 - Left = 2220 - TabIndex = 1116 - Top = 4380 + Index = 620 + Left = 4620 + TabIndex = 1046 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4450,10 +2517,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 551 - Left = 2460 - TabIndex = 1115 - Top = 4380 + Index = 621 + Left = 4860 + TabIndex = 1045 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4463,10 +2530,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 552 - Left = 2700 - TabIndex = 1114 - Top = 4380 + Index = 622 + Left = 5100 + TabIndex = 1044 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4476,10 +2543,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 553 - Left = 2940 - TabIndex = 1113 - Top = 4380 + Index = 623 + Left = 5340 + TabIndex = 1043 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4489,10 +2556,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 554 - Left = 3180 - TabIndex = 1112 - Top = 4380 + Index = 624 + Left = 5580 + TabIndex = 1042 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4502,10 +2569,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 555 - Left = 3420 - TabIndex = 1111 - Top = 4380 + Index = 625 + Left = 5820 + TabIndex = 1041 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4515,10 +2582,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 556 - Left = 3660 - TabIndex = 1110 - Top = 4380 + Index = 626 + Left = 6060 + TabIndex = 1040 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4528,10 +2595,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 557 - Left = 3900 - TabIndex = 1109 - Top = 4380 + Index = 627 + Left = 6300 + TabIndex = 1039 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4541,10 +2608,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 558 - Left = 4140 - TabIndex = 1108 - Top = 4380 + Index = 628 + Left = 6540 + TabIndex = 1038 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4554,10 +2621,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 559 - Left = 4380 - TabIndex = 1107 - Top = 4380 + Index = 629 + Left = 6780 + TabIndex = 1037 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4567,10 +2634,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 560 - Left = 4620 - TabIndex = 1106 - Top = 4380 + Index = 630 + Left = 7020 + TabIndex = 1036 + Top = 4860 Visible = 0 'False Width = 135 End @@ -4580,10 +2647,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 561 - Left = 4860 - TabIndex = 1105 - Top = 4380 + Index = 631 + Left = 60 + TabIndex = 1035 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4593,10 +2660,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 562 - Left = 5100 - TabIndex = 1104 - Top = 4380 + Index = 632 + Left = 300 + TabIndex = 1034 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4606,10 +2673,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 563 - Left = 5340 - TabIndex = 1103 - Top = 4380 + Index = 633 + Left = 540 + TabIndex = 1033 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4619,10 +2686,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 564 - Left = 5580 - TabIndex = 1102 - Top = 4380 + Index = 634 + Left = 780 + TabIndex = 1032 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4632,10 +2699,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 565 - Left = 5820 - TabIndex = 1101 - Top = 4380 + Index = 635 + Left = 1020 + TabIndex = 1031 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4645,10 +2712,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 566 - Left = 6060 - TabIndex = 1100 - Top = 4380 + Index = 636 + Left = 1260 + TabIndex = 1030 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4658,10 +2725,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 567 - Left = 6300 - TabIndex = 1099 - Top = 4380 + Index = 637 + Left = 1500 + TabIndex = 1029 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4671,10 +2738,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 568 - Left = 6540 - TabIndex = 1098 - Top = 4380 + Index = 638 + Left = 1740 + TabIndex = 1028 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4684,10 +2751,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 569 - Left = 6780 - TabIndex = 1097 - Top = 4380 + Index = 639 + Left = 1980 + TabIndex = 1027 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4697,10 +2764,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 570 - Left = 7020 - TabIndex = 1096 - Top = 4380 + Index = 640 + Left = 2220 + TabIndex = 1026 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4710,10 +2777,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 571 - Left = 60 - TabIndex = 1095 - Top = 4620 + Index = 641 + Left = 2460 + TabIndex = 1025 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4723,10 +2790,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 572 - Left = 300 - TabIndex = 1094 - Top = 4620 + Index = 642 + Left = 2700 + TabIndex = 1024 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4736,10 +2803,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 573 - Left = 540 - TabIndex = 1093 - Top = 4620 + Index = 643 + Left = 2940 + TabIndex = 1023 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4749,10 +2816,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 574 - Left = 780 - TabIndex = 1092 - Top = 4620 + Index = 644 + Left = 3180 + TabIndex = 1022 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4762,10 +2829,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 575 - Left = 1020 - TabIndex = 1091 - Top = 4620 + Index = 645 + Left = 3420 + TabIndex = 1021 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4775,10 +2842,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 576 - Left = 1260 - TabIndex = 1090 - Top = 4620 + Index = 646 + Left = 3660 + TabIndex = 1020 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4788,10 +2855,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 577 - Left = 1500 - TabIndex = 1089 - Top = 4620 + Index = 647 + Left = 3900 + TabIndex = 1019 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4801,10 +2868,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 578 - Left = 1740 - TabIndex = 1088 - Top = 4620 + Index = 648 + Left = 4140 + TabIndex = 1018 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4814,10 +2881,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 579 - Left = 1980 - TabIndex = 1087 - Top = 4620 + Index = 649 + Left = 4380 + TabIndex = 1017 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4827,10 +2894,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 580 - Left = 2220 - TabIndex = 1086 - Top = 4620 + Index = 650 + Left = 4620 + TabIndex = 1016 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4840,10 +2907,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 581 - Left = 2460 - TabIndex = 1085 - Top = 4620 + Index = 651 + Left = 4860 + TabIndex = 1015 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4853,10 +2920,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 582 - Left = 2700 - TabIndex = 1084 - Top = 4620 + Index = 652 + Left = 5100 + TabIndex = 1014 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4866,10 +2933,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 583 - Left = 2940 - TabIndex = 1083 - Top = 4620 + Index = 653 + Left = 5340 + TabIndex = 1013 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4879,10 +2946,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 584 - Left = 3180 - TabIndex = 1082 - Top = 4620 + Index = 654 + Left = 5580 + TabIndex = 1012 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4892,10 +2959,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 585 - Left = 3420 - TabIndex = 1081 - Top = 4620 + Index = 655 + Left = 5820 + TabIndex = 1011 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4905,10 +2972,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 586 - Left = 3660 - TabIndex = 1080 - Top = 4620 + Index = 656 + Left = 6060 + TabIndex = 1010 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4918,10 +2985,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 587 - Left = 3900 - TabIndex = 1079 - Top = 4620 + Index = 657 + Left = 6300 + TabIndex = 1009 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4931,10 +2998,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 588 - Left = 4140 - TabIndex = 1078 - Top = 4620 + Index = 658 + Left = 6540 + TabIndex = 1008 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4944,10 +3011,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 589 - Left = 4380 - TabIndex = 1077 - Top = 4620 + Index = 659 + Left = 6780 + TabIndex = 1007 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4957,10 +3024,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 590 - Left = 4620 - TabIndex = 1076 - Top = 4620 + Index = 660 + Left = 7020 + TabIndex = 1006 + Top = 5100 Visible = 0 'False Width = 135 End @@ -4970,10 +3037,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 591 - Left = 4860 - TabIndex = 1075 - Top = 4620 + Index = 661 + Left = 60 + TabIndex = 1005 + Top = 5340 Visible = 0 'False Width = 135 End @@ -4983,10 +3050,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 592 - Left = 5100 - TabIndex = 1074 - Top = 4620 + Index = 662 + Left = 300 + TabIndex = 1004 + Top = 5340 Visible = 0 'False Width = 135 End @@ -4996,10 +3063,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 593 - Left = 5340 - TabIndex = 1073 - Top = 4620 + Index = 663 + Left = 540 + TabIndex = 1003 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5009,10 +3076,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 594 - Left = 5580 - TabIndex = 1072 - Top = 4620 + Index = 664 + Left = 780 + TabIndex = 1002 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5022,10 +3089,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 595 - Left = 5820 - TabIndex = 1071 - Top = 4620 + Index = 665 + Left = 1020 + TabIndex = 1001 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5035,10 +3102,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 596 - Left = 6060 - TabIndex = 1070 - Top = 4620 + Index = 666 + Left = 1260 + TabIndex = 1000 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5048,10 +3115,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 597 - Left = 6300 - TabIndex = 1069 - Top = 4620 + Index = 667 + Left = 1500 + TabIndex = 999 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5061,10 +3128,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 598 - Left = 6540 - TabIndex = 1068 - Top = 4620 + Index = 668 + Left = 1740 + TabIndex = 998 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5074,10 +3141,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 599 - Left = 6780 - TabIndex = 1067 - Top = 4620 + Index = 669 + Left = 1980 + TabIndex = 997 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5087,10 +3154,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 600 - Left = 7020 - TabIndex = 1066 - Top = 4620 + Index = 670 + Left = 2220 + TabIndex = 996 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5100,10 +3167,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 601 - Left = 60 - TabIndex = 1065 - Top = 4860 + Index = 671 + Left = 2460 + TabIndex = 995 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5113,10 +3180,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 602 - Left = 300 - TabIndex = 1064 - Top = 4860 + Index = 672 + Left = 2700 + TabIndex = 994 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5126,10 +3193,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 603 - Left = 540 - TabIndex = 1063 - Top = 4860 + Index = 673 + Left = 2940 + TabIndex = 993 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5139,10 +3206,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 604 - Left = 780 - TabIndex = 1062 - Top = 4860 + Index = 674 + Left = 3180 + TabIndex = 992 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5152,10 +3219,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 605 - Left = 1020 - TabIndex = 1061 - Top = 4860 + Index = 675 + Left = 3420 + TabIndex = 991 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5165,10 +3232,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 606 - Left = 1260 - TabIndex = 1060 - Top = 4860 + Index = 676 + Left = 3660 + TabIndex = 990 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5178,10 +3245,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 607 - Left = 1500 - TabIndex = 1059 - Top = 4860 + Index = 677 + Left = 3900 + TabIndex = 989 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5191,10 +3258,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 608 - Left = 1740 - TabIndex = 1058 - Top = 4860 + Index = 678 + Left = 4140 + TabIndex = 988 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5204,10 +3271,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 609 - Left = 1980 - TabIndex = 1057 - Top = 4860 + Index = 679 + Left = 4380 + TabIndex = 987 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5217,10 +3284,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 610 - Left = 2220 - TabIndex = 1056 - Top = 4860 + Index = 680 + Left = 4620 + TabIndex = 986 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5230,10 +3297,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 611 - Left = 2460 - TabIndex = 1055 - Top = 4860 + Index = 681 + Left = 4860 + TabIndex = 985 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5243,10 +3310,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 612 - Left = 2700 - TabIndex = 1054 - Top = 4860 + Index = 682 + Left = 5100 + TabIndex = 984 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5256,10 +3323,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 613 - Left = 2940 - TabIndex = 1053 - Top = 4860 + Index = 683 + Left = 5340 + TabIndex = 983 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5269,10 +3336,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 614 - Left = 3180 - TabIndex = 1052 - Top = 4860 + Index = 684 + Left = 5580 + TabIndex = 982 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5282,10 +3349,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 615 - Left = 3420 - TabIndex = 1051 - Top = 4860 + Index = 685 + Left = 5820 + TabIndex = 981 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5295,10 +3362,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 616 - Left = 3660 - TabIndex = 1050 - Top = 4860 + Index = 686 + Left = 6060 + TabIndex = 980 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5308,10 +3375,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 617 - Left = 3900 - TabIndex = 1049 - Top = 4860 + Index = 687 + Left = 6300 + TabIndex = 979 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5321,10 +3388,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 618 - Left = 4140 - TabIndex = 1048 - Top = 4860 + Index = 688 + Left = 6540 + TabIndex = 978 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5334,10 +3401,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 619 - Left = 4380 - TabIndex = 1047 - Top = 4860 + Index = 689 + Left = 6780 + TabIndex = 977 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5347,10 +3414,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 620 - Left = 4620 - TabIndex = 1046 - Top = 4860 + Index = 690 + Left = 7020 + TabIndex = 976 + Top = 5340 Visible = 0 'False Width = 135 End @@ -5360,10 +3427,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 621 - Left = 4860 - TabIndex = 1045 - Top = 4860 + Index = 510 + Left = 7020 + TabIndex = 570 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5373,10 +3440,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 622 - Left = 5100 - TabIndex = 1044 - Top = 4860 + Index = 509 + Left = 6780 + TabIndex = 569 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5386,10 +3453,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 623 - Left = 5340 - TabIndex = 1043 - Top = 4860 + Index = 508 + Left = 6540 + TabIndex = 568 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5399,10 +3466,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 624 - Left = 5580 - TabIndex = 1042 - Top = 4860 + Index = 507 + Left = 6300 + TabIndex = 567 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5412,10 +3479,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 625 - Left = 5820 - TabIndex = 1041 - Top = 4860 + Index = 506 + Left = 6060 + TabIndex = 566 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5425,10 +3492,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 626 - Left = 6060 - TabIndex = 1040 - Top = 4860 + Index = 505 + Left = 5820 + TabIndex = 565 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5438,10 +3505,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 627 - Left = 6300 - TabIndex = 1039 - Top = 4860 + Index = 504 + Left = 5580 + TabIndex = 564 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5451,10 +3518,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 628 - Left = 6540 - TabIndex = 1038 - Top = 4860 + Index = 503 + Left = 5340 + TabIndex = 563 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5464,10 +3531,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 629 - Left = 6780 - TabIndex = 1037 - Top = 4860 + Index = 502 + Left = 5100 + TabIndex = 562 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5477,10 +3544,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 630 - Left = 7020 - TabIndex = 1036 - Top = 4860 + Index = 501 + Left = 4860 + TabIndex = 561 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5490,10 +3557,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 631 - Left = 60 - TabIndex = 1035 - Top = 5100 + Index = 500 + Left = 4620 + TabIndex = 560 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5503,10 +3570,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 632 - Left = 300 - TabIndex = 1034 - Top = 5100 + Index = 499 + Left = 4380 + TabIndex = 559 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5516,10 +3583,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 633 - Left = 540 - TabIndex = 1033 - Top = 5100 + Index = 498 + Left = 4140 + TabIndex = 558 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5529,10 +3596,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 634 - Left = 780 - TabIndex = 1032 - Top = 5100 + Index = 497 + Left = 3900 + TabIndex = 557 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5542,10 +3609,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 635 - Left = 1020 - TabIndex = 1031 - Top = 5100 + Index = 496 + Left = 3660 + TabIndex = 556 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5555,10 +3622,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 636 - Left = 1260 - TabIndex = 1030 - Top = 5100 + Index = 495 + Left = 3420 + TabIndex = 555 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5568,10 +3635,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 637 - Left = 1500 - TabIndex = 1029 - Top = 5100 + Index = 494 + Left = 3180 + TabIndex = 554 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5581,10 +3648,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 638 - Left = 1740 - TabIndex = 1028 - Top = 5100 + Index = 493 + Left = 2940 + TabIndex = 553 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5594,10 +3661,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 639 - Left = 1980 - TabIndex = 1027 - Top = 5100 + Index = 492 + Left = 2700 + TabIndex = 552 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5607,10 +3674,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 640 - Left = 2220 - TabIndex = 1026 - Top = 5100 + Index = 491 + Left = 2460 + TabIndex = 551 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5620,10 +3687,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 641 - Left = 2460 - TabIndex = 1025 - Top = 5100 + Index = 490 + Left = 2220 + TabIndex = 550 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5633,10 +3700,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 642 - Left = 2700 - TabIndex = 1024 - Top = 5100 + Index = 489 + Left = 1980 + TabIndex = 549 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5646,10 +3713,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 643 - Left = 2940 - TabIndex = 1023 - Top = 5100 + Index = 488 + Left = 1740 + TabIndex = 548 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5659,10 +3726,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 644 - Left = 3180 - TabIndex = 1022 - Top = 5100 + Index = 487 + Left = 1500 + TabIndex = 547 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5672,10 +3739,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 645 - Left = 3420 - TabIndex = 1021 - Top = 5100 + Index = 486 + Left = 1260 + TabIndex = 546 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5685,10 +3752,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 646 - Left = 3660 - TabIndex = 1020 - Top = 5100 + Index = 485 + Left = 1020 + TabIndex = 545 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5698,10 +3765,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 647 - Left = 3900 - TabIndex = 1019 - Top = 5100 + Index = 484 + Left = 780 + TabIndex = 544 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5711,10 +3778,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 648 - Left = 4140 - TabIndex = 1018 - Top = 5100 + Index = 483 + Left = 540 + TabIndex = 543 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5724,10 +3791,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 649 - Left = 4380 - TabIndex = 1017 - Top = 5100 + Index = 482 + Left = 300 + TabIndex = 542 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5737,10 +3804,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 650 - Left = 4620 - TabIndex = 1016 - Top = 5100 + Index = 481 + Left = 60 + TabIndex = 541 + Top = 3900 Visible = 0 'False Width = 135 End @@ -5750,10 +3817,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 651 - Left = 4860 - TabIndex = 1015 - Top = 5100 + Index = 480 + Left = 7020 + TabIndex = 540 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5763,10 +3830,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 652 - Left = 5100 - TabIndex = 1014 - Top = 5100 + Index = 479 + Left = 6780 + TabIndex = 539 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5776,10 +3843,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 653 - Left = 5340 - TabIndex = 1013 - Top = 5100 + Index = 478 + Left = 6540 + TabIndex = 538 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5789,10 +3856,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 654 - Left = 5580 - TabIndex = 1012 - Top = 5100 + Index = 477 + Left = 6300 + TabIndex = 537 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5802,10 +3869,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 655 - Left = 5820 - TabIndex = 1011 - Top = 5100 + Index = 476 + Left = 6060 + TabIndex = 536 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5815,10 +3882,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 656 - Left = 6060 - TabIndex = 1010 - Top = 5100 + Index = 475 + Left = 5820 + TabIndex = 535 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5828,10 +3895,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 657 - Left = 6300 - TabIndex = 1009 - Top = 5100 + Index = 474 + Left = 5580 + TabIndex = 534 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5841,10 +3908,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 658 - Left = 6540 - TabIndex = 1008 - Top = 5100 + Index = 473 + Left = 5340 + TabIndex = 533 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5854,10 +3921,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 659 - Left = 6780 - TabIndex = 1007 - Top = 5100 + Index = 472 + Left = 5100 + TabIndex = 532 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5867,10 +3934,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 660 - Left = 7020 - TabIndex = 1006 - Top = 5100 + Index = 471 + Left = 4860 + TabIndex = 531 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5880,10 +3947,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 661 - Left = 60 - TabIndex = 1005 - Top = 5340 + Index = 470 + Left = 4620 + TabIndex = 530 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5893,10 +3960,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 662 - Left = 300 - TabIndex = 1004 - Top = 5340 + Index = 469 + Left = 4380 + TabIndex = 529 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5906,10 +3973,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 663 - Left = 540 - TabIndex = 1003 - Top = 5340 + Index = 468 + Left = 4140 + TabIndex = 528 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5919,10 +3986,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 664 - Left = 780 - TabIndex = 1002 - Top = 5340 + Index = 467 + Left = 3900 + TabIndex = 527 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5932,10 +3999,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 665 - Left = 1020 - TabIndex = 1001 - Top = 5340 + Index = 466 + Left = 3660 + TabIndex = 526 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5945,10 +4012,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 666 - Left = 1260 - TabIndex = 1000 - Top = 5340 + Index = 465 + Left = 3420 + TabIndex = 525 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5958,10 +4025,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 667 - Left = 1500 - TabIndex = 999 - Top = 5340 + Index = 464 + Left = 3180 + TabIndex = 524 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5971,10 +4038,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 668 - Left = 1740 - TabIndex = 998 - Top = 5340 + Index = 463 + Left = 2940 + TabIndex = 523 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5984,10 +4051,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 669 - Left = 1980 - TabIndex = 997 - Top = 5340 + Index = 462 + Left = 2700 + TabIndex = 522 + Top = 3660 Visible = 0 'False Width = 135 End @@ -5997,10 +4064,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 670 - Left = 2220 - TabIndex = 996 - Top = 5340 + Index = 461 + Left = 2460 + TabIndex = 521 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6010,10 +4077,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 671 - Left = 2460 - TabIndex = 995 - Top = 5340 + Index = 460 + Left = 2220 + TabIndex = 520 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6023,10 +4090,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 672 - Left = 2700 - TabIndex = 994 - Top = 5340 + Index = 459 + Left = 1980 + TabIndex = 519 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6036,10 +4103,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 673 - Left = 2940 - TabIndex = 993 - Top = 5340 + Index = 458 + Left = 1740 + TabIndex = 518 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6049,10 +4116,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 674 - Left = 3180 - TabIndex = 992 - Top = 5340 + Index = 457 + Left = 1500 + TabIndex = 517 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6062,10 +4129,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 675 - Left = 3420 - TabIndex = 991 - Top = 5340 + Index = 456 + Left = 1260 + TabIndex = 516 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6075,10 +4142,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 676 - Left = 3660 - TabIndex = 990 - Top = 5340 + Index = 455 + Left = 1020 + TabIndex = 515 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6088,10 +4155,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 677 - Left = 3900 - TabIndex = 989 - Top = 5340 + Index = 454 + Left = 780 + TabIndex = 514 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6101,10 +4168,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 678 - Left = 4140 - TabIndex = 988 - Top = 5340 + Index = 453 + Left = 540 + TabIndex = 513 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6114,10 +4181,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 679 - Left = 4380 - TabIndex = 987 - Top = 5340 + Index = 452 + Left = 300 + TabIndex = 512 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6127,10 +4194,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 680 - Left = 4620 - TabIndex = 986 - Top = 5340 + Index = 451 + Left = 60 + TabIndex = 511 + Top = 3660 Visible = 0 'False Width = 135 End @@ -6140,10 +4207,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 681 - Left = 4860 - TabIndex = 985 - Top = 5340 + Index = 450 + Left = 7020 + TabIndex = 510 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6153,10 +4220,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 682 - Left = 5100 - TabIndex = 984 - Top = 5340 + Index = 449 + Left = 6780 + TabIndex = 509 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6166,10 +4233,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 683 - Left = 5340 - TabIndex = 983 - Top = 5340 + Index = 448 + Left = 6540 + TabIndex = 508 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6179,10 +4246,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 684 - Left = 5580 - TabIndex = 982 - Top = 5340 + Index = 447 + Left = 6300 + TabIndex = 507 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6192,10 +4259,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 685 - Left = 5820 - TabIndex = 981 - Top = 5340 + Index = 446 + Left = 6060 + TabIndex = 506 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6205,10 +4272,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 686 - Left = 6060 - TabIndex = 980 - Top = 5340 + Index = 445 + Left = 5820 + TabIndex = 505 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6218,10 +4285,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 687 - Left = 6300 - TabIndex = 979 - Top = 5340 + Index = 444 + Left = 5580 + TabIndex = 504 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6231,10 +4298,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 688 - Left = 6540 - TabIndex = 978 - Top = 5340 + Index = 443 + Left = 5340 + TabIndex = 503 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6244,10 +4311,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 689 - Left = 6780 - TabIndex = 977 - Top = 5340 + Index = 442 + Left = 5100 + TabIndex = 502 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6257,10 +4324,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 690 - Left = 7020 - TabIndex = 976 - Top = 5340 + Index = 441 + Left = 4860 + TabIndex = 501 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6270,10 +4337,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 510 - Left = 7020 - TabIndex = 570 - Top = 3900 + Index = 440 + Left = 4620 + TabIndex = 500 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6283,10 +4350,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 509 - Left = 6780 - TabIndex = 569 - Top = 3900 + Index = 439 + Left = 4380 + TabIndex = 499 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6296,10 +4363,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 508 - Left = 6540 - TabIndex = 568 - Top = 3900 + Index = 438 + Left = 4140 + TabIndex = 498 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6309,10 +4376,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 507 - Left = 6300 - TabIndex = 567 - Top = 3900 + Index = 437 + Left = 3900 + TabIndex = 497 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6322,10 +4389,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 506 - Left = 6060 - TabIndex = 566 - Top = 3900 + Index = 436 + Left = 3660 + TabIndex = 496 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6335,10 +4402,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 505 - Left = 5820 - TabIndex = 565 - Top = 3900 + Index = 435 + Left = 3420 + TabIndex = 495 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6348,10 +4415,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 504 - Left = 5580 - TabIndex = 564 - Top = 3900 + Index = 434 + Left = 3180 + TabIndex = 494 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6361,10 +4428,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 503 - Left = 5340 - TabIndex = 563 - Top = 3900 + Index = 433 + Left = 2940 + TabIndex = 493 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6374,10 +4441,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 502 - Left = 5100 - TabIndex = 562 - Top = 3900 + Index = 432 + Left = 2700 + TabIndex = 492 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6387,10 +4454,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 501 - Left = 4860 - TabIndex = 561 - Top = 3900 + Index = 431 + Left = 2460 + TabIndex = 491 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6400,10 +4467,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 500 - Left = 4620 - TabIndex = 560 - Top = 3900 + Index = 430 + Left = 2220 + TabIndex = 490 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6413,10 +4480,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 499 - Left = 4380 - TabIndex = 559 - Top = 3900 + Index = 429 + Left = 1980 + TabIndex = 489 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6426,10 +4493,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 498 - Left = 4140 - TabIndex = 558 - Top = 3900 + Index = 428 + Left = 1740 + TabIndex = 488 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6439,10 +4506,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 497 - Left = 3900 - TabIndex = 557 - Top = 3900 + Index = 427 + Left = 1500 + TabIndex = 487 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6452,10 +4519,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 496 - Left = 3660 - TabIndex = 556 - Top = 3900 + Index = 426 + Left = 1260 + TabIndex = 486 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6465,10 +4532,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 495 - Left = 3420 - TabIndex = 555 - Top = 3900 + Index = 425 + Left = 1020 + TabIndex = 485 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6478,10 +4545,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 494 - Left = 3180 - TabIndex = 554 - Top = 3900 + Index = 424 + Left = 780 + TabIndex = 484 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6491,10 +4558,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 493 - Left = 2940 - TabIndex = 553 - Top = 3900 + Index = 423 + Left = 540 + TabIndex = 483 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6504,10 +4571,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 492 - Left = 2700 - TabIndex = 552 - Top = 3900 + Index = 422 + Left = 300 + TabIndex = 482 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6517,10 +4584,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 491 - Left = 2460 - TabIndex = 551 - Top = 3900 + Index = 421 + Left = 60 + TabIndex = 481 + Top = 3420 Visible = 0 'False Width = 135 End @@ -6530,10 +4597,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 490 - Left = 2220 - TabIndex = 550 - Top = 3900 + Index = 420 + Left = 7020 + TabIndex = 480 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6543,10 +4610,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 489 - Left = 1980 - TabIndex = 549 - Top = 3900 + Index = 419 + Left = 6780 + TabIndex = 479 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6556,10 +4623,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 488 - Left = 1740 - TabIndex = 548 - Top = 3900 + Index = 418 + Left = 6540 + TabIndex = 478 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6569,10 +4636,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 487 - Left = 1500 - TabIndex = 547 - Top = 3900 + Index = 417 + Left = 6300 + TabIndex = 477 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6582,10 +4649,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 486 - Left = 1260 - TabIndex = 546 - Top = 3900 + Index = 416 + Left = 6060 + TabIndex = 476 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6595,10 +4662,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 485 - Left = 1020 - TabIndex = 545 - Top = 3900 + Index = 415 + Left = 5820 + TabIndex = 475 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6608,10 +4675,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 484 - Left = 780 - TabIndex = 544 - Top = 3900 + Index = 414 + Left = 5580 + TabIndex = 474 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6621,10 +4688,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 483 - Left = 540 - TabIndex = 543 - Top = 3900 + Index = 413 + Left = 5340 + TabIndex = 473 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6634,10 +4701,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 482 - Left = 300 - TabIndex = 542 - Top = 3900 + Index = 412 + Left = 5100 + TabIndex = 472 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6647,10 +4714,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 481 - Left = 60 - TabIndex = 541 - Top = 3900 + Index = 411 + Left = 4860 + TabIndex = 471 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6660,10 +4727,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 480 - Left = 7020 - TabIndex = 540 - Top = 3660 + Index = 410 + Left = 4620 + TabIndex = 470 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6673,10 +4740,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 479 - Left = 6780 - TabIndex = 539 - Top = 3660 + Index = 409 + Left = 4380 + TabIndex = 469 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6686,10 +4753,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 478 - Left = 6540 - TabIndex = 538 - Top = 3660 + Index = 408 + Left = 4140 + TabIndex = 468 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6699,10 +4766,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 477 - Left = 6300 - TabIndex = 537 - Top = 3660 + Index = 407 + Left = 3900 + TabIndex = 467 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6712,10 +4779,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 476 - Left = 6060 - TabIndex = 536 - Top = 3660 + Index = 406 + Left = 3660 + TabIndex = 466 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6725,10 +4792,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 475 - Left = 5820 - TabIndex = 535 - Top = 3660 + Index = 405 + Left = 3420 + TabIndex = 465 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6738,10 +4805,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 474 - Left = 5580 - TabIndex = 534 - Top = 3660 + Index = 404 + Left = 3180 + TabIndex = 464 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6751,10 +4818,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 473 - Left = 5340 - TabIndex = 533 - Top = 3660 + Index = 403 + Left = 2940 + TabIndex = 463 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6764,10 +4831,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 472 - Left = 5100 - TabIndex = 532 - Top = 3660 + Index = 402 + Left = 2700 + TabIndex = 462 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6777,10 +4844,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 471 - Left = 4860 - TabIndex = 531 - Top = 3660 + Index = 401 + Left = 2460 + TabIndex = 461 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6790,10 +4857,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 470 - Left = 4620 - TabIndex = 530 - Top = 3660 + Index = 400 + Left = 2220 + TabIndex = 460 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6803,10 +4870,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 469 - Left = 4380 - TabIndex = 529 - Top = 3660 + Index = 399 + Left = 1980 + TabIndex = 459 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6816,10 +4883,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 468 - Left = 4140 - TabIndex = 528 - Top = 3660 + Index = 398 + Left = 1740 + TabIndex = 458 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6829,10 +4896,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 467 - Left = 3900 - TabIndex = 527 - Top = 3660 + Index = 397 + Left = 1500 + TabIndex = 457 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6842,10 +4909,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 466 - Left = 3660 - TabIndex = 526 - Top = 3660 + Index = 396 + Left = 1260 + TabIndex = 456 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6855,10 +4922,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 465 - Left = 3420 - TabIndex = 525 - Top = 3660 + Index = 395 + Left = 1020 + TabIndex = 455 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6868,10 +4935,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 464 - Left = 3180 - TabIndex = 524 - Top = 3660 + Index = 394 + Left = 780 + TabIndex = 454 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6881,10 +4948,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 463 - Left = 2940 - TabIndex = 523 - Top = 3660 + Index = 393 + Left = 540 + TabIndex = 453 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6894,10 +4961,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 462 - Left = 2700 - TabIndex = 522 - Top = 3660 + Index = 392 + Left = 300 + TabIndex = 452 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6907,10 +4974,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 461 - Left = 2460 - TabIndex = 521 - Top = 3660 + Index = 391 + Left = 60 + TabIndex = 451 + Top = 3180 Visible = 0 'False Width = 135 End @@ -6920,10 +4987,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 460 - Left = 2220 - TabIndex = 520 - Top = 3660 + Index = 390 + Left = 7020 + TabIndex = 450 + Top = 2940 Visible = 0 'False Width = 135 End @@ -6933,10 +5000,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 459 - Left = 1980 - TabIndex = 519 - Top = 3660 + Index = 389 + Left = 6780 + TabIndex = 449 + Top = 2940 Visible = 0 'False Width = 135 End @@ -6946,10 +5013,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 458 - Left = 1740 - TabIndex = 518 - Top = 3660 + Index = 388 + Left = 6540 + TabIndex = 448 + Top = 2940 Visible = 0 'False Width = 135 End @@ -6959,10 +5026,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 457 - Left = 1500 - TabIndex = 517 - Top = 3660 + Index = 387 + Left = 6300 + TabIndex = 447 + Top = 2940 Visible = 0 'False Width = 135 End @@ -6972,10 +5039,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 456 - Left = 1260 - TabIndex = 516 - Top = 3660 + Index = 386 + Left = 6060 + TabIndex = 446 + Top = 2940 Visible = 0 'False Width = 135 End @@ -6985,10 +5052,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 455 - Left = 1020 - TabIndex = 515 - Top = 3660 + Index = 385 + Left = 5820 + TabIndex = 445 + Top = 2940 Visible = 0 'False Width = 135 End @@ -6998,10 +5065,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 454 - Left = 780 - TabIndex = 514 - Top = 3660 + Index = 384 + Left = 5580 + TabIndex = 444 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7011,10 +5078,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 453 - Left = 540 - TabIndex = 513 - Top = 3660 + Index = 383 + Left = 5340 + TabIndex = 443 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7024,10 +5091,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 452 - Left = 300 - TabIndex = 512 - Top = 3660 + Index = 382 + Left = 5100 + TabIndex = 442 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7037,10 +5104,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 451 - Left = 60 - TabIndex = 511 - Top = 3660 + Index = 381 + Left = 4860 + TabIndex = 441 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7050,10 +5117,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 450 - Left = 7020 - TabIndex = 510 - Top = 3420 + Index = 380 + Left = 4620 + TabIndex = 440 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7063,10 +5130,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 449 - Left = 6780 - TabIndex = 509 - Top = 3420 + Index = 379 + Left = 4380 + TabIndex = 439 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7076,10 +5143,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 448 - Left = 6540 - TabIndex = 508 - Top = 3420 + Index = 378 + Left = 4140 + TabIndex = 438 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7089,10 +5156,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 447 - Left = 6300 - TabIndex = 507 - Top = 3420 + Index = 377 + Left = 3900 + TabIndex = 437 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7102,10 +5169,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 446 - Left = 6060 - TabIndex = 506 - Top = 3420 + Index = 376 + Left = 3660 + TabIndex = 436 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7115,10 +5182,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 445 - Left = 5820 - TabIndex = 505 - Top = 3420 + Index = 375 + Left = 3420 + TabIndex = 435 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7128,10 +5195,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 444 - Left = 5580 - TabIndex = 504 - Top = 3420 + Index = 374 + Left = 3180 + TabIndex = 434 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7141,10 +5208,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 443 - Left = 5340 - TabIndex = 503 - Top = 3420 + Index = 373 + Left = 2940 + TabIndex = 433 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7154,10 +5221,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 442 - Left = 5100 - TabIndex = 502 - Top = 3420 + Index = 372 + Left = 2700 + TabIndex = 432 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7167,10 +5234,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 441 - Left = 4860 - TabIndex = 501 - Top = 3420 + Index = 371 + Left = 2460 + TabIndex = 431 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7180,10 +5247,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 440 - Left = 4620 - TabIndex = 500 - Top = 3420 + Index = 370 + Left = 2220 + TabIndex = 430 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7193,10 +5260,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 439 - Left = 4380 - TabIndex = 499 - Top = 3420 + Index = 369 + Left = 1980 + TabIndex = 429 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7206,10 +5273,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 438 - Left = 4140 - TabIndex = 498 - Top = 3420 + Index = 368 + Left = 1740 + TabIndex = 428 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7219,10 +5286,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 437 - Left = 3900 - TabIndex = 497 - Top = 3420 + Index = 367 + Left = 1500 + TabIndex = 427 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7232,10 +5299,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 436 - Left = 3660 - TabIndex = 496 - Top = 3420 + Index = 366 + Left = 1260 + TabIndex = 426 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7245,10 +5312,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 435 - Left = 3420 - TabIndex = 495 - Top = 3420 + Index = 365 + Left = 1020 + TabIndex = 425 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7258,10 +5325,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 434 - Left = 3180 - TabIndex = 494 - Top = 3420 + Index = 364 + Left = 780 + TabIndex = 424 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7271,10 +5338,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 433 - Left = 2940 - TabIndex = 493 - Top = 3420 + Index = 363 + Left = 540 + TabIndex = 423 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7284,10 +5351,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 432 - Left = 2700 - TabIndex = 492 - Top = 3420 + Index = 362 + Left = 300 + TabIndex = 422 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7297,10 +5364,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 431 - Left = 2460 - TabIndex = 491 - Top = 3420 + Index = 361 + Left = 60 + TabIndex = 421 + Top = 2940 Visible = 0 'False Width = 135 End @@ -7310,10 +5377,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 430 - Left = 2220 - TabIndex = 490 - Top = 3420 + Index = 360 + Left = 7020 + TabIndex = 420 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7323,10 +5390,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 429 - Left = 1980 - TabIndex = 489 - Top = 3420 + Index = 359 + Left = 6780 + TabIndex = 419 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7336,10 +5403,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 428 - Left = 1740 - TabIndex = 488 - Top = 3420 + Index = 358 + Left = 6540 + TabIndex = 418 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7349,10 +5416,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 427 - Left = 1500 - TabIndex = 487 - Top = 3420 + Index = 357 + Left = 6300 + TabIndex = 417 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7362,10 +5429,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 426 - Left = 1260 - TabIndex = 486 - Top = 3420 + Index = 356 + Left = 6060 + TabIndex = 416 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7375,10 +5442,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 425 - Left = 1020 - TabIndex = 485 - Top = 3420 + Index = 355 + Left = 5820 + TabIndex = 415 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7388,10 +5455,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 424 - Left = 780 - TabIndex = 484 - Top = 3420 + Index = 354 + Left = 5580 + TabIndex = 414 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7401,10 +5468,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 423 - Left = 540 - TabIndex = 483 - Top = 3420 + Index = 353 + Left = 5340 + TabIndex = 413 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7414,10 +5481,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 422 - Left = 300 - TabIndex = 482 - Top = 3420 + Index = 352 + Left = 5100 + TabIndex = 412 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7427,10 +5494,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 421 - Left = 60 - TabIndex = 481 - Top = 3420 + Index = 351 + Left = 4860 + TabIndex = 411 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7440,10 +5507,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 420 - Left = 7020 - TabIndex = 480 - Top = 3180 + Index = 350 + Left = 4620 + TabIndex = 410 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7453,10 +5520,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 419 - Left = 6780 - TabIndex = 479 - Top = 3180 + Index = 349 + Left = 4380 + TabIndex = 409 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7466,10 +5533,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 418 - Left = 6540 - TabIndex = 478 - Top = 3180 + Index = 348 + Left = 4140 + TabIndex = 408 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7479,10 +5546,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 417 - Left = 6300 - TabIndex = 477 - Top = 3180 + Index = 347 + Left = 3900 + TabIndex = 407 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7492,10 +5559,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 416 - Left = 6060 - TabIndex = 476 - Top = 3180 + Index = 346 + Left = 3660 + TabIndex = 406 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7505,10 +5572,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 415 - Left = 5820 - TabIndex = 475 - Top = 3180 + Index = 345 + Left = 3420 + TabIndex = 405 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7518,10 +5585,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 414 - Left = 5580 - TabIndex = 474 - Top = 3180 + Index = 344 + Left = 3180 + TabIndex = 404 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7531,10 +5598,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 413 - Left = 5340 - TabIndex = 473 - Top = 3180 + Index = 343 + Left = 2940 + TabIndex = 403 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7544,10 +5611,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 412 - Left = 5100 - TabIndex = 472 - Top = 3180 + Index = 342 + Left = 2700 + TabIndex = 402 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7557,10 +5624,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 411 - Left = 4860 - TabIndex = 471 - Top = 3180 + Index = 341 + Left = 2460 + TabIndex = 401 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7570,10 +5637,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 410 - Left = 4620 - TabIndex = 470 - Top = 3180 + Index = 340 + Left = 2220 + TabIndex = 400 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7583,10 +5650,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 409 - Left = 4380 - TabIndex = 469 - Top = 3180 + Index = 339 + Left = 1980 + TabIndex = 399 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7596,10 +5663,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 408 - Left = 4140 - TabIndex = 468 - Top = 3180 + Index = 338 + Left = 1740 + TabIndex = 398 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7609,10 +5676,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 407 - Left = 3900 - TabIndex = 467 - Top = 3180 + Index = 337 + Left = 1500 + TabIndex = 397 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7622,10 +5689,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 406 - Left = 3660 - TabIndex = 466 - Top = 3180 + Index = 336 + Left = 1260 + TabIndex = 396 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7635,10 +5702,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 405 - Left = 3420 - TabIndex = 465 - Top = 3180 + Index = 335 + Left = 1020 + TabIndex = 395 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7648,10 +5715,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 404 - Left = 3180 - TabIndex = 464 - Top = 3180 + Index = 334 + Left = 780 + TabIndex = 394 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7661,10 +5728,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 403 - Left = 2940 - TabIndex = 463 - Top = 3180 + Index = 333 + Left = 540 + TabIndex = 393 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7674,10 +5741,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 402 - Left = 2700 - TabIndex = 462 - Top = 3180 + Index = 332 + Left = 300 + TabIndex = 392 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7687,10 +5754,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 401 - Left = 2460 - TabIndex = 461 - Top = 3180 + Index = 331 + Left = 60 + TabIndex = 391 + Top = 2700 Visible = 0 'False Width = 135 End @@ -7700,10 +5767,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 400 - Left = 2220 - TabIndex = 460 - Top = 3180 + Index = 330 + Left = 7020 + TabIndex = 390 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7713,10 +5780,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 399 - Left = 1980 - TabIndex = 459 - Top = 3180 + Index = 329 + Left = 6780 + TabIndex = 389 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7726,10 +5793,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 398 - Left = 1740 - TabIndex = 458 - Top = 3180 + Index = 328 + Left = 6540 + TabIndex = 388 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7739,10 +5806,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 397 - Left = 1500 - TabIndex = 457 - Top = 3180 + Index = 327 + Left = 6300 + TabIndex = 387 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7752,10 +5819,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 396 - Left = 1260 - TabIndex = 456 - Top = 3180 + Index = 326 + Left = 6060 + TabIndex = 386 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7765,10 +5832,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 395 - Left = 1020 - TabIndex = 455 - Top = 3180 + Index = 325 + Left = 5820 + TabIndex = 385 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7778,10 +5845,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 394 - Left = 780 - TabIndex = 454 - Top = 3180 + Index = 324 + Left = 5580 + TabIndex = 384 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7791,10 +5858,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 393 - Left = 540 - TabIndex = 453 - Top = 3180 + Index = 323 + Left = 5340 + TabIndex = 383 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7804,10 +5871,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 392 - Left = 300 - TabIndex = 452 - Top = 3180 + Index = 322 + Left = 5100 + TabIndex = 382 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7817,10 +5884,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 391 - Left = 60 - TabIndex = 451 - Top = 3180 + Index = 321 + Left = 4860 + TabIndex = 381 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7830,10 +5897,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 390 - Left = 7020 - TabIndex = 450 - Top = 2940 + Index = 320 + Left = 4620 + TabIndex = 380 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7843,10 +5910,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 389 - Left = 6780 - TabIndex = 449 - Top = 2940 + Index = 319 + Left = 4380 + TabIndex = 379 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7856,10 +5923,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 388 - Left = 6540 - TabIndex = 448 - Top = 2940 + Index = 318 + Left = 4140 + TabIndex = 378 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7869,10 +5936,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 387 - Left = 6300 - TabIndex = 447 - Top = 2940 + Index = 317 + Left = 3900 + TabIndex = 377 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7882,10 +5949,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 386 - Left = 6060 - TabIndex = 446 - Top = 2940 + Index = 316 + Left = 3660 + TabIndex = 376 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7895,10 +5962,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 385 - Left = 5820 - TabIndex = 445 - Top = 2940 + Index = 315 + Left = 3420 + TabIndex = 375 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7908,10 +5975,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 384 - Left = 5580 - TabIndex = 444 - Top = 2940 + Index = 314 + Left = 3180 + TabIndex = 374 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7921,10 +5988,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 383 - Left = 5340 - TabIndex = 443 - Top = 2940 + Index = 313 + Left = 2940 + TabIndex = 373 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7934,10 +6001,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 382 - Left = 5100 - TabIndex = 442 - Top = 2940 + Index = 312 + Left = 2700 + TabIndex = 372 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7947,10 +6014,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 381 - Left = 4860 - TabIndex = 441 - Top = 2940 + Index = 311 + Left = 2460 + TabIndex = 371 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7960,10 +6027,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 380 - Left = 4620 - TabIndex = 440 - Top = 2940 + Index = 310 + Left = 2220 + TabIndex = 370 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7973,10 +6040,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 379 - Left = 4380 - TabIndex = 439 - Top = 2940 + Index = 309 + Left = 1980 + TabIndex = 369 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7986,10 +6053,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 378 - Left = 4140 - TabIndex = 438 - Top = 2940 + Index = 308 + Left = 1740 + TabIndex = 368 + Top = 2460 Visible = 0 'False Width = 135 End @@ -7999,10 +6066,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 377 - Left = 3900 - TabIndex = 437 - Top = 2940 + Index = 307 + Left = 1500 + TabIndex = 367 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8012,10 +6079,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 376 - Left = 3660 - TabIndex = 436 - Top = 2940 + Index = 306 + Left = 1260 + TabIndex = 366 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8025,10 +6092,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 375 - Left = 3420 - TabIndex = 435 - Top = 2940 + Index = 305 + Left = 1020 + TabIndex = 365 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8038,10 +6105,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 374 - Left = 3180 - TabIndex = 434 - Top = 2940 + Index = 304 + Left = 780 + TabIndex = 364 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8051,10 +6118,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 373 - Left = 2940 - TabIndex = 433 - Top = 2940 + Index = 303 + Left = 540 + TabIndex = 363 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8064,10 +6131,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 372 - Left = 2700 - TabIndex = 432 - Top = 2940 + Index = 302 + Left = 300 + TabIndex = 362 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8077,10 +6144,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 371 - Left = 2460 - TabIndex = 431 - Top = 2940 + Index = 301 + Left = 60 + TabIndex = 361 + Top = 2460 Visible = 0 'False Width = 135 End @@ -8090,10 +6157,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 370 - Left = 2220 - TabIndex = 430 - Top = 2940 + Index = 300 + Left = 7020 + TabIndex = 360 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8103,10 +6170,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 369 - Left = 1980 - TabIndex = 429 - Top = 2940 + Index = 299 + Left = 6780 + TabIndex = 359 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8116,10 +6183,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 368 - Left = 1740 - TabIndex = 428 - Top = 2940 + Index = 298 + Left = 6540 + TabIndex = 358 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8129,10 +6196,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 367 - Left = 1500 - TabIndex = 427 - Top = 2940 + Index = 297 + Left = 6300 + TabIndex = 357 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8142,10 +6209,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 366 - Left = 1260 - TabIndex = 426 - Top = 2940 + Index = 296 + Left = 6060 + TabIndex = 356 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8155,10 +6222,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 365 - Left = 1020 - TabIndex = 425 - Top = 2940 + Index = 295 + Left = 5820 + TabIndex = 355 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8168,10 +6235,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 364 - Left = 780 - TabIndex = 424 - Top = 2940 + Index = 294 + Left = 5580 + TabIndex = 354 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8181,10 +6248,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 363 - Left = 540 - TabIndex = 423 - Top = 2940 + Index = 293 + Left = 5340 + TabIndex = 353 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8194,10 +6261,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 362 - Left = 300 - TabIndex = 422 - Top = 2940 + Index = 292 + Left = 5100 + TabIndex = 352 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8207,10 +6274,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 361 - Left = 60 - TabIndex = 421 - Top = 2940 + Index = 291 + Left = 4860 + TabIndex = 351 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8220,10 +6287,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 360 - Left = 7020 - TabIndex = 420 - Top = 2700 + Index = 290 + Left = 4620 + TabIndex = 350 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8233,10 +6300,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 359 - Left = 6780 - TabIndex = 419 - Top = 2700 + Index = 289 + Left = 4380 + TabIndex = 349 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8246,10 +6313,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 358 - Left = 6540 - TabIndex = 418 - Top = 2700 + Index = 288 + Left = 4140 + TabIndex = 348 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8259,10 +6326,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 357 - Left = 6300 - TabIndex = 417 - Top = 2700 + Index = 287 + Left = 3900 + TabIndex = 347 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8272,10 +6339,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 356 - Left = 6060 - TabIndex = 416 - Top = 2700 + Index = 286 + Left = 3660 + TabIndex = 346 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8285,10 +6352,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 355 - Left = 5820 - TabIndex = 415 - Top = 2700 + Index = 285 + Left = 3420 + TabIndex = 345 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8298,10 +6365,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 354 - Left = 5580 - TabIndex = 414 - Top = 2700 + Index = 284 + Left = 3180 + TabIndex = 344 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8311,10 +6378,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 353 - Left = 5340 - TabIndex = 413 - Top = 2700 + Index = 283 + Left = 2940 + TabIndex = 343 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8324,10 +6391,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 352 - Left = 5100 - TabIndex = 412 - Top = 2700 + Index = 282 + Left = 2700 + TabIndex = 342 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8337,10 +6404,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 351 - Left = 4860 - TabIndex = 411 - Top = 2700 + Index = 281 + Left = 2460 + TabIndex = 341 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8350,10 +6417,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 350 - Left = 4620 - TabIndex = 410 - Top = 2700 + Index = 280 + Left = 2220 + TabIndex = 340 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8363,10 +6430,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 349 - Left = 4380 - TabIndex = 409 - Top = 2700 + Index = 279 + Left = 1980 + TabIndex = 339 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8376,10 +6443,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 348 - Left = 4140 - TabIndex = 408 - Top = 2700 + Index = 278 + Left = 1740 + TabIndex = 338 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8389,10 +6456,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 347 - Left = 3900 - TabIndex = 407 - Top = 2700 + Index = 277 + Left = 1500 + TabIndex = 337 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8402,10 +6469,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 346 - Left = 3660 - TabIndex = 406 - Top = 2700 + Index = 276 + Left = 1260 + TabIndex = 336 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8415,10 +6482,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 345 - Left = 3420 - TabIndex = 405 - Top = 2700 + Index = 275 + Left = 1020 + TabIndex = 335 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8428,10 +6495,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 344 - Left = 3180 - TabIndex = 404 - Top = 2700 + Index = 274 + Left = 780 + TabIndex = 334 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8441,10 +6508,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 343 - Left = 2940 - TabIndex = 403 - Top = 2700 + Index = 273 + Left = 540 + TabIndex = 333 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8454,10 +6521,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 342 - Left = 2700 - TabIndex = 402 - Top = 2700 + Index = 272 + Left = 300 + TabIndex = 332 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8467,10 +6534,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 341 - Left = 2460 - TabIndex = 401 - Top = 2700 + Index = 271 + Left = 60 + TabIndex = 331 + Top = 2220 Visible = 0 'False Width = 135 End @@ -8480,10 +6547,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 340 - Left = 2220 - TabIndex = 400 - Top = 2700 + Index = 270 + Left = 7020 + TabIndex = 330 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8493,10 +6560,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 339 - Left = 1980 - TabIndex = 399 - Top = 2700 + Index = 269 + Left = 6780 + TabIndex = 329 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8506,10 +6573,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 338 - Left = 1740 - TabIndex = 398 - Top = 2700 + Index = 268 + Left = 6540 + TabIndex = 328 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8519,10 +6586,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 337 - Left = 1500 - TabIndex = 397 - Top = 2700 + Index = 267 + Left = 6300 + TabIndex = 327 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8532,10 +6599,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 336 - Left = 1260 - TabIndex = 396 - Top = 2700 + Index = 266 + Left = 6060 + TabIndex = 326 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8545,10 +6612,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 335 - Left = 1020 - TabIndex = 395 - Top = 2700 + Index = 265 + Left = 5820 + TabIndex = 325 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8558,10 +6625,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 334 - Left = 780 - TabIndex = 394 - Top = 2700 + Index = 264 + Left = 5580 + TabIndex = 324 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8571,10 +6638,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 333 - Left = 540 - TabIndex = 393 - Top = 2700 + Index = 263 + Left = 5340 + TabIndex = 323 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8584,10 +6651,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 332 - Left = 300 - TabIndex = 392 - Top = 2700 + Index = 262 + Left = 5100 + TabIndex = 322 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8597,10 +6664,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 331 - Left = 60 - TabIndex = 391 - Top = 2700 + Index = 261 + Left = 4860 + TabIndex = 321 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8610,10 +6677,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 330 - Left = 7020 - TabIndex = 390 - Top = 2460 + Index = 260 + Left = 4620 + TabIndex = 320 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8623,10 +6690,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 329 - Left = 6780 - TabIndex = 389 - Top = 2460 + Index = 259 + Left = 4380 + TabIndex = 319 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8636,10 +6703,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 328 - Left = 6540 - TabIndex = 388 - Top = 2460 + Index = 258 + Left = 4140 + TabIndex = 318 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8649,10 +6716,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 327 - Left = 6300 - TabIndex = 387 - Top = 2460 + Index = 257 + Left = 3900 + TabIndex = 317 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8662,10 +6729,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 326 - Left = 6060 - TabIndex = 386 - Top = 2460 + Index = 256 + Left = 3660 + TabIndex = 316 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8675,10 +6742,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 325 - Left = 5820 - TabIndex = 385 - Top = 2460 + Index = 255 + Left = 3420 + TabIndex = 315 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8688,10 +6755,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 324 - Left = 5580 - TabIndex = 384 - Top = 2460 + Index = 254 + Left = 3180 + TabIndex = 314 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8701,10 +6768,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 323 - Left = 5340 - TabIndex = 383 - Top = 2460 + Index = 253 + Left = 2940 + TabIndex = 313 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8714,10 +6781,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 322 - Left = 5100 - TabIndex = 382 - Top = 2460 + Index = 252 + Left = 2700 + TabIndex = 312 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8727,10 +6794,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 321 - Left = 4860 - TabIndex = 381 - Top = 2460 + Index = 251 + Left = 2460 + TabIndex = 311 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8740,10 +6807,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 320 - Left = 4620 - TabIndex = 380 - Top = 2460 + Index = 250 + Left = 2220 + TabIndex = 310 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8753,10 +6820,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 319 - Left = 4380 - TabIndex = 379 - Top = 2460 + Index = 249 + Left = 1980 + TabIndex = 309 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8766,10 +6833,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 318 - Left = 4140 - TabIndex = 378 - Top = 2460 + Index = 248 + Left = 1740 + TabIndex = 308 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8779,10 +6846,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 317 - Left = 3900 - TabIndex = 377 - Top = 2460 + Index = 247 + Left = 1500 + TabIndex = 307 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8792,10 +6859,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 316 - Left = 3660 - TabIndex = 376 - Top = 2460 + Index = 246 + Left = 1260 + TabIndex = 306 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8805,10 +6872,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 315 - Left = 3420 - TabIndex = 375 - Top = 2460 + Index = 245 + Left = 1020 + TabIndex = 305 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8818,10 +6885,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 314 - Left = 3180 - TabIndex = 374 - Top = 2460 + Index = 244 + Left = 780 + TabIndex = 304 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8831,10 +6898,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 313 - Left = 2940 - TabIndex = 373 - Top = 2460 + Index = 243 + Left = 540 + TabIndex = 303 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8844,10 +6911,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 312 - Left = 2700 - TabIndex = 372 - Top = 2460 + Index = 242 + Left = 300 + TabIndex = 302 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8857,10 +6924,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 311 - Left = 2460 - TabIndex = 371 - Top = 2460 + Index = 241 + Left = 60 + TabIndex = 301 + Top = 1980 Visible = 0 'False Width = 135 End @@ -8870,10 +6937,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 310 - Left = 2220 - TabIndex = 370 - Top = 2460 + Index = 240 + Left = 7020 + TabIndex = 300 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8883,10 +6950,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 309 - Left = 1980 - TabIndex = 369 - Top = 2460 + Index = 239 + Left = 6780 + TabIndex = 299 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8896,10 +6963,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 308 - Left = 1740 - TabIndex = 368 - Top = 2460 + Index = 238 + Left = 6540 + TabIndex = 298 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8909,10 +6976,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 307 - Left = 1500 - TabIndex = 367 - Top = 2460 + Index = 237 + Left = 6300 + TabIndex = 297 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8922,10 +6989,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 306 - Left = 1260 - TabIndex = 366 - Top = 2460 + Index = 236 + Left = 6060 + TabIndex = 296 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8935,10 +7002,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 305 - Left = 1020 - TabIndex = 365 - Top = 2460 + Index = 235 + Left = 5820 + TabIndex = 295 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8948,10 +7015,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 304 - Left = 780 - TabIndex = 364 - Top = 2460 + Index = 234 + Left = 5580 + TabIndex = 294 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8961,10 +7028,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 303 - Left = 540 - TabIndex = 363 - Top = 2460 + Index = 233 + Left = 5340 + TabIndex = 293 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8974,10 +7041,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 302 - Left = 300 - TabIndex = 362 - Top = 2460 + Index = 232 + Left = 5100 + TabIndex = 292 + Top = 1740 Visible = 0 'False Width = 135 End @@ -8987,10 +7054,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 301 - Left = 60 - TabIndex = 361 - Top = 2460 + Index = 231 + Left = 4860 + TabIndex = 291 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9000,10 +7067,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 300 - Left = 7020 - TabIndex = 360 - Top = 2220 + Index = 230 + Left = 4620 + TabIndex = 290 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9013,10 +7080,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 299 - Left = 6780 - TabIndex = 359 - Top = 2220 + Index = 229 + Left = 4380 + TabIndex = 289 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9026,10 +7093,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 298 - Left = 6540 - TabIndex = 358 - Top = 2220 + Index = 228 + Left = 4140 + TabIndex = 288 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9039,10 +7106,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 297 - Left = 6300 - TabIndex = 357 - Top = 2220 + Index = 227 + Left = 3900 + TabIndex = 287 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9052,10 +7119,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 296 - Left = 6060 - TabIndex = 356 - Top = 2220 + Index = 226 + Left = 3660 + TabIndex = 286 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9065,10 +7132,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 295 - Left = 5820 - TabIndex = 355 - Top = 2220 + Index = 225 + Left = 3420 + TabIndex = 285 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9078,10 +7145,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 294 - Left = 5580 - TabIndex = 354 - Top = 2220 + Index = 224 + Left = 3180 + TabIndex = 284 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9091,10 +7158,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 293 - Left = 5340 - TabIndex = 353 - Top = 2220 + Index = 223 + Left = 2940 + TabIndex = 283 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9104,10 +7171,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 292 - Left = 5100 - TabIndex = 352 - Top = 2220 + Index = 222 + Left = 2700 + TabIndex = 282 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9117,10 +7184,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 291 - Left = 4860 - TabIndex = 351 - Top = 2220 + Index = 221 + Left = 2460 + TabIndex = 281 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9130,10 +7197,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 290 - Left = 4620 - TabIndex = 350 - Top = 2220 + Index = 220 + Left = 2220 + TabIndex = 280 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9143,10 +7210,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 289 - Left = 4380 - TabIndex = 349 - Top = 2220 + Index = 219 + Left = 1980 + TabIndex = 279 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9156,10 +7223,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 288 - Left = 4140 - TabIndex = 348 - Top = 2220 + Index = 218 + Left = 1740 + TabIndex = 278 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9169,10 +7236,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 287 - Left = 3900 - TabIndex = 347 - Top = 2220 + Index = 217 + Left = 1500 + TabIndex = 277 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9182,10 +7249,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 286 - Left = 3660 - TabIndex = 346 - Top = 2220 + Index = 216 + Left = 1260 + TabIndex = 276 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9195,10 +7262,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 285 - Left = 3420 - TabIndex = 345 - Top = 2220 + Index = 215 + Left = 1020 + TabIndex = 275 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9208,10 +7275,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 284 - Left = 3180 - TabIndex = 344 - Top = 2220 + Index = 214 + Left = 780 + TabIndex = 274 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9221,10 +7288,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 283 - Left = 2940 - TabIndex = 343 - Top = 2220 + Index = 213 + Left = 540 + TabIndex = 273 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9234,10 +7301,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 282 - Left = 2700 - TabIndex = 342 - Top = 2220 + Index = 212 + Left = 300 + TabIndex = 272 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9247,10 +7314,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 281 - Left = 2460 - TabIndex = 341 - Top = 2220 + Index = 211 + Left = 60 + TabIndex = 271 + Top = 1740 Visible = 0 'False Width = 135 End @@ -9260,10 +7327,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 280 - Left = 2220 - TabIndex = 340 - Top = 2220 + Index = 210 + Left = 7020 + TabIndex = 270 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9273,10 +7340,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 279 - Left = 1980 - TabIndex = 339 - Top = 2220 + Index = 209 + Left = 6780 + TabIndex = 269 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9286,10 +7353,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 278 - Left = 1740 - TabIndex = 338 - Top = 2220 + Index = 208 + Left = 6540 + TabIndex = 268 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9299,10 +7366,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 277 - Left = 1500 - TabIndex = 337 - Top = 2220 + Index = 207 + Left = 6300 + TabIndex = 267 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9312,10 +7379,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 276 - Left = 1260 - TabIndex = 336 - Top = 2220 + Index = 206 + Left = 6060 + TabIndex = 266 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9325,10 +7392,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 275 - Left = 1020 - TabIndex = 335 - Top = 2220 + Index = 205 + Left = 5820 + TabIndex = 265 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9338,10 +7405,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 274 - Left = 780 - TabIndex = 334 - Top = 2220 + Index = 204 + Left = 5580 + TabIndex = 264 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9351,10 +7418,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 273 - Left = 540 - TabIndex = 333 - Top = 2220 + Index = 203 + Left = 5340 + TabIndex = 263 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9364,10 +7431,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 272 - Left = 300 - TabIndex = 332 - Top = 2220 + Index = 202 + Left = 5100 + TabIndex = 262 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9377,10 +7444,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 271 - Left = 60 - TabIndex = 331 - Top = 2220 + Index = 201 + Left = 4860 + TabIndex = 261 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9390,10 +7457,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 270 - Left = 7020 - TabIndex = 330 - Top = 1980 + Index = 200 + Left = 4620 + TabIndex = 260 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9403,10 +7470,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 269 - Left = 6780 - TabIndex = 329 - Top = 1980 + Index = 199 + Left = 4380 + TabIndex = 259 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9416,10 +7483,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 268 - Left = 6540 - TabIndex = 328 - Top = 1980 + Index = 198 + Left = 4140 + TabIndex = 258 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9429,10 +7496,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 267 - Left = 6300 - TabIndex = 327 - Top = 1980 + Index = 197 + Left = 3900 + TabIndex = 572 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9442,10 +7509,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 266 - Left = 6060 - TabIndex = 326 - Top = 1980 + Index = 196 + Left = 3660 + TabIndex = 573 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9455,10 +7522,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 265 - Left = 5820 - TabIndex = 325 - Top = 1980 + Index = 195 + Left = 3420 + TabIndex = 255 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9468,10 +7535,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 264 - Left = 5580 - TabIndex = 324 - Top = 1980 + Index = 194 + Left = 3180 + TabIndex = 574 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9481,10 +7548,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 263 - Left = 5340 - TabIndex = 323 - Top = 1980 + Index = 193 + Left = 2940 + TabIndex = 575 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9494,10 +7561,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 262 - Left = 5100 - TabIndex = 322 - Top = 1980 + Index = 192 + Left = 2700 + TabIndex = 576 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9507,10 +7574,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 261 - Left = 4860 - TabIndex = 321 - Top = 1980 + Index = 191 + Left = 2460 + TabIndex = 577 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9520,10 +7587,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 260 - Left = 4620 - TabIndex = 320 - Top = 1980 + Index = 190 + Left = 2220 + TabIndex = 578 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9533,10 +7600,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 259 - Left = 4380 - TabIndex = 319 - Top = 1980 + Index = 189 + Left = 1980 + TabIndex = 579 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9546,10 +7613,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 258 - Left = 4140 - TabIndex = 318 - Top = 1980 + Index = 188 + Left = 1740 + TabIndex = 580 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9559,10 +7626,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 257 - Left = 3900 - TabIndex = 317 - Top = 1980 + Index = 187 + Left = 1500 + TabIndex = 581 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9572,10 +7639,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 256 - Left = 3660 - TabIndex = 316 - Top = 1980 + Index = 186 + Left = 1260 + TabIndex = 582 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9585,10 +7652,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 255 - Left = 3420 - TabIndex = 315 - Top = 1980 + Index = 185 + Left = 1020 + TabIndex = 583 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9598,10 +7665,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 254 - Left = 3180 - TabIndex = 314 - Top = 1980 + Index = 184 + Left = 780 + TabIndex = 584 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9611,10 +7678,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 253 - Left = 2940 - TabIndex = 313 - Top = 1980 + Index = 183 + Left = 540 + TabIndex = 585 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9624,10 +7691,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 252 - Left = 2700 - TabIndex = 312 - Top = 1980 + Index = 182 + Left = 300 + TabIndex = 586 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9637,10 +7704,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 251 - Left = 2460 - TabIndex = 311 - Top = 1980 + Index = 181 + Left = 60 + TabIndex = 587 + Top = 1500 Visible = 0 'False Width = 135 End @@ -9650,10 +7717,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 250 - Left = 2220 - TabIndex = 310 - Top = 1980 + Index = 180 + Left = 7020 + TabIndex = 588 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9663,10 +7730,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 249 - Left = 1980 - TabIndex = 309 - Top = 1980 + Index = 179 + Left = 6780 + TabIndex = 589 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9676,10 +7743,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 248 - Left = 1740 - TabIndex = 308 - Top = 1980 + Index = 178 + Left = 6540 + TabIndex = 590 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9689,10 +7756,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 247 - Left = 1500 - TabIndex = 307 - Top = 1980 + Index = 177 + Left = 6300 + TabIndex = 591 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9702,10 +7769,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 246 - Left = 1260 - TabIndex = 306 - Top = 1980 + Index = 176 + Left = 6060 + TabIndex = 592 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9715,10 +7782,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 245 - Left = 1020 - TabIndex = 305 - Top = 1980 + Index = 175 + Left = 5820 + TabIndex = 593 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9728,10 +7795,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 244 - Left = 780 - TabIndex = 304 - Top = 1980 + Index = 174 + Left = 5580 + TabIndex = 594 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9741,10 +7808,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 243 - Left = 540 - TabIndex = 303 - Top = 1980 + Index = 173 + Left = 5340 + TabIndex = 595 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9754,10 +7821,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 242 - Left = 300 - TabIndex = 302 - Top = 1980 + Index = 172 + Left = 5100 + TabIndex = 596 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9767,10 +7834,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 241 - Left = 60 - TabIndex = 301 - Top = 1980 + Index = 171 + Left = 4860 + TabIndex = 597 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9780,10 +7847,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 240 - Left = 7020 - TabIndex = 300 - Top = 1740 + Index = 170 + Left = 4620 + TabIndex = 598 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9793,10 +7860,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 239 - Left = 6780 - TabIndex = 299 - Top = 1740 + Index = 169 + Left = 4380 + TabIndex = 599 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9806,10 +7873,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 238 - Left = 6540 - TabIndex = 298 - Top = 1740 + Index = 168 + Left = 4140 + TabIndex = 600 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9819,10 +7886,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 237 - Left = 6300 - TabIndex = 297 - Top = 1740 + Index = 167 + Left = 3900 + TabIndex = 601 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9832,10 +7899,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 236 - Left = 6060 - TabIndex = 296 - Top = 1740 + Index = 166 + Left = 3660 + TabIndex = 602 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9845,10 +7912,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 235 - Left = 5820 - TabIndex = 295 - Top = 1740 + Index = 165 + Left = 3420 + TabIndex = 603 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9858,10 +7925,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 234 - Left = 5580 - TabIndex = 294 - Top = 1740 + Index = 164 + Left = 3180 + TabIndex = 228 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9871,10 +7938,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 233 - Left = 5340 - TabIndex = 293 - Top = 1740 + Index = 163 + Left = 2940 + TabIndex = 227 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9884,10 +7951,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 232 - Left = 5100 - TabIndex = 292 - Top = 1740 + Index = 162 + Left = 2700 + TabIndex = 226 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9897,10 +7964,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 231 - Left = 4860 - TabIndex = 291 - Top = 1740 + Index = 161 + Left = 2460 + TabIndex = 225 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9910,10 +7977,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 230 - Left = 4620 - TabIndex = 290 - Top = 1740 + Index = 160 + Left = 2220 + TabIndex = 224 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9923,10 +7990,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 229 - Left = 4380 - TabIndex = 289 - Top = 1740 + Index = 159 + Left = 1980 + TabIndex = 223 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9936,10 +8003,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 228 - Left = 4140 - TabIndex = 288 - Top = 1740 + Index = 158 + Left = 1740 + TabIndex = 222 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9949,10 +8016,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 227 - Left = 3900 - TabIndex = 287 - Top = 1740 + Index = 157 + Left = 1500 + TabIndex = 221 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9962,10 +8029,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 226 - Left = 3660 - TabIndex = 286 - Top = 1740 + Index = 156 + Left = 1260 + TabIndex = 220 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9975,10 +8042,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 225 - Left = 3420 - TabIndex = 285 - Top = 1740 + Index = 155 + Left = 1020 + TabIndex = 219 + Top = 1260 Visible = 0 'False Width = 135 End @@ -9988,10 +8055,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 224 - Left = 3180 - TabIndex = 284 - Top = 1740 + Index = 154 + Left = 780 + TabIndex = 218 + Top = 1260 Visible = 0 'False Width = 135 End @@ -10001,10 +8068,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 223 - Left = 2940 - TabIndex = 283 - Top = 1740 + Index = 153 + Left = 540 + TabIndex = 217 + Top = 1260 Visible = 0 'False Width = 135 End @@ -10014,10 +8081,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 222 - Left = 2700 - TabIndex = 282 - Top = 1740 + Index = 152 + Left = 300 + TabIndex = 216 + Top = 1260 Visible = 0 'False Width = 135 End @@ -10027,10 +8094,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 221 - Left = 2460 - TabIndex = 281 - Top = 1740 + Index = 151 + Left = 60 + TabIndex = 215 + Top = 1260 Visible = 0 'False Width = 135 End @@ -10040,10 +8107,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 220 - Left = 2220 - TabIndex = 280 - Top = 1740 + Index = 150 + Left = 7020 + TabIndex = 214 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10053,10 +8120,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 219 - Left = 1980 - TabIndex = 279 - Top = 1740 + Index = 149 + Left = 6780 + TabIndex = 213 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10066,10 +8133,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 218 - Left = 1740 - TabIndex = 278 - Top = 1740 + Index = 148 + Left = 6540 + TabIndex = 212 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10079,10 +8146,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 217 - Left = 1500 - TabIndex = 277 - Top = 1740 + Index = 147 + Left = 6300 + TabIndex = 211 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10092,10 +8159,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 216 - Left = 1260 - TabIndex = 276 - Top = 1740 + Index = 146 + Left = 6060 + TabIndex = 210 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10105,10 +8172,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 215 - Left = 1020 - TabIndex = 275 - Top = 1740 + Index = 145 + Left = 5820 + TabIndex = 209 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10118,10 +8185,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 214 - Left = 780 - TabIndex = 274 - Top = 1740 + Index = 144 + Left = 5580 + TabIndex = 604 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10131,10 +8198,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 213 - Left = 540 - TabIndex = 273 - Top = 1740 + Index = 143 + Left = 5340 + TabIndex = 207 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10144,10 +8211,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 212 - Left = 300 - TabIndex = 272 - Top = 1740 + Index = 142 + Left = 5100 + TabIndex = 206 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10157,10 +8224,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 211 - Left = 60 - TabIndex = 271 - Top = 1740 + Index = 141 + Left = 4860 + TabIndex = 205 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10170,10 +8237,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 210 - Left = 7020 - TabIndex = 270 - Top = 1500 + Index = 140 + Left = 4620 + TabIndex = 204 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10183,10 +8250,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 209 - Left = 6780 - TabIndex = 269 - Top = 1500 + Index = 139 + Left = 4380 + TabIndex = 203 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10196,10 +8263,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 208 - Left = 6540 - TabIndex = 268 - Top = 1500 + Index = 138 + Left = 4140 + TabIndex = 202 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10209,10 +8276,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 207 - Left = 6300 - TabIndex = 267 - Top = 1500 + Index = 137 + Left = 3900 + TabIndex = 201 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10222,10 +8289,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 206 - Left = 6060 - TabIndex = 266 - Top = 1500 + Index = 136 + Left = 3660 + TabIndex = 200 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10235,10 +8302,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 205 - Left = 5820 - TabIndex = 265 - Top = 1500 + Index = 135 + Left = 3420 + TabIndex = 199 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10248,10 +8315,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 204 - Left = 5580 - TabIndex = 264 - Top = 1500 + Index = 134 + Left = 3180 + TabIndex = 198 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10261,10 +8328,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 203 - Left = 5340 - TabIndex = 263 - Top = 1500 + Index = 133 + Left = 2940 + TabIndex = 197 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10274,10 +8341,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 202 - Left = 5100 - TabIndex = 262 - Top = 1500 + Index = 132 + Left = 2700 + TabIndex = 196 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10287,10 +8354,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 201 - Left = 4860 - TabIndex = 261 - Top = 1500 + Index = 131 + Left = 2460 + TabIndex = 195 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10300,10 +8367,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 200 - Left = 4620 - TabIndex = 260 - Top = 1500 + Index = 130 + Left = 2220 + TabIndex = 194 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10313,10 +8380,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 199 - Left = 4380 - TabIndex = 259 - Top = 1500 + Index = 129 + Left = 1980 + TabIndex = 193 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10326,10 +8393,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 198 - Left = 4140 - TabIndex = 258 - Top = 1500 + Index = 128 + Left = 1740 + TabIndex = 192 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10339,10 +8406,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 197 - Left = 3900 - TabIndex = 572 - Top = 1500 + Index = 127 + Left = 1500 + TabIndex = 191 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10352,10 +8419,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 196 - Left = 3660 - TabIndex = 573 - Top = 1500 + Index = 126 + Left = 1260 + TabIndex = 190 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10365,10 +8432,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 195 - Left = 3420 - TabIndex = 255 - Top = 1500 + Index = 125 + Left = 1020 + TabIndex = 189 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10378,10 +8445,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 194 - Left = 3180 - TabIndex = 574 - Top = 1500 + Index = 124 + Left = 780 + TabIndex = 188 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10391,10 +8458,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 193 - Left = 2940 - TabIndex = 575 - Top = 1500 + Index = 123 + Left = 540 + TabIndex = 187 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10404,10 +8471,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 192 - Left = 2700 - TabIndex = 576 - Top = 1500 + Index = 122 + Left = 300 + TabIndex = 186 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10417,10 +8484,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 191 - Left = 2460 - TabIndex = 577 - Top = 1500 + Index = 121 + Left = 60 + TabIndex = 185 + Top = 1020 Visible = 0 'False Width = 135 End @@ -10430,10 +8497,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 190 - Left = 2220 - TabIndex = 578 - Top = 1500 + Index = 120 + Left = 7020 + TabIndex = 184 + Top = 780 Visible = 0 'False Width = 135 End @@ -10443,10 +8510,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 189 - Left = 1980 - TabIndex = 579 - Top = 1500 + Index = 119 + Left = 6780 + TabIndex = 183 + Top = 780 Visible = 0 'False Width = 135 End @@ -10456,10 +8523,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 188 - Left = 1740 - TabIndex = 580 - Top = 1500 + Index = 118 + Left = 6540 + TabIndex = 182 + Top = 780 Visible = 0 'False Width = 135 End @@ -10469,10 +8536,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 187 - Left = 1500 - TabIndex = 581 - Top = 1500 + Index = 117 + Left = 6300 + TabIndex = 181 + Top = 780 Visible = 0 'False Width = 135 End @@ -10482,10 +8549,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 186 - Left = 1260 - TabIndex = 582 - Top = 1500 + Index = 116 + Left = 6060 + TabIndex = 180 + Top = 780 Visible = 0 'False Width = 135 End @@ -10495,10 +8562,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 185 - Left = 1020 - TabIndex = 583 - Top = 1500 + Index = 115 + Left = 5820 + TabIndex = 179 + Top = 780 Visible = 0 'False Width = 135 End @@ -10508,10 +8575,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 184 - Left = 780 - TabIndex = 584 - Top = 1500 + Index = 114 + Left = 5580 + TabIndex = 178 + Top = 780 Visible = 0 'False Width = 135 End @@ -10521,10 +8588,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 183 - Left = 540 - TabIndex = 585 - Top = 1500 + Index = 113 + Left = 5340 + TabIndex = 177 + Top = 780 Visible = 0 'False Width = 135 End @@ -10534,10 +8601,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 182 - Left = 300 - TabIndex = 586 - Top = 1500 + Index = 112 + Left = 5100 + TabIndex = 176 + Top = 780 Visible = 0 'False Width = 135 End @@ -10547,10 +8614,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 181 - Left = 60 - TabIndex = 587 - Top = 1500 + Index = 111 + Left = 4860 + TabIndex = 175 + Top = 780 Visible = 0 'False Width = 135 End @@ -10560,10 +8627,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 180 - Left = 7020 - TabIndex = 588 - Top = 1260 + Index = 110 + Left = 4620 + TabIndex = 174 + Top = 780 Visible = 0 'False Width = 135 End @@ -10573,10 +8640,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 179 - Left = 6780 - TabIndex = 589 - Top = 1260 + Index = 109 + Left = 4380 + TabIndex = 173 + Top = 780 Visible = 0 'False Width = 135 End @@ -10586,10 +8653,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 178 - Left = 6540 - TabIndex = 590 - Top = 1260 + Index = 108 + Left = 4140 + TabIndex = 172 + Top = 780 Visible = 0 'False Width = 135 End @@ -10599,10 +8666,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 177 - Left = 6300 - TabIndex = 591 - Top = 1260 + Index = 107 + Left = 3900 + TabIndex = 171 + Top = 780 Visible = 0 'False Width = 135 End @@ -10612,10 +8679,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 176 - Left = 6060 - TabIndex = 592 - Top = 1260 + Index = 106 + Left = 3660 + TabIndex = 170 + Top = 780 Visible = 0 'False Width = 135 End @@ -10625,10 +8692,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 175 - Left = 5820 - TabIndex = 593 - Top = 1260 + Index = 105 + Left = 3420 + TabIndex = 169 + Top = 780 Visible = 0 'False Width = 135 End @@ -10638,10 +8705,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 174 - Left = 5580 - TabIndex = 594 - Top = 1260 + Index = 104 + Left = 3180 + TabIndex = 168 + Top = 780 Visible = 0 'False Width = 135 End @@ -10651,10 +8718,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 173 - Left = 5340 - TabIndex = 595 - Top = 1260 + Index = 103 + Left = 2940 + TabIndex = 167 + Top = 780 Visible = 0 'False Width = 135 End @@ -10664,10 +8731,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 172 - Left = 5100 - TabIndex = 596 - Top = 1260 + Index = 102 + Left = 2700 + TabIndex = 166 + Top = 780 Visible = 0 'False Width = 135 End @@ -10677,10 +8744,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 171 - Left = 4860 - TabIndex = 597 - Top = 1260 + Index = 101 + Left = 2460 + TabIndex = 165 + Top = 780 Visible = 0 'False Width = 135 End @@ -10690,10 +8757,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 170 - Left = 4620 - TabIndex = 598 - Top = 1260 + Index = 100 + Left = 2220 + TabIndex = 164 + Top = 780 Visible = 0 'False Width = 135 End @@ -10703,10 +8770,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 169 - Left = 4380 - TabIndex = 599 - Top = 1260 + Index = 99 + Left = 1980 + TabIndex = 163 + Top = 780 Visible = 0 'False Width = 135 End @@ -10716,10 +8783,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 168 - Left = 4140 - TabIndex = 600 - Top = 1260 + Index = 98 + Left = 1740 + TabIndex = 162 + Top = 780 Visible = 0 'False Width = 135 End @@ -10729,10 +8796,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 167 - Left = 3900 - TabIndex = 601 - Top = 1260 + Index = 97 + Left = 1500 + TabIndex = 161 + Top = 780 Visible = 0 'False Width = 135 End @@ -10742,10 +8809,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 166 - Left = 3660 - TabIndex = 602 - Top = 1260 + Index = 96 + Left = 1260 + TabIndex = 160 + Top = 780 Visible = 0 'False Width = 135 End @@ -10755,10 +8822,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 165 - Left = 3420 - TabIndex = 603 - Top = 1260 + Index = 95 + Left = 1020 + TabIndex = 159 + Top = 780 Visible = 0 'False Width = 135 End @@ -10768,10 +8835,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 164 - Left = 3180 - TabIndex = 228 - Top = 1260 + Index = 94 + Left = 780 + TabIndex = 158 + Top = 780 Visible = 0 'False Width = 135 End @@ -10781,10 +8848,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 163 - Left = 2940 - TabIndex = 227 - Top = 1260 + Index = 93 + Left = 540 + TabIndex = 157 + Top = 780 Visible = 0 'False Width = 135 End @@ -10794,10 +8861,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 162 - Left = 2700 - TabIndex = 226 - Top = 1260 + Index = 92 + Left = 300 + TabIndex = 156 + Top = 780 Visible = 0 'False Width = 135 End @@ -10807,10 +8874,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 161 - Left = 2460 - TabIndex = 225 - Top = 1260 + Index = 91 + Left = 60 + TabIndex = 155 + Top = 780 Visible = 0 'False Width = 135 End @@ -10820,10 +8887,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 160 - Left = 2220 - TabIndex = 224 - Top = 1260 + Index = 90 + Left = 7020 + TabIndex = 154 + Top = 540 Visible = 0 'False Width = 135 End @@ -10833,10 +8900,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 159 - Left = 1980 - TabIndex = 223 - Top = 1260 + Index = 89 + Left = 6780 + TabIndex = 153 + Top = 540 Visible = 0 'False Width = 135 End @@ -10846,10 +8913,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 158 - Left = 1740 - TabIndex = 222 - Top = 1260 + Index = 88 + Left = 6540 + TabIndex = 152 + Top = 540 Visible = 0 'False Width = 135 End @@ -10859,10 +8926,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 157 - Left = 1500 - TabIndex = 221 - Top = 1260 + Index = 87 + Left = 6300 + TabIndex = 151 + Top = 540 Visible = 0 'False Width = 135 End @@ -10872,10 +8939,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 156 - Left = 1260 - TabIndex = 220 - Top = 1260 + Index = 86 + Left = 6060 + TabIndex = 150 + Top = 540 Visible = 0 'False Width = 135 End @@ -10885,10 +8952,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 155 - Left = 1020 - TabIndex = 219 - Top = 1260 + Index = 85 + Left = 5820 + TabIndex = 149 + Top = 540 Visible = 0 'False Width = 135 End @@ -10898,10 +8965,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 154 - Left = 780 - TabIndex = 218 - Top = 1260 + Index = 84 + Left = 5580 + TabIndex = 148 + Top = 540 Visible = 0 'False Width = 135 End @@ -10911,10 +8978,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 153 - Left = 540 - TabIndex = 217 - Top = 1260 + Index = 83 + Left = 5340 + TabIndex = 147 + Top = 540 Visible = 0 'False Width = 135 End @@ -10924,10 +8991,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 152 - Left = 300 - TabIndex = 216 - Top = 1260 + Index = 82 + Left = 5100 + TabIndex = 146 + Top = 540 Visible = 0 'False Width = 135 End @@ -10937,10 +9004,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 151 - Left = 60 - TabIndex = 215 - Top = 1260 + Index = 81 + Left = 4860 + TabIndex = 145 + Top = 540 Visible = 0 'False Width = 135 End @@ -10950,10 +9017,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 150 - Left = 7020 - TabIndex = 214 - Top = 1020 + Index = 80 + Left = 4620 + TabIndex = 144 + Top = 540 Visible = 0 'False Width = 135 End @@ -10963,10 +9030,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 149 - Left = 6780 - TabIndex = 213 - Top = 1020 + Index = 79 + Left = 4380 + TabIndex = 143 + Top = 540 Visible = 0 'False Width = 135 End @@ -10976,10 +9043,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 148 - Left = 6540 - TabIndex = 212 - Top = 1020 + Index = 78 + Left = 4140 + TabIndex = 142 + Top = 540 Visible = 0 'False Width = 135 End @@ -10989,10 +9056,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 147 - Left = 6300 - TabIndex = 211 - Top = 1020 + Index = 77 + Left = 3900 + TabIndex = 141 + Top = 540 Visible = 0 'False Width = 135 End @@ -11002,10 +9069,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 146 - Left = 6060 - TabIndex = 210 - Top = 1020 + Index = 76 + Left = 3660 + TabIndex = 140 + Top = 540 Visible = 0 'False Width = 135 End @@ -11015,10 +9082,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 145 - Left = 5820 - TabIndex = 209 - Top = 1020 + Index = 75 + Left = 3420 + TabIndex = 139 + Top = 540 Visible = 0 'False Width = 135 End @@ -11028,10 +9095,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 144 - Left = 5580 - TabIndex = 604 - Top = 1020 + Index = 74 + Left = 3180 + TabIndex = 138 + Top = 540 Visible = 0 'False Width = 135 End @@ -11041,10 +9108,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 143 - Left = 5340 - TabIndex = 207 - Top = 1020 + Index = 73 + Left = 2940 + TabIndex = 137 + Top = 540 Visible = 0 'False Width = 135 End @@ -11054,10 +9121,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 142 - Left = 5100 - TabIndex = 206 - Top = 1020 + Index = 72 + Left = 2700 + TabIndex = 136 + Top = 540 Visible = 0 'False Width = 135 End @@ -11067,10 +9134,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 141 - Left = 4860 - TabIndex = 205 - Top = 1020 + Index = 71 + Left = 2460 + TabIndex = 135 + Top = 540 Visible = 0 'False Width = 135 End @@ -11080,10 +9147,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 140 - Left = 4620 - TabIndex = 204 - Top = 1020 + Index = 70 + Left = 2220 + TabIndex = 134 + Top = 540 Visible = 0 'False Width = 135 End @@ -11093,10 +9160,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 139 - Left = 4380 - TabIndex = 203 - Top = 1020 + Index = 69 + Left = 1980 + TabIndex = 133 + Top = 540 Visible = 0 'False Width = 135 End @@ -11106,10 +9173,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 138 - Left = 4140 - TabIndex = 202 - Top = 1020 + Index = 68 + Left = 1740 + TabIndex = 132 + Top = 540 Visible = 0 'False Width = 135 End @@ -11119,10 +9186,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 137 - Left = 3900 - TabIndex = 201 - Top = 1020 + Index = 67 + Left = 1500 + TabIndex = 131 + Top = 540 Visible = 0 'False Width = 135 End @@ -11132,10 +9199,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 136 - Left = 3660 - TabIndex = 200 - Top = 1020 + Index = 66 + Left = 1260 + TabIndex = 130 + Top = 540 Visible = 0 'False Width = 135 End @@ -11145,10 +9212,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 135 - Left = 3420 - TabIndex = 199 - Top = 1020 + Index = 65 + Left = 1020 + TabIndex = 129 + Top = 540 Visible = 0 'False Width = 135 End @@ -11158,10 +9225,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 134 - Left = 3180 - TabIndex = 198 - Top = 1020 + Index = 64 + Left = 780 + TabIndex = 128 + Top = 540 Visible = 0 'False Width = 135 End @@ -11171,10 +9238,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 133 - Left = 2940 - TabIndex = 197 - Top = 1020 + Index = 63 + Left = 540 + TabIndex = 127 + Top = 540 Visible = 0 'False Width = 135 End @@ -11184,10 +9251,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 132 - Left = 2700 - TabIndex = 196 - Top = 1020 + Index = 62 + Left = 300 + TabIndex = 126 + Top = 540 Visible = 0 'False Width = 135 End @@ -11197,10 +9264,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 131 - Left = 2460 - TabIndex = 195 - Top = 1020 + Index = 61 + Left = 60 + TabIndex = 125 + Top = 540 Visible = 0 'False Width = 135 End @@ -11210,10 +9277,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 130 - Left = 2220 - TabIndex = 194 - Top = 1020 + Index = 60 + Left = 7020 + TabIndex = 124 + Top = 300 Visible = 0 'False Width = 135 End @@ -11223,10 +9290,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 129 - Left = 1980 - TabIndex = 193 - Top = 1020 + Index = 59 + Left = 6780 + TabIndex = 123 + Top = 300 Visible = 0 'False Width = 135 End @@ -11236,10 +9303,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 128 - Left = 1740 - TabIndex = 192 - Top = 1020 + Index = 58 + Left = 6540 + TabIndex = 122 + Top = 300 Visible = 0 'False Width = 135 End @@ -11249,10 +9316,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 127 - Left = 1500 - TabIndex = 191 - Top = 1020 + Index = 57 + Left = 6300 + TabIndex = 121 + Top = 300 Visible = 0 'False Width = 135 End @@ -11262,10 +9329,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 126 - Left = 1260 - TabIndex = 190 - Top = 1020 + Index = 56 + Left = 6060 + TabIndex = 120 + Top = 300 Visible = 0 'False Width = 135 End @@ -11275,10 +9342,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 125 - Left = 1020 - TabIndex = 189 - Top = 1020 + Index = 55 + Left = 5820 + TabIndex = 119 + Top = 300 Visible = 0 'False Width = 135 End @@ -11288,10 +9355,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 124 - Left = 780 - TabIndex = 188 - Top = 1020 + Index = 54 + Left = 5580 + TabIndex = 118 + Top = 300 Visible = 0 'False Width = 135 End @@ -11301,10 +9368,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 123 - Left = 540 - TabIndex = 187 - Top = 1020 + Index = 53 + Left = 5340 + TabIndex = 117 + Top = 300 Visible = 0 'False Width = 135 End @@ -11314,10 +9381,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 122 - Left = 300 - TabIndex = 186 - Top = 1020 + Index = 52 + Left = 5100 + TabIndex = 116 + Top = 300 Visible = 0 'False Width = 135 End @@ -11327,10 +9394,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 121 - Left = 60 - TabIndex = 185 - Top = 1020 + Index = 51 + Left = 4860 + TabIndex = 115 + Top = 300 Visible = 0 'False Width = 135 End @@ -11340,10 +9407,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 120 - Left = 7020 - TabIndex = 184 - Top = 780 + Index = 50 + Left = 4620 + TabIndex = 114 + Top = 300 Visible = 0 'False Width = 135 End @@ -11353,10 +9420,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 119 - Left = 6780 - TabIndex = 183 - Top = 780 + Index = 49 + Left = 4380 + TabIndex = 113 + Top = 300 Visible = 0 'False Width = 135 End @@ -11366,10 +9433,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 118 - Left = 6540 - TabIndex = 182 - Top = 780 + Index = 48 + Left = 4140 + TabIndex = 112 + Top = 300 Visible = 0 'False Width = 135 End @@ -11379,10 +9446,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 117 - Left = 6300 - TabIndex = 181 - Top = 780 + Index = 47 + Left = 3900 + TabIndex = 111 + Top = 300 Visible = 0 'False Width = 135 End @@ -11392,10 +9459,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 116 - Left = 6060 - TabIndex = 180 - Top = 780 + Index = 46 + Left = 3660 + TabIndex = 110 + Top = 300 Visible = 0 'False Width = 135 End @@ -11405,10 +9472,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 115 - Left = 5820 - TabIndex = 179 - Top = 780 + Index = 45 + Left = 3420 + TabIndex = 109 + Top = 300 Visible = 0 'False Width = 135 End @@ -11418,10 +9485,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 114 - Left = 5580 - TabIndex = 178 - Top = 780 + Index = 44 + Left = 3180 + TabIndex = 108 + Top = 300 Visible = 0 'False Width = 135 End @@ -11431,10 +9498,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 113 - Left = 5340 - TabIndex = 177 - Top = 780 + Index = 43 + Left = 2940 + TabIndex = 107 + Top = 300 Visible = 0 'False Width = 135 End @@ -11444,10 +9511,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 112 - Left = 5100 - TabIndex = 176 - Top = 780 + Index = 42 + Left = 2700 + TabIndex = 106 + Top = 300 Visible = 0 'False Width = 135 End @@ -11457,10 +9524,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 111 - Left = 4860 - TabIndex = 175 - Top = 780 + Index = 41 + Left = 2460 + TabIndex = 105 + Top = 300 Visible = 0 'False Width = 135 End @@ -11470,10 +9537,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 110 - Left = 4620 - TabIndex = 174 - Top = 780 + Index = 40 + Left = 2220 + TabIndex = 104 + Top = 300 Visible = 0 'False Width = 135 End @@ -11483,10 +9550,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 109 - Left = 4380 - TabIndex = 173 - Top = 780 + Index = 39 + Left = 1980 + TabIndex = 103 + Top = 300 Visible = 0 'False Width = 135 End @@ -11496,10 +9563,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 108 - Left = 4140 - TabIndex = 172 - Top = 780 + Index = 38 + Left = 1740 + TabIndex = 102 + Top = 300 Visible = 0 'False Width = 135 End @@ -11509,10 +9576,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 107 - Left = 3900 - TabIndex = 171 - Top = 780 + Index = 37 + Left = 1500 + TabIndex = 101 + Top = 300 Visible = 0 'False Width = 135 End @@ -11522,10 +9589,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 106 - Left = 3660 - TabIndex = 170 - Top = 780 + Index = 36 + Left = 1260 + TabIndex = 100 + Top = 300 Visible = 0 'False Width = 135 End @@ -11535,10 +9602,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 105 - Left = 3420 - TabIndex = 169 - Top = 780 + Index = 35 + Left = 1020 + TabIndex = 99 + Top = 300 Visible = 0 'False Width = 135 End @@ -11548,10 +9615,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 104 - Left = 3180 - TabIndex = 168 - Top = 780 + Index = 34 + Left = 780 + TabIndex = 98 + Top = 300 Visible = 0 'False Width = 135 End @@ -11561,10 +9628,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 103 - Left = 2940 - TabIndex = 167 - Top = 780 + Index = 33 + Left = 540 + TabIndex = 97 + Top = 300 Visible = 0 'False Width = 135 End @@ -11574,10 +9641,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 102 - Left = 2700 - TabIndex = 166 - Top = 780 + Index = 32 + Left = 300 + TabIndex = 96 + Top = 300 Visible = 0 'False Width = 135 End @@ -11587,10 +9654,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 101 - Left = 2460 - TabIndex = 165 - Top = 780 + Index = 31 + Left = 60 + TabIndex = 95 + Top = 300 Visible = 0 'False Width = 135 End @@ -11600,10 +9667,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 100 - Left = 2220 - TabIndex = 164 - Top = 780 + Index = 30 + Left = 7020 + TabIndex = 91 + Top = 60 Visible = 0 'False Width = 135 End @@ -11613,10 +9680,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 99 - Left = 1980 - TabIndex = 163 - Top = 780 + Index = 29 + Left = 6780 + TabIndex = 90 + Top = 60 Visible = 0 'False Width = 135 End @@ -11626,10 +9693,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 98 - Left = 1740 - TabIndex = 162 - Top = 780 + Index = 28 + Left = 6540 + TabIndex = 89 + Top = 60 Visible = 0 'False Width = 135 End @@ -11639,10 +9706,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 97 - Left = 1500 - TabIndex = 161 - Top = 780 + Index = 27 + Left = 6300 + TabIndex = 88 + Top = 60 Visible = 0 'False Width = 135 End @@ -11652,10 +9719,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 96 - Left = 1260 - TabIndex = 160 - Top = 780 + Index = 26 + Left = 6060 + TabIndex = 87 + Top = 60 Visible = 0 'False Width = 135 End @@ -11665,10 +9732,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 95 - Left = 1020 - TabIndex = 159 - Top = 780 + Index = 25 + Left = 5820 + TabIndex = 86 + Top = 60 Visible = 0 'False Width = 135 End @@ -11678,10 +9745,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 94 - Left = 780 - TabIndex = 158 - Top = 780 + Index = 24 + Left = 5580 + TabIndex = 85 + Top = 60 Visible = 0 'False Width = 135 End @@ -11691,10 +9758,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 93 - Left = 540 - TabIndex = 157 - Top = 780 + Index = 23 + Left = 5340 + TabIndex = 84 + Top = 60 Visible = 0 'False Width = 135 End @@ -11704,10 +9771,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 92 - Left = 300 - TabIndex = 156 - Top = 780 + Index = 22 + Left = 5100 + TabIndex = 83 + Top = 60 Visible = 0 'False Width = 135 End @@ -11717,10 +9784,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 91 - Left = 60 - TabIndex = 155 - Top = 780 + Index = 21 + Left = 4860 + TabIndex = 82 + Top = 60 Visible = 0 'False Width = 135 End @@ -11730,10 +9797,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 90 - Left = 7020 - TabIndex = 154 - Top = 540 + Index = 20 + Left = 4620 + TabIndex = 81 + Top = 60 Visible = 0 'False Width = 135 End @@ -11743,10 +9810,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 89 - Left = 6780 - TabIndex = 153 - Top = 540 + Index = 19 + Left = 4380 + TabIndex = 80 + Top = 60 Visible = 0 'False Width = 135 End @@ -11756,10 +9823,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 88 - Left = 6540 - TabIndex = 152 - Top = 540 + Index = 18 + Left = 4140 + TabIndex = 79 + Top = 60 Visible = 0 'False Width = 135 End @@ -11769,10 +9836,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 87 - Left = 6300 - TabIndex = 151 - Top = 540 + Index = 17 + Left = 3900 + TabIndex = 78 + Top = 60 Visible = 0 'False Width = 135 End @@ -11782,10 +9849,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 86 - Left = 6060 - TabIndex = 150 - Top = 540 + Index = 16 + Left = 3660 + TabIndex = 77 + Top = 60 Visible = 0 'False Width = 135 End @@ -11795,10 +9862,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 85 - Left = 5820 - TabIndex = 149 - Top = 540 + Index = 15 + Left = 3420 + TabIndex = 76 + Top = 60 Visible = 0 'False Width = 135 End @@ -11808,10 +9875,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 84 - Left = 5580 - TabIndex = 148 - Top = 540 + Index = 14 + Left = 3180 + TabIndex = 75 + Top = 60 Visible = 0 'False Width = 135 End @@ -11821,10 +9888,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 83 - Left = 5340 - TabIndex = 147 - Top = 540 + Index = 13 + Left = 2940 + TabIndex = 74 + Top = 60 Visible = 0 'False Width = 135 End @@ -11834,10 +9901,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 82 - Left = 5100 - TabIndex = 146 - Top = 540 + Index = 12 + Left = 2700 + TabIndex = 73 + Top = 60 Visible = 0 'False Width = 135 End @@ -11847,10 +9914,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 81 - Left = 4860 - TabIndex = 145 - Top = 540 + Index = 11 + Left = 2460 + TabIndex = 72 + Top = 60 Visible = 0 'False Width = 135 End @@ -11860,10 +9927,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 80 - Left = 4620 - TabIndex = 144 - Top = 540 + Index = 10 + Left = 2220 + TabIndex = 71 + Top = 60 Visible = 0 'False Width = 135 End @@ -11873,10 +9940,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 79 - Left = 4380 - TabIndex = 143 - Top = 540 + Index = 9 + Left = 1980 + TabIndex = 70 + Top = 60 Visible = 0 'False Width = 135 End @@ -11886,10 +9953,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 78 - Left = 4140 - TabIndex = 142 - Top = 540 + Index = 8 + Left = 1740 + TabIndex = 69 + Top = 60 Visible = 0 'False Width = 135 End @@ -11899,10 +9966,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 77 - Left = 3900 - TabIndex = 141 - Top = 540 + Index = 7 + Left = 1500 + TabIndex = 68 + Top = 60 Visible = 0 'False Width = 135 End @@ -11912,10 +9979,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 76 - Left = 3660 - TabIndex = 140 - Top = 540 + Index = 6 + Left = 1260 + TabIndex = 67 + Top = 60 Visible = 0 'False Width = 135 End @@ -11925,10 +9992,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 75 - Left = 3420 - TabIndex = 139 - Top = 540 + Index = 5 + Left = 1020 + TabIndex = 66 + Top = 60 Visible = 0 'False Width = 135 End @@ -11938,10 +10005,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 74 - Left = 3180 - TabIndex = 138 - Top = 540 + Index = 4 + Left = 780 + TabIndex = 65 + Top = 60 Visible = 0 'False Width = 135 End @@ -11951,10 +10018,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 73 - Left = 2940 - TabIndex = 137 - Top = 540 + Index = 3 + Left = 540 + TabIndex = 64 + Top = 60 Visible = 0 'False Width = 135 End @@ -11964,10 +10031,10 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 72 - Left = 2700 - TabIndex = 136 - Top = 540 + Index = 2 + Left = 300 + TabIndex = 63 + Top = 60 Visible = 0 'False Width = 135 End @@ -11977,1511 +10044,2658 @@ Begin VB.Form frmMain BorderStyle = 1 'Fixed Single ForeColor = &H00000000& Height = 135 - Index = 71 - Left = 2460 - TabIndex = 135 - Top = 540 + Index = 1 + Left = 60 + TabIndex = 62 + Top = 60 Visible = 0 'False Width = 135 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 70 - Left = 2220 - TabIndex = 134 - Top = 540 - Visible = 0 'False - Width = 135 + End + Begin MSComctlLib.ListView lvMapLoc + Height = 2175 + Left = 7470 + TabIndex = 624 + Top = 4440 + Width = 5625 + _ExtentX = 9922 + _ExtentY = 3836 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 0 + NumItems = 0 + End + Begin VB.Frame Frame4 + Appearance = 0 'Flat + Caption = "Presets" + ForeColor = &H80000008& + Height = 4335 + Left = 10440 + TabIndex = 256 + Top = 120 + Width = 2655 + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 9 + Left = 2220 + TabIndex = 254 + Top = 3840 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 8 + Left = 2220 + TabIndex = 252 + Top = 3480 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 7 + Left = 2220 + TabIndex = 250 + Top = 3120 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 6 + Left = 2220 + TabIndex = 248 + Top = 2760 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 5 + Left = 2220 + TabIndex = 246 + Top = 2400 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 4 + Left = 2220 + TabIndex = 244 + Top = 2040 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 3 + Left = 2220 + TabIndex = 242 + Top = 1680 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 2 + Left = 2220 + TabIndex = 240 + Top = 1320 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 1 + Left = 2220 + TabIndex = 238 + Top = 960 + Width = 315 + End + Begin VB.CommandButton cmdEditPreset + Caption = "!" + Height = 375 + Index = 0 + Left = 2220 + TabIndex = 236 + Top = 600 + Width = 315 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Lava Fields" + Height = 375 + Index = 9 + Left = 120 + TabIndex = 253 + Top = 3840 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Ancient Ruin" + Height = 375 + Index = 8 + Left = 120 + TabIndex = 251 + Top = 3480 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Storm Fortress" + Height = 375 + Index = 7 + Left = 120 + TabIndex = 249 + Top = 3120 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Black Fortress" + Height = 375 + Index = 6 + Left = 120 + TabIndex = 247 + Top = 2760 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Commander Markus" + Height = 375 + Index = 5 + Left = 120 + TabIndex = 245 + Top = 2400 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Rhudar" + Height = 375 + Index = 4 + Left = 120 + TabIndex = 243 + Top = 2040 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Lost City" + Height = 375 + Index = 3 + Left = 120 + TabIndex = 241 + Top = 1680 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Arlysia" + Height = 375 + Index = 2 + Left = 120 + TabIndex = 239 + Top = 1320 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Khazarad" + Height = 375 + Index = 1 + Left = 120 + TabIndex = 237 + Top = 960 + Width = 2055 + End + Begin VB.CommandButton cmdMapPreset + Caption = "Town Square" + Height = 375 + Index = 0 + Left = 120 + TabIndex = 235 + Top = 600 + Width = 2055 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 69 + Begin VB.CommandButton cmdResetPresets + Caption = "Reset" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 Left = 1980 - TabIndex = 133 - Top = 540 - Visible = 0 'False - Width = 135 + TabIndex = 234 + Top = 180 + Width = 555 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 68 - Left = 1740 - TabIndex = 132 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapPresetSelect + Caption = "5" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 4 + Left = 1560 + TabIndex = 233 + Top = 180 + Width = 375 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 67 - Left = 1500 - TabIndex = 131 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapPresetSelect + Caption = "4" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 3 + Left = 1200 + TabIndex = 232 + Top = 180 + Width = 375 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 66 - Left = 1260 - TabIndex = 130 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapPresetSelect + Caption = "3" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 2 + Left = 840 + TabIndex = 231 + Top = 180 + Width = 375 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 65 - Left = 1020 - TabIndex = 129 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapPresetSelect + Caption = "2" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 1 + Left = 480 + TabIndex = 230 + Top = 180 + Width = 375 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 64 - Left = 780 - TabIndex = 128 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapPresetSelect + Caption = "1" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 0 + Left = 120 + TabIndex = 229 + Top = 180 + Width = 375 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 63 - Left = 540 - TabIndex = 127 - Top = 540 - Visible = 0 'False - Width = 135 + End + Begin VB.Frame Frame2 + Appearance = 0 'Flat + ForeColor = &H80000008& + Height = 4335 + Left = 7470 + TabIndex = 605 + Top = 120 + Width = 3015 + Begin VB.CommandButton cmdQ + Caption = "?" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Left = 2220 + TabIndex = 1193 + Top = 2760 + Width = 195 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 62 - Left = 300 - TabIndex = 126 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.OptionButton optAlsoMark + Caption = "None" + ForeColor = &H80000008& + Height = 195 + Index = 0 + Left = 2040 + TabIndex = 1191 + Top = 1440 + Value = -1 'True + Width = 795 + End + Begin VB.OptionButton optAlsoMark + Caption = "Shops" + ForeColor = &H80000008& + Height = 195 + Index = 1 + Left = 2040 + TabIndex = 1190 + Top = 1680 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 61 - Left = 60 - TabIndex = 125 - Top = 540 - Visible = 0 'False - Width = 135 + Begin VB.OptionButton optAlsoMark + Caption = "Spells" + ForeColor = &H80000008& + Height = 195 + Index = 2 + Left = 2040 + TabIndex = 1189 + Top = 1920 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 60 - Left = 7020 - TabIndex = 124 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapLastRoom + Caption = "L&ast Room" + Height = 375 + Left = 1560 + TabIndex = 608 + ToolTipText = "Goes back one room" + Top = 3900 + Width = 1275 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 59 - Left = 6780 - TabIndex = 123 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Don't Show Tooltips" + Height = 195 + Index = 5 + Left = 120 + TabIndex = 609 + Top = 2490 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 58 - Left = 6540 - TabIndex = 122 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdDrawMap + Caption = "&Redraw" + Height = 375 + Index = 1 + Left = 1440 + TabIndex = 613 + Top = 660 + Width = 1035 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 57 - Left = 6300 - TabIndex = 121 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Don't Mark Commands" + Height = 195 + Index = 4 + Left = 120 + TabIndex = 614 + Top = 2250 + Width = 2115 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 56 - Left = 6060 - TabIndex = 120 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Don't Mark NPCs" + Height = 195 + Index = 3 + Left = 120 + TabIndex = 615 + Top = 1995 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 55 - Left = 5820 - TabIndex = 119 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Don't Mark Lairs" + Height = 195 + Index = 2 + Left = 120 + TabIndex = 616 + Top = 1740 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 54 - Left = 5580 - TabIndex = 118 + Begin VB.TextBox txtRoomMap + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 345 + Left = 420 + MaxLength = 5 + TabIndex = 617 + Text = "1" Top = 300 - Visible = 0 'False - Width = 135 + Width = 1035 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 53 - Left = 5340 - TabIndex = 117 + Begin VB.TextBox txtRoomRoom + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 345 + Left = 1440 + MaxLength = 5 + TabIndex = 618 + Text = "1" Top = 300 - Visible = 0 'False - Width = 135 + Width = 1035 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 52 - Left = 5100 - TabIndex = 116 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdDrawMap + Caption = "&Draw" + Height = 375 + Index = 0 + Left = 420 + TabIndex = 619 + Top = 660 + Width = 1035 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 51 - Left = 4860 - TabIndex = 115 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Follow Map Changes" + Height = 255 + Index = 0 + Left = 120 + TabIndex = 620 + Top = 1230 + Width = 1815 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 50 - Left = 4620 - TabIndex = 114 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Don't Follow Hidden" + Height = 195 + Index = 1 + Left = 120 + TabIndex = 621 + Top = 1500 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 49 - Left = 4380 - TabIndex = 113 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapShowUnused + Caption = "S&how Blocks" + Height = 315 + Left = 1560 + TabIndex = 606 + Top = 3600 + Width = 1275 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 48 - Left = 4140 - TabIndex = 112 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapFindText + Caption = "Find &Next" + Height = 435 + Index = 1 + Left = 1560 + TabIndex = 611 + Top = 3180 + Width = 1275 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 47 - Left = 3900 - TabIndex = 111 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapOpenExternal + Caption = "E&xternal Map" + Height = 375 + Left = 180 + TabIndex = 607 + Top = 3900 + Width = 1395 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 46 - Left = 3660 - TabIndex = 110 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdViewMapLegend + Caption = "Help/&Legend" + Height = 315 + Left = 180 + TabIndex = 610 + Top = 3600 + Width = 1395 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 45 - Left = 3420 - TabIndex = 109 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdMapFindText + Caption = "&Find Room" + Height = 435 + Index = 0 + Left = 180 + TabIndex = 612 + Top = 3180 + Width = 1395 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 44 - Left = 3180 - TabIndex = 108 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CheckBox chkMapOptions + Caption = "Allow Duplicate Rooms" + ForeColor = &H80000008& + Height = 195 + Index = 9 + Left = 120 + TabIndex = 1194 + Top = 2760 + Width = 2235 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 43 - Left = 2940 - TabIndex = 107 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.Label Label1 + AutoSize = -1 'True + Caption = "Also Mark:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H80000008& + Height = 195 + Left = 2040 + TabIndex = 1192 + Top = 1200 + Width = 915 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 42 - Left = 2700 - TabIndex = 106 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Map" + Height = 195 + Index = 19 + Left = 420 + TabIndex = 622 + Top = 120 + Width = 1035 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 41 - Left = 2460 - TabIndex = 105 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Room" + Height = 195 + Index = 20 + Left = 1440 + TabIndex = 623 + Top = 120 + Width = 1035 + End + End + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Place your cursor in the black box below to move around the map with your keypad." + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 165 + Index = 21 + Left = 120 + TabIndex = 1188 + Top = 5775 + Width = 5070 + End + Begin VB.Label lblMapBG + Alignment = 2 'Center + BackColor = &H00000000& + BeginProperty Font + Name = "MS Sans Serif" + Size = 13.5 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00FFFFFF& + Height = 5565 + Left = 120 + TabIndex = 625 + Top = 180 + Width = 7245 + End + Begin VB.Label Label41 + Appearance = 0 'Flat + ForeColor = &H80000008& + Height = 135 + Left = 120 + TabIndex = 626 + Top = 240 + Width = 4875 + End + End + Begin VB.Frame framNav + Caption = "Shops" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 6735 + Index = 9 + Left = 60 + TabIndex = 627 + Top = 1200 + Visible = 0 'False + Width = 13215 + Begin VB.CommandButton cmdShopConvert + Caption = "$" + Height = 315 + Left = 12840 + TabIndex = 628 + Top = 180 + Width = 255 + End + Begin VB.CheckBox chkShopShowCharm + Caption = "Show Selling" + Height = 255 + Index = 1 + Left = 11460 + TabIndex = 629 + Top = 240 + Width = 1335 + End + Begin VB.CheckBox chkShopShowCharm + Caption = "Show Buying" + Height = 255 + Index = 0 + Left = 10020 + TabIndex = 94 + Top = 240 + Value = 1 'Checked + Width = 1335 + End + Begin VB.CommandButton cmdShopAlterCharm + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 1 + Left = 6660 + TabIndex = 93 + Top = 180 + Width = 315 + End + Begin VB.CommandButton cmdShopAlterCharm + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 0 + Left = 6360 + TabIndex = 92 + Top = 180 + Width = 315 + End + Begin VB.TextBox txtShopCharm + Alignment = 2 'Center + Height = 285 + Left = 5460 + MaxLength = 4 + TabIndex = 630 + Text = "0" + Top = 240 + Width = 795 + End + Begin VB.CommandButton cmdFind + Caption = "&Next" + Height = 255 + Index = 7 + Left = 3330 + TabIndex = 631 + Top = 240 + Width = 1095 + End + Begin VB.CommandButton cmdFind + Caption = "&Find" + Height = 255 + Index = 6 + Left = 2190 + TabIndex = 632 + Top = 240 + Width = 1095 + End + Begin VB.TextBox txtShopFind + Height = 285 + Left = 120 + TabIndex = 633 + Top = 240 + Width = 1995 + End + Begin VB.TextBox txtShopDetail + Height = 435 + Left = 120 + Locked = -1 'True + MultiLine = -1 'True + TabIndex = 634 + Top = 5100 + Width = 4335 + End + Begin MSComctlLib.ListView lvShops + Height = 4455 + Left = 120 + TabIndex = 635 + Tag = "STRETCHALL" + Top = 540 + Width = 4335 + _ExtentX = 7646 + _ExtentY = 7858 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MSComctlLib.ListView lvShopDetail + Height = 6075 + Left = 4500 + TabIndex = 636 + Tag = "STRETCHALL" + Top = 540 + Width = 8610 + _ExtentX = 15187 + _ExtentY = 10716 + View = 3 + LabelEdit = 1 + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MSComctlLib.ListView lvShopLoc + Height = 1035 + Left = 120 + TabIndex = 637 + Top = 5580 + Width = 4335 + _ExtentX = 7646 + _ExtentY = 1826 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin VB.Label lblCharmMod + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 7080 + TabIndex = 1156 + Top = 240 + Width = 2835 + End + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Charm:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 22 + Left = 4575 + TabIndex = 638 + Top = 255 + Width = 735 + End + End + Begin VB.Frame framNav + Caption = "Sundry" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 6735 + Index = 7 + Left = 60 + TabIndex = 648 + Top = 1200 + Visible = 0 'False + Width = 13215 + Begin VB.CommandButton cmdSundryChests + Caption = "View Chest Contents" + Height = 255 + Left = 5280 + TabIndex = 649 + Top = 240 + Width = 2115 + End + Begin MMUD_Explorer.cntSplitter splSplitterWE + Height = 5415 + Index = 6 + Left = 120 + TabIndex = 650 + Top = 540 + Width = 10215 + _ExtentX = 18018 + _ExtentY = 9551 + Begin MSComctlLib.ListView lvOtherItems + Height = 3735 + Left = 0 + TabIndex = 651 + Tag = "STRETCHALL" + Top = 0 + Width = 4455 + _ExtentX = 7858 + _ExtentY = 6588 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 40 - Left = 2220 - TabIndex = 104 - Top = 300 - Visible = 0 'False - Width = 135 + Begin MMUD_Explorer.cntSplitter splSplitterNS + Height = 5415 + Index = 6 + Left = 6360 + TabIndex = 652 + Top = 0 + Width = 3795 + _ExtentX = 6694 + _ExtentY = 9551 + Begin VB.TextBox txtOtherItemDetail + Height = 1875 + Left = 0 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 653 + Top = 0 + Width = 2775 + End + Begin MSComctlLib.ListView lvOtherItemLoc + Height = 1575 + Left = 0 + TabIndex = 654 + Top = 2880 + Width = 2775 + _ExtentX = 4895 + _ExtentY = 2778 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 39 - Left = 1980 - TabIndex = 103 - Top = 300 - Visible = 0 'False - Width = 135 + End + Begin VB.CommandButton cmdFind + Caption = "&Next" + Height = 255 + Index = 11 + Left = 3780 + TabIndex = 655 + Top = 240 + Width = 1335 + End + Begin VB.CommandButton cmdFind + Caption = "&Find" + Height = 255 + Index = 10 + Left = 2280 + TabIndex = 656 + Top = 240 + Width = 1335 + End + Begin VB.TextBox txtOtherItemsFind + Height = 285 + Left = 120 + TabIndex = 657 + Top = 240 + Width = 1995 + End + End + Begin VB.Frame framNav + Caption = "Classes / Races" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 6735 + Index = 6 + Left = 60 + TabIndex = 658 + Top = 1200 + Visible = 0 'False + Width = 13215 + Begin VB.CommandButton cmdClassRace + Caption = "&Races" + Height = 315 + Index = 1 + Left = 1500 + Style = 1 'Graphical + TabIndex = 659 + Top = 240 + Width = 1335 + End + Begin VB.CommandButton cmdClassRace + BackColor = &H00C0C0FF& + Caption = "&Classes" + Height = 315 + Index = 0 + Left = 120 + Style = 1 'Graphical + TabIndex = 660 + Top = 240 + Width = 1335 + End + Begin VB.TextBox txtRaceDetail + Height = 375 + Left = 120 + Locked = -1 'True + MultiLine = -1 'True + TabIndex = 661 + Top = 5580 + Visible = 0 'False + Width = 10215 + End + Begin MSComctlLib.ListView lvClasses + Height = 4935 + Left = 120 + TabIndex = 662 + Tag = "STRETCHALL" + Top = 600 + Width = 10215 + _ExtentX = 18018 + _ExtentY = 8705 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin VB.TextBox txtClassDetail + Height = 375 + Left = 120 + Locked = -1 'True + MultiLine = -1 'True + TabIndex = 663 + Top = 5580 + Width = 10215 + End + Begin MSComctlLib.ListView lvRaces + Height = 4935 + Left = 120 + TabIndex = 664 + Tag = "STRETCHALL" + Top = 600 + Visible = 0 'False + Width = 10215 + _ExtentX = 18018 + _ExtentY = 8705 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + End + Begin VB.Frame framNav + Caption = "Character" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 6735 + Index = 5 + Left = 60 + TabIndex = 665 + Top = 1200 + Visible = 0 'False + Width = 13215 + Begin VB.Frame fraCharMisc + Caption = "Misc" + Height = 5175 + Left = 8340 + TabIndex = 1157 + Top = 720 + Width = 2235 + Begin VB.CommandButton cmdCharAC + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 0 + Left = 300 + TabIndex = 1172 + Top = 2940 + Width = 255 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 38 - Left = 1740 - TabIndex = 102 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdCharAC + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 1 + Left = 1620 + TabIndex = 1171 + Top = 2940 + Width = 255 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 37 - Left = 1500 - TabIndex = 101 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharVsAccy + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 345 + Left = 600 + MaxLength = 4 + TabIndex = 1168 + Text = "150" + Top = 3660 + Width = 975 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 36 - Left = 1260 - TabIndex = 100 - Top = 300 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharAC + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 345 + Left = 600 + MaxLength = 4 + TabIndex = 1166 + Top = 2940 + Width = 975 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 35 + Begin VB.CheckBox chkCharAntiMagic + Caption = "Anti-Magic" + Height = 255 Left = 1020 - TabIndex = 99 - Top = 300 - Visible = 0 'False - Width = 135 - End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 34 - Left = 780 - TabIndex = 98 - Top = 300 - Visible = 0 'False - Width = 135 - End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 33 - Left = 540 - TabIndex = 97 - Top = 300 - Visible = 0 'False - Width = 135 - End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 32 - Left = 300 - TabIndex = 96 - Top = 300 - Visible = 0 'False - Width = 135 - End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 31 - Left = 60 - TabIndex = 95 - Top = 300 - Visible = 0 'False - Width = 135 + TabIndex = 1160 + Top = 600 + Width = 1155 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 30 - Left = 7020 - TabIndex = 91 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharMR + Alignment = 2 'Center + Height = 285 + Left = 120 + MaxLength = 4 + TabIndex = 1159 + Top = 600 + Width = 735 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 29 - Left = 6780 - TabIndex = 90 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + AutoSize = -1 'True + Caption = "Attacker Miss Rate:" + Height = 195 + Index = 35 + Left = 420 + TabIndex = 1170 + Top = 4140 + Width = 1410 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 28 - Left = 6540 - TabIndex = 89 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblCharACMiss + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 13.5 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 495 + Left = 120 + TabIndex = 1169 + Top = 4440 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 27 - Left = 6300 - TabIndex = 88 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + AutoSize = -1 'True + Caption = "vs Accuracy:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 34 + Left = 420 + TabIndex = 1167 + Top = 3360 + Width = 1350 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 26 - Left = 6060 - TabIndex = 87 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + AutoSize = -1 'True + Caption = "Armour Class:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 32 + Left = 390 + TabIndex = 1165 + Top = 2640 + Width = 1470 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 25 - Left = 5820 - TabIndex = 86 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Line Line2 + X1 = 180 + X2 = 1980 + Y1 = 2400 + Y2 = 2400 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 24 - Left = 5580 - TabIndex = 85 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Chance to Resist-All:" + Height = 195 + Index = 31 + Left = 120 + TabIndex = 1164 + Top = 1620 + Width = 1470 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 23 - Left = 5340 - TabIndex = 84 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblCharMR + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 13.5 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Index = 1 + Left = 120 + TabIndex = 1163 + Top = 1860 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 22 - Left = 5100 - TabIndex = 83 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Reduction to Damage-MR:" + Height = 195 + Index = 29 + Left = 120 + TabIndex = 1162 + Top = 960 + Width = 1905 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 21 - Left = 4860 - TabIndex = 82 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblCharMR + Alignment = 2 'Center + BeginProperty Font + Name = "MS Sans Serif" + Size = 13.5 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Index = 0 + Left = 120 + TabIndex = 1161 + Top = 1200 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 20 - Left = 4620 - TabIndex = 81 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Magic Resistance:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 33 + Left = 120 + TabIndex = 1158 + Top = 300 + Width = 1995 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 19 - Left = 4380 - TabIndex = 80 - Top = 60 - Visible = 0 'False - Width = 135 + End + Begin VB.CommandButton cmdInvenPasteChar + Caption = "&Paste Character..." + Height = 435 + Index = 1 + Left = 120 + TabIndex = 666 + Top = 240 + Width = 1755 + End + Begin VB.Frame fraChar + Caption = "Stats" + Height = 5175 + Index = 0 + Left = 120 + TabIndex = 667 + Top = 720 + Width = 3915 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 11 + Left = 3420 + TabIndex = 668 + Top = 4020 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 18 - Left = 4140 - TabIndex = 79 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 9 + Left = 3420 + TabIndex = 669 + Top = 3660 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 17 - Left = 3900 - TabIndex = 78 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 7 + Left = 3420 + TabIndex = 670 + Top = 3300 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 16 - Left = 3660 - TabIndex = 77 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 5 + Left = 3420 + TabIndex = 671 + Top = 2940 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 15 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 3 Left = 3420 - TabIndex = 76 - Top = 60 - Visible = 0 'False - Width = 135 + TabIndex = 672 + Top = 2580 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 14 - Left = 3180 - TabIndex = 75 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 1 + Left = 3420 + TabIndex = 673 + Top = 2220 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 + Begin VB.CommandButton cmdCharChangeStats + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 Index = 13 - Left = 2940 - TabIndex = 74 - Top = 60 - Visible = 0 'False - Width = 135 + Left = 3420 + TabIndex = 674 + Top = 1380 + Width = 315 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 12 - Left = 2700 - TabIndex = 73 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharStats + Alignment = 2 'Center + Height = 285 + Index = 5 + Left = 1380 + MaxLength = 4 + TabIndex = 675 + Text = "0" + Top = 4020 + Width = 735 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 11 - Left = 2460 - TabIndex = 72 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharStats + Alignment = 2 'Center + Height = 285 + Index = 3 + Left = 1380 + MaxLength = 4 + TabIndex = 676 + Text = "0" + Top = 3300 + Width = 735 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 10 - Left = 2220 - TabIndex = 71 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtGlobalLevel + Alignment = 2 'Center + Height = 300 + Index = 0 + Left = 1380 + MaxLength = 3 + TabIndex = 677 + Text = "999" + Top = 1380 + Width = 1635 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 9 - Left = 1980 - TabIndex = 70 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.ComboBox cmbGlobalClass + Height = 315 + Index = 0 + Left = 1380 + Sorted = -1 'True + Style = 2 'Dropdown List + TabIndex = 678 + Top = 660 + Width = 1635 + End + Begin VB.TextBox txtCharStats + Alignment = 2 'Center + Height = 300 + Index = 0 + Left = 1380 + MaxLength = 4 + TabIndex = 679 + Text = "100" + Top = 2220 + Width = 735 + End + Begin VB.ComboBox cmbGlobalRace + Height = 315 + Index = 0 + Left = 1380 + Sorted = -1 'True + Style = 2 'Dropdown List + TabIndex = 680 + Top = 1020 + Width = 1635 + End + Begin VB.TextBox txtCharStats + Alignment = 2 'Center + Height = 285 + Index = 2 + Left = 1380 + MaxLength = 4 + TabIndex = 681 + Text = "0" + Top = 2940 + Width = 735 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 8 - Left = 1740 - TabIndex = 69 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharStats + Alignment = 2 'Center + Height = 285 + Index = 1 + Left = 1380 + MaxLength = 4 + TabIndex = 682 + Text = "0" + Top = 2580 + Width = 735 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 7 - Left = 1500 - TabIndex = 68 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharStats + Alignment = 2 'Center + Height = 285 + Index = 4 + Left = 1380 + MaxLength = 4 + TabIndex = 683 + Text = "0" + Top = 3660 + Width = 735 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 6 - Left = 1260 - TabIndex = 67 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharMaxStats + Alignment = 2 'Center + BackColor = &H80000016& + Height = 285 + Index = 0 + Left = 2160 + Locked = -1 'True + TabIndex = 684 + TabStop = 0 'False + Text = "0" + Top = 2220 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 5 - Left = 1020 - TabIndex = 66 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharMaxStats + Alignment = 2 'Center + BackColor = &H80000016& + Height = 285 + Index = 1 + Left = 2160 + Locked = -1 'True + TabIndex = 685 + TabStop = 0 'False + Text = "0" + Top = 2580 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 4 - Left = 780 - TabIndex = 65 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharMaxStats + Alignment = 2 'Center + BackColor = &H80000016& + Height = 285 + Index = 2 + Left = 2160 + Locked = -1 'True + TabIndex = 686 + TabStop = 0 'False + Text = "0" + Top = 2940 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 + Begin VB.TextBox txtCharMaxStats + Alignment = 2 'Center + BackColor = &H80000016& + Height = 285 Index = 3 - Left = 540 - TabIndex = 64 - Top = 60 - Visible = 0 'False - Width = 135 + Left = 2160 + Locked = -1 'True + TabIndex = 687 + TabStop = 0 'False + Text = "0" + Top = 3300 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 2 - Left = 300 - TabIndex = 63 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharMaxStats + Alignment = 2 'Center + BackColor = &H80000016& + Height = 285 + Index = 4 + Left = 2160 + Locked = -1 'True + TabIndex = 688 + TabStop = 0 'False + Text = "0" + Top = 3660 + Width = 855 End - Begin VB.Label lblRoomCell - Appearance = 0 'Flat - BackColor = &H00C0C0C0& - BorderStyle = 1 'Fixed Single - ForeColor = &H00000000& - Height = 135 - Index = 1 - Left = 60 - TabIndex = 62 - Top = 60 - Visible = 0 'False - Width = 135 + Begin VB.TextBox txtCharMaxStats + Alignment = 2 'Center + BackColor = &H80000016& + Height = 285 + Index = 5 + Left = 2160 + Locked = -1 'True + TabIndex = 689 + TabStop = 0 'False + Text = "0" + Top = 4020 + Width = 855 End - End - Begin MSComctlLib.ListView lvMapLoc - Height = 2175 - Left = 7470 - TabIndex = 624 - Top = 4440 - Width = 5625 - _ExtentX = 9922 - _ExtentY = 3836 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 0 - NumItems = 0 - End - Begin VB.Frame Frame4 - Appearance = 0 'Flat - Caption = "Presets" - ForeColor = &H80000008& - Height = 4335 - Left = 10440 - TabIndex = 256 - Top = 120 - Width = 2655 - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 9 - Left = 2220 - TabIndex = 254 - Top = 3840 - Width = 315 + Begin VB.TextBox txtCharName + Height = 285 + Left = 1380 + MaxLength = 32 + TabIndex = 690 + Top = 300 + Width = 2355 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 8 - Left = 2220 - TabIndex = 252 - Top = 3480 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 0 + Left = 3120 + TabIndex = 691 + Top = 2220 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 7 - Left = 2220 - TabIndex = 250 - Top = 3120 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 2 + Left = 3120 + TabIndex = 692 + Top = 2580 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 6 - Left = 2220 - TabIndex = 248 - Top = 2760 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 4 + Left = 3120 + TabIndex = 693 + Top = 2940 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 5 - Left = 2220 - TabIndex = 246 - Top = 2400 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 6 + Left = 3120 + TabIndex = 694 + Top = 3300 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 4 - Left = 2220 - TabIndex = 244 - Top = 2040 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 8 + Left = 3120 + TabIndex = 695 + Top = 3660 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 3 - Left = 2220 - TabIndex = 242 - Top = 1680 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 10 + Left = 3120 + TabIndex = 696 + Top = 4020 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 2 - Left = 2220 - TabIndex = 240 - Top = 1320 - Width = 315 + Begin VB.CommandButton cmdCharChangeStats + Caption = "Reset" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 14 + Left = 2160 + TabIndex = 697 + Top = 1800 + Width = 855 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 1 - Left = 2220 - TabIndex = 238 - Top = 960 + Begin VB.CommandButton cmdCharChangeStats + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 12 + Left = 3120 + TabIndex = 698 + Top = 1380 Width = 315 End - Begin VB.CommandButton cmdEditPreset - Caption = "!" - Height = 375 - Index = 0 - Left = 2220 - TabIndex = 236 - Top = 600 - Width = 315 + Begin VB.CommandButton cmdCharChangeStats + Caption = "Reload" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 15 + Left = 1380 + TabIndex = 699 + Top = 1800 + Width = 735 End - Begin VB.CommandButton cmdMapPreset - Caption = "Lava Fields" - Height = 375 - Index = 9 - Left = 120 - TabIndex = 253 - Top = 3840 - Width = 2055 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Charm:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 3 + Left = 180 + TabIndex = 700 + Top = 4020 + Width = 735 End - Begin VB.CommandButton cmdMapPreset - Caption = "Ancient Ruin" - Height = 375 - Index = 8 - Left = 120 - TabIndex = 251 - Top = 3480 - Width = 2055 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Agility:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 2 + Left = 180 + TabIndex = 701 + Top = 3300 + Width = 720 End - Begin VB.CommandButton cmdMapPreset - Caption = "Storm Fortress" - Height = 375 - Index = 7 - Left = 120 - TabIndex = 249 - Top = 3120 - Width = 2055 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Level:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 0 + Left = 180 + TabIndex = 702 + Top = 1380 + Width = 645 End - Begin VB.CommandButton cmdMapPreset - Caption = "Black Fortress" - Height = 375 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Class:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 Index = 6 - Left = 120 - TabIndex = 247 - Top = 2760 - Width = 2055 + Left = 180 + TabIndex = 703 + Top = 660 + Width = 660 End - Begin VB.CommandButton cmdMapPreset - Caption = "Commander Markus" - Height = 375 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Strength:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 1 + Left = 180 + TabIndex = 704 + Top = 2220 + Width = 930 + End + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Race:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 Index = 5 - Left = 120 - TabIndex = 245 - Top = 2400 - Width = 2055 + Left = 180 + TabIndex = 705 + Top = 1020 + Width = 630 End - Begin VB.CommandButton cmdMapPreset - Caption = "Rhudar" - Height = 375 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Intellect:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 Index = 4 - Left = 120 - TabIndex = 243 - Top = 2040 - Width = 2055 - End - Begin VB.CommandButton cmdMapPreset - Caption = "Lost City" - Height = 375 - Index = 3 - Left = 120 - TabIndex = 241 - Top = 1680 - Width = 2055 - End - Begin VB.CommandButton cmdMapPreset - Caption = "Arlysia" - Height = 375 - Index = 2 - Left = 120 - TabIndex = 239 - Top = 1320 - Width = 2055 + Left = 180 + TabIndex = 706 + Top = 2580 + Width = 885 End - Begin VB.CommandButton cmdMapPreset - Caption = "Khazarad" - Height = 375 - Index = 1 - Left = 120 - TabIndex = 237 - Top = 960 - Width = 2055 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Health:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 23 + Left = 180 + TabIndex = 707 + Top = 3660 + Width = 750 End - Begin VB.CommandButton cmdMapPreset - Caption = "Town Square" - Height = 375 - Index = 0 - Left = 120 - TabIndex = 235 - Top = 600 - Width = 2055 + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Willpower:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 240 + Index = 24 + Left = 180 + TabIndex = 708 + Top = 2940 + Width = 1095 End - Begin VB.CommandButton cmdResetPresets - Caption = "Reset" + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Name:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Left = 1980 - TabIndex = 234 - Top = 180 - Width = 555 + Height = 240 + Index = 25 + Left = 180 + TabIndex = 709 + Top = 300 + Width = 690 End - Begin VB.CommandButton cmdMapPresetSelect - Caption = "5" + Begin VB.Label lblStatCalc + Appearance = 0 'Flat + Caption = "CP:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty + ForeColor = &H80000008& + Height = 615 + Left = 180 + TabIndex = 710 + Top = 4440 + Width = 3555 + End + End + Begin VB.Frame fraChar + Caption = "Hit Points / Hit Point Regen" + Height = 1335 + Index = 1 + Left = 4140 + TabIndex = 711 + Top = 720 + Width = 4095 + Begin VB.TextBox txtCharHPRegen + Alignment = 2 'Center Height = 315 - Index = 4 - Left = 1560 - TabIndex = 233 - Top = 180 - Width = 375 + Left = 180 + MaxLength = 4 + TabIndex = 712 + Top = 840 + Width = 1035 + End + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Regen Bonus" + Height = 195 + Index = 26 + Left = 180 + TabIndex = 713 + Top = 600 + Width = 975 + End + Begin VB.Label lblCharRestRate + Appearance = 0 'Flat + Caption = "Resting:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H80000008& + Height = 495 + Left = 1380 + TabIndex = 714 + Top = 660 + Width = 2535 End - Begin VB.CommandButton cmdMapPresetSelect - Caption = "4" + Begin VB.Label lblCharMaxHP + Appearance = 0 'Flat + Caption = "HP Range:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty + ForeColor = &H80000008& + Height = 255 + Left = 180 + TabIndex = 715 + Top = 300 + Width = 3735 + End + End + Begin VB.Frame fraChar + Caption = "Spellcasting / Mana / Mana Regen" + Height = 1635 + Index = 2 + Left = 4140 + TabIndex = 716 + Top = 2100 + Width = 4095 + Begin VB.TextBox txtCharManaRegen + Alignment = 2 'Center Height = 315 - Index = 3 - Left = 1200 - TabIndex = 232 - Top = 180 - Width = 375 + Left = 180 + MaxLength = 4 + TabIndex = 717 + Top = 1200 + Width = 1035 End - Begin VB.CommandButton cmdMapPresetSelect - Caption = "3" + Begin VB.Label lblCharManaRate + Appearance = 0 'Flat + Caption = "Mana Regen:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 2 - Left = 840 - TabIndex = 231 - Top = 180 - Width = 375 + ForeColor = &H80000008& + Height = 495 + Left = 1380 + TabIndex = 718 + Top = 1020 + Width = 2535 End - Begin VB.CommandButton cmdMapPresetSelect - Caption = "2" + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Regen Bonus" + Height = 195 + Index = 27 + Left = 180 + TabIndex = 719 + Top = 960 + Width = 975 + End + Begin VB.Label lblCharMaxMana + Appearance = 0 'Flat + Caption = "Mana:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 1 - Left = 480 - TabIndex = 230 - Top = 180 - Width = 375 + ForeColor = &H80000008& + Height = 255 + Left = 180 + TabIndex = 720 + Top = 600 + Width = 3735 End - Begin VB.CommandButton cmdMapPresetSelect - Caption = "1" + Begin VB.Label lblCharSC + Appearance = 0 'Flat + Caption = "Spellcasting:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty + ForeColor = &H80000008& + Height = 255 + Left = 180 + TabIndex = 721 + Top = 300 + Width = 3735 + End + End + Begin VB.Frame fraChar + Caption = "Completed Quests" + Height = 1455 + Index = 4 + Left = 4140 + TabIndex = 722 + Top = 4440 + Width = 4095 + Begin VB.ComboBox cmbChar2ndAlign + Enabled = 0 'False Height = 315 + Left = 2460 + Style = 2 'Dropdown List + TabIndex = 723 + Top = 1020 + Width = 1455 + End + Begin VB.CheckBox chkCharQuests + Height = 255 + Index = 5 + Left = 2160 + TabIndex = 724 + Top = 1020 + Width = 195 + End + Begin VB.CheckBox chkCharQuests + Caption = "Ice Sorceress (+1 AC)" + Height = 255 Index = 0 Left = 120 - TabIndex = 229 - Top = 180 - Width = 375 + TabIndex = 725 + Top = 300 + Width = 1935 + End + Begin VB.CheckBox chkCharQuests + Caption = "High Druid (+1 SC)" + Height = 255 + Index = 1 + Left = 120 + TabIndex = 726 + Top = 660 + Width = 1935 + End + Begin VB.CheckBox chkCharQuests + Caption = "Bishop (+3 ACC)" + Height = 255 + Index = 3 + Left = 2160 + TabIndex = 727 + Top = 300 + Width = 1635 + End + Begin VB.CheckBox chkCharQuests + Caption = "ARD (+1 Crit, +2 SC)" + Height = 255 + Index = 2 + Left = 120 + TabIndex = 728 + Top = 1020 + Width = 1815 + End + Begin VB.CheckBox chkCharQuests + Caption = "Apparatus (+1 DG)" + Height = 255 + Index = 4 + Left = 2160 + TabIndex = 729 + Top = 660 + Width = 1635 End End - Begin VB.Frame Frame2 - Appearance = 0 'Flat - ForeColor = &H80000008& - Height = 4335 - Left = 7470 - TabIndex = 605 - Top = 120 - Width = 3015 - Begin VB.CommandButton cmdQ - Caption = "?" + Begin VB.Frame fraChar + Caption = "Picklocks" + Height = 615 + Index = 3 + Left = 4140 + TabIndex = 730 + Top = 3780 + Width = 4095 + Begin VB.Label lblCharPicklocks + Appearance = 0 'Flat + Caption = "Picklocks: " BeginProperty Font - Name = "Small Fonts" - Size = 6.75 + Name = "MS Sans Serif" + Size = 9.75 Charset = 0 - Weight = 400 + Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 195 - Left = 2220 - TabIndex = 1193 - Top = 2760 - Width = 195 - End - Begin VB.OptionButton optAlsoMark - Caption = "None" ForeColor = &H80000008& - Height = 195 + Height = 255 + Left = 180 + TabIndex = 731 + Top = 240 + Width = 3735 + End + End + Begin VB.CommandButton cmdCharCopytoClip + Caption = "&Copy Full Character" + Height = 435 + Index = 0 + Left = 6300 + TabIndex = 732 + Top = 240 + Width = 1935 + End + Begin VB.CommandButton cmdCharCopytoClip + Caption = "Copy Only Stats" + Height = 435 + Index = 1 + Left = 4140 + TabIndex = 733 + Top = 240 + Width = 1995 + End + Begin VB.CommandButton cmdCharCopytoClip + Caption = "Copy Only CP Info" + Height = 435 + Index = 2 + Left = 2040 + TabIndex = 734 + Top = 240 + Width = 1935 + End + Begin VB.CommandButton cmdCharReset + Caption = "Reset Character Fields" + Height = 435 + Left = 8400 + TabIndex = 735 + Top = 240 + Width = 2055 + End + Begin VB.Frame fraChar + Caption = "Bless Calc (Only)" + Height = 5175 + Index = 5 + Left = 10680 + TabIndex = 736 + Top = 720 + Width = 2415 + Begin VB.ComboBox cmbCharBless + Height = 315 Index = 0 - Left = 2040 - TabIndex = 1191 - Top = 1440 - Value = -1 'True - Width = 795 + Left = 120 + Sorted = -1 'True + TabIndex = 737 + Text = "cmbCharBless" + Top = 660 + Width = 1875 End - Begin VB.OptionButton optAlsoMark - Caption = "Shops" - ForeColor = &H80000008& - Height = 195 + Begin VB.ComboBox cmbCharBless + Height = 315 Index = 1 - Left = 2040 - TabIndex = 1190 - Top = 1680 - Width = 855 + Left = 120 + Sorted = -1 'True + TabIndex = 738 + Text = "cmbCharBless" + Top = 1020 + Width = 1875 End - Begin VB.OptionButton optAlsoMark - Caption = "Spells" - ForeColor = &H80000008& - Height = 195 + Begin VB.ComboBox cmbCharBless + Height = 315 Index = 2 - Left = 2040 - TabIndex = 1189 - Top = 1920 - Width = 855 + Left = 120 + Sorted = -1 'True + TabIndex = 739 + Text = "cmbCharBless" + Top = 1380 + Width = 1875 End - Begin VB.CommandButton cmdMapLastRoom - Caption = "L&ast Room" - Height = 375 - Left = 1560 - TabIndex = 608 - ToolTipText = "Goes back one room" - Top = 3900 - Width = 1275 + Begin VB.ComboBox cmbCharBless + Height = 315 + Index = 3 + Left = 120 + Sorted = -1 'True + TabIndex = 740 + Text = "cmbCharBless" + Top = 1740 + Width = 1875 End - Begin VB.CheckBox chkMapOptions - Caption = "Don't Show Tooltips" - Height = 195 + Begin VB.ComboBox cmbCharBless + Height = 315 + Index = 4 + Left = 120 + Sorted = -1 'True + TabIndex = 741 + Text = "cmbCharBless" + Top = 2100 + Width = 1875 + End + Begin VB.ComboBox cmbCharBless + Height = 315 Index = 5 Left = 120 - TabIndex = 609 - Top = 2490 - Width = 1995 + Sorted = -1 'True + TabIndex = 742 + Text = "cmbCharBless" + Top = 2460 + Width = 1875 End - Begin VB.CommandButton cmdDrawMap - Caption = "&Redraw" - Height = 375 - Index = 1 - Left = 1440 - TabIndex = 613 - Top = 660 - Width = 1035 + Begin VB.ComboBox cmbCharBless + Height = 315 + Index = 6 + Left = 120 + Sorted = -1 'True + TabIndex = 743 + Text = "cmbCharBless" + Top = 2820 + Width = 1875 End - Begin VB.CheckBox chkMapOptions - Caption = "Don't Mark Commands" - Height = 195 - Index = 4 + Begin VB.ComboBox cmbCharBless + Height = 315 + Index = 7 Left = 120 - TabIndex = 614 - Top = 2250 - Width = 2115 + Sorted = -1 'True + TabIndex = 744 + Text = "cmbCharBless" + Top = 3180 + Width = 1875 End - Begin VB.CheckBox chkMapOptions - Caption = "Don't Mark NPCs" - Height = 195 - Index = 3 + Begin VB.ComboBox cmbCharBless + Height = 315 + Index = 8 Left = 120 - TabIndex = 615 - Top = 1995 - Width = 1995 + Sorted = -1 'True + TabIndex = 745 + Text = "cmbCharBless" + Top = 3540 + Width = 1875 End - Begin VB.CheckBox chkMapOptions - Caption = "Don't Mark Lairs" - Height = 195 - Index = 2 + Begin VB.ComboBox cmbCharBless + Height = 315 + Index = 9 Left = 120 - TabIndex = 616 - Top = 1740 - Width = 1995 + Sorted = -1 'True + TabIndex = 746 + Text = "cmbCharBless" + Top = 3900 + Width = 1875 End - Begin VB.TextBox txtRoomMap - Alignment = 2 'Center + Begin VB.CommandButton cmdCharResetBless + Caption = "Reset" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 + Name = "Small Fonts" + Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 345 - Left = 420 - MaxLength = 5 - TabIndex = 617 - Text = "1" - Top = 300 - Width = 1035 + Height = 315 + Index = 0 + Left = 1380 + TabIndex = 747 + Top = 240 + Width = 915 End - Begin VB.TextBox txtRoomRoom - Alignment = 2 'Center + Begin VB.CommandButton cmdCharResetBless + Caption = "Reload" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 + Name = "Small Fonts" + Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 345 - Left = 1440 - MaxLength = 5 - TabIndex = 618 - Text = "1" - Top = 300 - Width = 1035 + Height = 315 + Index = 1 + Left = 120 + TabIndex = 748 + Top = 240 + Width = 1155 End - Begin VB.CommandButton cmdDrawMap - Caption = "&Draw" - Height = 375 + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 Index = 0 - Left = 420 - TabIndex = 619 + Left = 2040 + TabIndex = 749 Top = 660 - Width = 1035 - End - Begin VB.CheckBox chkMapOptions - Caption = "Follow Map Changes" - Height = 255 - Index = 0 - Left = 120 - TabIndex = 620 - Top = 1230 - Width = 1815 + Width = 255 End - Begin VB.CheckBox chkMapOptions - Caption = "Don't Follow Hidden" - Height = 195 + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 Index = 1 - Left = 120 - TabIndex = 621 - Top = 1500 - Width = 1995 + Left = 2040 + TabIndex = 750 + Top = 1020 + Width = 255 End - Begin VB.CommandButton cmdMapShowUnused - Caption = "S&how Blocks" + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 + Index = 2 + Left = 2040 + TabIndex = 751 + Top = 1380 + Width = 255 + End + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" Height = 315 - Left = 1560 - TabIndex = 606 - Top = 3600 - Width = 1275 + Index = 3 + Left = 2040 + TabIndex = 752 + Top = 1740 + Width = 255 End - Begin VB.CommandButton cmdMapFindText - Caption = "Find &Next" - Height = 435 - Index = 1 - Left = 1560 - TabIndex = 611 - Top = 3180 - Width = 1275 + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 + Index = 4 + Left = 2040 + TabIndex = 753 + Top = 2100 + Width = 255 End - Begin VB.CommandButton cmdMapOpenExternal - Caption = "E&xternal Map" - Height = 375 - Left = 180 - TabIndex = 607 - Top = 3900 - Width = 1395 + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 + Index = 5 + Left = 2040 + TabIndex = 754 + Top = 2460 + Width = 255 End - Begin VB.CommandButton cmdViewMapLegend - Caption = "Help/&Legend" + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" Height = 315 - Left = 180 - TabIndex = 610 - Top = 3600 - Width = 1395 + Index = 6 + Left = 2040 + TabIndex = 755 + Top = 2820 + Width = 255 End - Begin VB.CommandButton cmdMapFindText - Caption = "&Find Room" - Height = 435 - Index = 0 - Left = 180 - TabIndex = 612 + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 + Index = 7 + Left = 2040 + TabIndex = 756 Top = 3180 - Width = 1395 + Width = 255 End - Begin VB.CheckBox chkMapOptions - Caption = "Allow Duplicate Rooms" - ForeColor = &H80000008& - Height = 195 + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 + Index = 8 + Left = 2040 + TabIndex = 757 + Top = 3540 + Width = 255 + End + Begin VB.CommandButton cmdCharBlessJump + Caption = ">" + Height = 315 Index = 9 - Left = 120 - TabIndex = 1194 - Top = 2760 - Width = 2235 + Left = 2040 + TabIndex = 758 + Top = 3900 + Width = 255 End - Begin VB.Label Label1 - AutoSize = -1 'True - Caption = "Also Mark:" + Begin VB.Label lblCharBless + Alignment = 2 'Center + Caption = "0" BeginProperty Font Name = "MS Sans Serif" - Size = 8.25 + Size = 13.5 Charset = 0 Weight = 700 - Underline = -1 'True + Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 195 - Left = 2040 - TabIndex = 1192 - Top = 1200 - Width = 915 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Map" - Height = 195 - Index = 19 - Left = 420 - TabIndex = 622 - Top = 120 - Width = 1035 + Height = 375 + Left = 120 + TabIndex = 759 + Top = 4380 + Width = 2175 End Begin VB.Label lblLabelArray Alignment = 2 'Center - Caption = "Room" + AutoSize = -1 'True + Caption = "Mana Regen Needed" + ForeColor = &H80000011& Height = 195 - Index = 20 - Left = 1440 - TabIndex = 623 - Top = 120 - Width = 1035 + Index = 10 + Left = 120 + TabIndex = 760 + Top = 4860 + Width = 2265 End End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Place your cursor in the black box below to move around the map with your keypad." + End + Begin VB.Frame framNav + Caption = "Compare" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 6735 + Index = 3 + Left = 60 + TabIndex = 761 + Top = 1200 + Visible = 0 'False + Width = 13215 + Begin VB.CommandButton cmdCompareNav + Caption = "&Monsters" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Index = 3 + Left = 5160 + Style = 1 'Graphical + TabIndex = 762 + Top = 240 + Width = 1215 + End + Begin VB.CommandButton cmdCompareClear + Caption = "X" BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -13491,89 +12705,108 @@ Begin VB.Form frmMain Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 165 - Index = 21 - Left = 120 - TabIndex = 1188 - Top = 5775 - Width = 5070 + Height = 195 + Index = 3 + Left = 6420 + TabIndex = 763 + ToolTipText = "Clear Spell List" + Top = 300 + Width = 255 + End + Begin VB.CommandButton cmdCompareQ + Caption = "?" + Height = 315 + Left = 10020 + TabIndex = 764 + Top = 240 + Width = 315 + End + Begin VB.CommandButton cmdClearAllCompares + Caption = "&Clear All" + Height = 315 + Left = 8580 + TabIndex = 765 + Top = 240 + Width = 1395 + End + Begin VB.CommandButton cmdCompareClear + Caption = "X" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Index = 2 + Left = 4620 + TabIndex = 766 + ToolTipText = "Clear Spell List" + Top = 300 + Width = 255 + End + Begin VB.CommandButton cmdCompareClear + Caption = "X" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Index = 1 + Left = 2940 + TabIndex = 767 + ToolTipText = "Clear Armour List" + Top = 300 + Width = 255 + End + Begin VB.CommandButton cmdCompareClear + Caption = "X" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Index = 0 + Left = 1260 + TabIndex = 768 + ToolTipText = "Clear Weapon List" + Top = 300 + Width = 255 End - Begin VB.Label lblMapBG - Alignment = 2 'Center - BackColor = &H00000000& + Begin VB.CommandButton cmdCompareNav + Caption = "&Spells" BeginProperty Font Name = "MS Sans Serif" - Size = 13.5 + Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H00FFFFFF& - Height = 5565 - Left = 120 - TabIndex = 625 - Top = 180 - Width = 7245 - End - Begin VB.Label Label41 - Appearance = 0 'Flat - ForeColor = &H80000008& - Height = 135 - Left = 120 - TabIndex = 626 - Top = 240 - Width = 4875 - End - End - Begin VB.Frame framNav - Caption = "Shops" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 6735 - Index = 9 - Left = 60 - TabIndex = 627 - Top = 1200 - Visible = 0 'False - Width = 13215 - Begin VB.CommandButton cmdShopConvert - Caption = "$" Height = 315 - Left = 12840 - TabIndex = 628 - Top = 180 - Width = 255 - End - Begin VB.CheckBox chkShopShowCharm - Caption = "Show Selling" - Height = 255 - Index = 1 - Left = 11460 - TabIndex = 629 - Top = 240 - Width = 1335 - End - Begin VB.CheckBox chkShopShowCharm - Caption = "Show Buying" - Height = 255 - Index = 0 - Left = 10020 - TabIndex = 94 + Index = 2 + Left = 3480 + Style = 1 'Graphical + TabIndex = 769 Top = 240 - Value = 1 'Checked - Width = 1335 + Width = 1095 End - Begin VB.CommandButton cmdShopAlterCharm - Caption = "+" + Begin VB.CommandButton cmdCompareNav + Caption = "&Armour" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -13585,13 +12818,15 @@ Begin VB.Form frmMain EndProperty Height = 315 Index = 1 - Left = 6660 - TabIndex = 93 - Top = 180 - Width = 315 + Left = 1800 + Style = 1 'Graphical + TabIndex = 770 + Top = 240 + Width = 1095 End - Begin VB.CommandButton cmdShopAlterCharm - Caption = "-" + Begin VB.CommandButton cmdCompareNav + BackColor = &H00C0C0FF& + Caption = "&Weapons" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -13603,160 +12838,327 @@ Begin VB.Form frmMain EndProperty Height = 315 Index = 0 - Left = 6360 - TabIndex = 92 - Top = 180 - Width = 315 - End - Begin VB.TextBox txtShopCharm - Alignment = 2 'Center - Height = 285 - Left = 5460 - MaxLength = 4 - TabIndex = 630 - Text = "0" - Top = 240 - Width = 795 - End - Begin VB.CommandButton cmdFind - Caption = "&Next" - Height = 255 - Index = 7 - Left = 3330 - TabIndex = 631 - Top = 240 - Width = 1095 - End - Begin VB.CommandButton cmdFind - Caption = "&Find" - Height = 255 - Index = 6 - Left = 2190 - TabIndex = 632 - Top = 240 - Width = 1095 - End - Begin VB.TextBox txtShopFind - Height = 285 Left = 120 - TabIndex = 633 + Style = 1 'Graphical + TabIndex = 771 Top = 240 - Width = 1995 - End - Begin VB.TextBox txtShopDetail - Height = 435 - Left = 120 - Locked = -1 'True - MultiLine = -1 'True - TabIndex = 634 - Top = 5100 - Width = 4335 + Width = 1095 End - Begin MSComctlLib.ListView lvShops - Height = 4455 + Begin VB.Frame framCompareNav + Caption = "Weapons" + Height = 5355 + Index = 0 Left = 120 - TabIndex = 635 - Tag = "STRETCHALL" - Top = 540 - Width = 4335 - _ExtentX = 7646 - _ExtentY = 7858 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MSComctlLib.ListView lvShopDetail - Height = 6075 - Left = 4500 - TabIndex = 636 - Tag = "STRETCHALL" - Top = 540 - Width = 8610 - _ExtentX = 15187 - _ExtentY = 10716 - View = 3 - LabelEdit = 1 - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 + TabIndex = 772 + Top = 600 + Width = 10215 + Begin MMUD_Explorer.cntSplitter splSplitterNS + Height = 4995 + Index = 3 + Left = 120 + TabIndex = 773 + Top = 240 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 8811 + Begin MSComctlLib.ListView lvWeaponCompare + Height = 2595 + Left = 0 + TabIndex = 774 + Tag = "STRETCHALL" + Top = 0 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 4577 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MMUD_Explorer.cntSplitter splSplitterWE + Height = 975 + Index = 3 + Left = 0 + TabIndex = 775 + Top = 4020 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 1720 + Begin VB.TextBox txtWeaponCompareDetail + Height = 975 + Left = 0 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 776 + Top = 0 + Width = 4275 + End + Begin MSComctlLib.ListView lvWeaponCompareLoc + Height = 975 + Left = 6180 + TabIndex = 777 + Top = 0 + Width = 3795 + _ExtentX = 6694 + _ExtentY = 1720 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + End + End End - Begin MSComctlLib.ListView lvShopLoc - Height = 1035 + Begin VB.Frame framCompareNav + Caption = "Spells" + Height = 5355 + Index = 2 Left = 120 - TabIndex = 637 - Top = 5580 - Width = 4335 - _ExtentX = 7646 - _ExtentY = 1826 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 + TabIndex = 778 + Top = 600 + Width = 10215 + Begin MMUD_Explorer.cntSplitter splSplitterNS + Height = 4995 + Index = 5 + Left = 120 + TabIndex = 779 + Top = 240 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 8811 + Begin MSComctlLib.ListView lvSpellCompare + Height = 2355 + Left = 0 + TabIndex = 780 + Tag = "STRETCHALL" + Top = 0 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 4154 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MMUD_Explorer.cntSplitter splSplitterWE + Height = 1155 + Index = 5 + Left = 0 + TabIndex = 781 + Top = 3840 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 2037 + Begin VB.TextBox txtSpellCompareDetail + Height = 1155 + Left = 0 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 782 + Top = 0 + Width = 3375 + End + Begin MSComctlLib.ListView lvSpellCompareLoc + Height = 1155 + Left = 7020 + TabIndex = 783 + Top = 0 + Width = 2955 + _ExtentX = 5212 + _ExtentY = 2037 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + End + End End - Begin VB.Label lblCharmMod - Alignment = 2 'Center - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 7080 - TabIndex = 1156 - Top = 240 - Width = 2835 + Begin VB.Frame framCompareNav + Caption = "Armour" + Height = 5355 + Index = 1 + Left = 120 + TabIndex = 784 + Top = 600 + Width = 10215 + Begin MMUD_Explorer.cntSplitter splSplitterNS + Height = 4995 + Index = 4 + Left = 120 + TabIndex = 785 + Top = 240 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 8811 + Begin MSComctlLib.ListView lvArmourCompare + Height = 2895 + Left = 0 + TabIndex = 786 + Tag = "STRETCHALL" + Top = 0 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 5106 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MMUD_Explorer.cntSplitter splSplitterWE + Height = 975 + Index = 4 + Left = 0 + TabIndex = 787 + Top = 4020 + Width = 9975 + _ExtentX = 17595 + _ExtentY = 1720 + Begin VB.TextBox txtArmourCompareDetail + Height = 975 + Left = 0 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 788 + Top = 0 + Width = 3315 + End + Begin MSComctlLib.ListView lvArmourCompareLoc + Height = 975 + Left = 7080 + TabIndex = 789 + Top = 0 + Width = 2895 + _ExtentX = 5106 + _ExtentY = 1720 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + End + End End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Charm:" - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 240 - Index = 22 - Left = 4575 - TabIndex = 638 - Top = 255 - Width = 735 + Begin VB.Frame framCompareNav + Caption = "Monsters" + Height = 5355 + Index = 3 + Left = 120 + TabIndex = 790 + Top = 600 + Width = 10215 + Begin MMUD_Explorer.cntSplitter splMonsterSplit + Height = 4995 + Index = 1 + Left = 120 + TabIndex = 791 + Top = 240 + Width = 9915 + _ExtentX = 17489 + _ExtentY = 8811 + Begin MSComctlLib.ListView lvMonsterCompare + Height = 4515 + Left = 0 + TabIndex = 792 + Tag = "STRETCHALL" + Top = 0 + Width = 5115 + _ExtentX = 9022 + _ExtentY = 7964 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + Begin MSComctlLib.ListView lvMonsterCompareLoc + Height = 4575 + Left = 5640 + TabIndex = 793 + Top = 0 + Width = 3915 + _ExtentX = 6906 + _ExtentY = 8070 + View = 3 + LabelEdit = 1 + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End + End End End Begin VB.Frame framNav - Caption = "Sundry" + Caption = "Spells" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -13767,41 +13169,51 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 6735 - Index = 7 + Index = 2 Left = 60 - TabIndex = 648 + TabIndex = 794 Top = 1200 Visible = 0 'False Width = 13215 - Begin VB.CommandButton cmdSundryChests - Caption = "View Chest Contents" - Height = 255 - Left = 5280 - TabIndex = 649 - Top = 240 - Width = 2115 + Begin VB.CommandButton cmdSpellNote + Caption = "Note on Damage Columns" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 315 + Left = 4740 + TabIndex = 1195 + Top = 480 + Width = 2055 End - Begin MMUD_Explorer.cntSplitter splSplitterWE - Height = 5415 - Index = 6 + Begin MMUD_Explorer.cntSplitter splSplitterNS + Height = 5115 + Index = 2 Left = 120 - TabIndex = 650 - Top = 540 + TabIndex = 795 + Top = 840 Width = 10215 _ExtentX = 18018 - _ExtentY = 9551 - Begin MSComctlLib.ListView lvOtherItems - Height = 3735 + _ExtentY = 9022 + Begin MSComctlLib.ListView lvSpells + Height = 2535 Left = 0 - TabIndex = 651 + TabIndex = 796 Tag = "STRETCHALL" Top = 0 - Width = 4455 - _ExtentX = 7858 - _ExtentY = 6588 + Width = 10215 + _ExtentX = 18018 + _ExtentY = 4471 View = 3 LabelEdit = 1 Sorted = -1 'True + MultiSelect = -1 'True LabelWrap = -1 'True HideSelection = 0 'False FullRowSelect = -1 'True @@ -13813,33 +13225,33 @@ Begin VB.Form frmMain Appearance = 1 NumItems = 0 End - Begin MMUD_Explorer.cntSplitter splSplitterNS - Height = 5415 - Index = 6 - Left = 6360 - TabIndex = 652 - Top = 0 - Width = 3795 - _ExtentX = 6694 - _ExtentY = 9551 - Begin VB.TextBox txtOtherItemDetail - Height = 1875 + Begin MMUD_Explorer.cntSplitter splSplitterWE + Height = 1155 + Index = 2 + Left = 0 + TabIndex = 797 + Top = 3960 + Width = 10215 + _ExtentX = 18018 + _ExtentY = 2037 + Begin VB.TextBox txtSpellDetail + Height = 1155 Left = 0 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical - TabIndex = 653 + TabIndex = 798 Top = 0 - Width = 2775 + Width = 4635 End - Begin MSComctlLib.ListView lvOtherItemLoc - Height = 1575 - Left = 0 - TabIndex = 654 - Top = 2880 - Width = 2775 - _ExtentX = 4895 - _ExtentY = 2778 + Begin MSComctlLib.ListView lvSpellLoc + Height = 1155 + Left = 7080 + TabIndex = 799 + Top = 0 + Width = 3135 + _ExtentX = 5530 + _ExtentY = 2037 View = 3 LabelEdit = 1 LabelWrap = -1 'True @@ -13854,34 +13266,158 @@ Begin VB.Form frmMain End End End + Begin VB.ComboBox cmbSpellContainsAbil + Height = 315 + ItemData = "frmMain.frx":0D10 + Left = 6900 + List = "frmMain.frx":0D12 + Sorted = -1 'True + Style = 2 'Dropdown List + TabIndex = 800 + Top = 480 + Width = 2055 + End + Begin VB.CommandButton cmdFilter + Caption = "&Remove Filter" + Height = 555 + Index = 3 + Left = 12300 + TabIndex = 801 + Top = 240 + Width = 795 + End + Begin VB.ComboBox cmbSpellAttackType + Height = 315 + ItemData = "frmMain.frx":0D14 + Left = 9060 + List = "frmMain.frx":0D16 + Style = 2 'Dropdown List + TabIndex = 802 + Top = 480 + Width = 1095 + End + Begin VB.CheckBox chkSpellLearnable + Caption = "Learnable Only" + Height = 195 + Left = 5040 + TabIndex = 803 + ToolTipText = "Learnable Only" + Top = 220 + Width = 1635 + End + Begin VB.ComboBox cmbSpellTarget + Height = 315 + ItemData = "frmMain.frx":0D18 + Left = 10260 + List = "frmMain.frx":0D1A + Style = 2 'Dropdown List + TabIndex = 804 + Top = 480 + Width = 1095 + End + Begin VB.ComboBox cmbSpellMageryLevel + Height = 315 + ItemData = "frmMain.frx":0D1C + Left = 3780 + List = "frmMain.frx":0D1E + Style = 2 'Dropdown List + TabIndex = 805 + Top = 480 + Width = 795 + End + Begin VB.ComboBox cmbSpellMagery + Height = 315 + Left = 2700 + Style = 2 'Dropdown List + TabIndex = 806 + Top = 480 + Width = 1035 + End + Begin VB.TextBox txtSpellFind + Height = 285 + Left = 120 + TabIndex = 807 + Top = 510 + Width = 2355 + End + Begin VB.CommandButton cmdFind + Caption = "&Find" + Height = 255 + Index = 0 + Left = 120 + TabIndex = 808 + Top = 240 + Width = 1155 + End Begin VB.CommandButton cmdFind Caption = "&Next" Height = 255 - Index = 11 - Left = 3780 - TabIndex = 655 + Index = 1 + Left = 1380 + TabIndex = 809 + Top = 240 + Width = 1095 + End + Begin VB.CommandButton cmdFilter + Caption = "&Apply Filter" + Height = 555 + Index = 2 + Left = 11580 + TabIndex = 810 + Top = 240 + Width = 675 + End + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Contains Ability" + Height = 255 + Index = 28 + Left = 6900 + TabIndex = 811 + Top = 240 + Width = 2055 + End + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Attack Type" + Height = 255 + Index = 30 + Left = 9060 + TabIndex = 812 + Top = 240 + Width = 1095 + End + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Target" + Height = 195 + Index = 15 + Left = 10320 + TabIndex = 813 Top = 240 - Width = 1335 + Width = 975 End - Begin VB.CommandButton cmdFind - Caption = "&Find" - Height = 255 - Index = 10 - Left = 2280 - TabIndex = 656 + Begin VB.Label lblLabelArray + Caption = "Level:" + Height = 195 + Index = 13 + Left = 3780 + TabIndex = 814 Top = 240 - Width = 1335 + Width = 735 End - Begin VB.TextBox txtOtherItemsFind - Height = 285 - Left = 120 - TabIndex = 657 + Begin VB.Label lblLabelArray + Caption = "Magery:" + Height = 195 + Index = 14 + Left = 2700 + TabIndex = 815 Top = 240 - Width = 1995 + Width = 735 End End Begin VB.Frame framNav - Caption = "Classes / Races" + Caption = "Armour" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -13892,1653 +13428,2155 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 6735 - Index = 6 + Index = 1 Left = 60 - TabIndex = 658 + TabIndex = 44 Top = 1200 Visible = 0 'False Width = 13215 - Begin VB.CommandButton cmdClassRace - Caption = "&Races" + Begin VB.ComboBox cmbArmorAbilityList Height = 315 - Index = 1 - Left = 1500 - Style = 1 'Graphical - TabIndex = 659 - Top = 240 - Width = 1335 + Left = 8580 + Sorted = -1 'True + TabIndex = 816 + Text = "cmbArmorAbilityList" + Top = 480 + Width = 1635 End - Begin VB.CommandButton cmdClassRace - BackColor = &H00C0C0FF& - Caption = "&Classes" + Begin VB.TextBox txtArmorAbilityVal Height = 315 - Index = 0 - Left = 120 - Style = 1 'Graphical - TabIndex = 660 + Left = 10920 + MaxLength = 4 + TabIndex = 817 + Text = "1" + Top = 480 + Width = 495 + End + Begin VB.ComboBox cmbArmorAbilityOp + Height = 315 + ItemData = "frmMain.frx":0D20 + Left = 10260 + List = "frmMain.frx":0D2A + Style = 2 'Dropdown List + TabIndex = 818 + Top = 480 + Width = 615 + End + Begin VB.CommandButton cmdFilter + Caption = "&Remove Filter" + Height = 555 + Index = 5 + Left = 12300 + TabIndex = 59 Top = 240 - Width = 1335 + Width = 795 End - Begin VB.TextBox txtRaceDetail - Height = 375 - Left = 120 - Locked = -1 'True - MultiLine = -1 'True - TabIndex = 661 - Top = 5580 - Visible = 0 'False - Width = 10215 + Begin VB.CheckBox chkArmourNonMagic + Caption = "Non-Magic" + Height = 195 + Left = 5580 + TabIndex = 56 + Top = 540 + Width = 1095 End - Begin MSComctlLib.ListView lvClasses - Height = 4935 - Left = 120 - TabIndex = 662 - Tag = "STRETCHALL" - Top = 600 - Width = 10215 - _ExtentX = 18018 - _ExtentY = 8705 - View = 3 - LabelEdit = 1 + Begin VB.CheckBox chkArmourNoLimit + Caption = "No Limit" + Height = 195 + Left = 5580 + TabIndex = 55 + Top = 300 + Width = 975 + End + Begin VB.CheckBox chkArmourType + Caption = "Plate" + Height = 195 + Index = 6 + Left = 4800 + TabIndex = 54 + Top = 570 + Value = 1 'Checked + Width = 735 + End + Begin VB.CheckBox chkArmourType + Caption = "Scale" + Height = 195 + Index = 5 + Left = 4020 + TabIndex = 53 + Top = 570 + Value = 1 'Checked + Width = 735 + End + Begin VB.CheckBox chkArmourType + Caption = "Chain" + Height = 195 + Index = 4 + Left = 4020 + TabIndex = 52 + Top = 300 + Value = 1 'Checked + Width = 795 + End + Begin VB.CheckBox chkArmourType + Caption = "Leather" + Height = 195 + Index = 3 + Left = 3120 + TabIndex = 51 + Top = 570 + Value = 1 'Checked + Width = 855 + End + Begin VB.CheckBox chkArmourType + Caption = "Ninja" + Height = 195 + Index = 2 + Left = 3120 + TabIndex = 50 + Top = 300 + Value = 1 'Checked + Width = 795 + End + Begin VB.CheckBox chkArmourType + Caption = "Silk" + Height = 195 + Index = 1 + Left = 2220 + TabIndex = 49 + Top = 570 + Value = 1 'Checked + Width = 675 + End + Begin VB.CheckBox chkArmourType + Caption = "Natural" + Height = 195 + Index = 0 + Left = 2220 + TabIndex = 48 + Top = 300 + Value = 1 'Checked + Width = 855 + End + Begin VB.ComboBox cmbArmourWorn + Height = 315 + Left = 6780 Sorted = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 + Style = 2 'Dropdown List + TabIndex = 57 + Top = 480 + Width = 1695 End - Begin VB.TextBox txtClassDetail - Height = 375 - Left = 120 - Locked = -1 'True - MultiLine = -1 'True - TabIndex = 663 - Top = 5580 - Width = 10215 + Begin VB.CommandButton cmdFilter + Caption = "&Apply Filter" + Height = 555 + Index = 4 + Left = 11580 + TabIndex = 58 + Top = 240 + Width = 675 End - Begin MSComctlLib.ListView lvRaces - Height = 4935 + Begin VB.TextBox txtArmourFind + Height = 285 Left = 120 - TabIndex = 664 - Tag = "STRETCHALL" - Top = 600 - Visible = 0 'False - Width = 10215 - _ExtentX = 18018 - _ExtentY = 8705 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 + TabIndex = 45 + Top = 510 + Width = 1995 + End + Begin VB.CommandButton cmdFind + Caption = "&Find" + Height = 255 + Index = 2 + Left = 120 + TabIndex = 46 + Top = 240 + Width = 975 End - End - Begin VB.Frame framNav - Caption = "Character" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 6735 - Index = 5 - Left = 60 - TabIndex = 665 - Top = 1200 - Visible = 0 'False - Width = 13215 - Begin VB.Frame fraCharMisc - Caption = "Misc" - Height = 5175 - Left = 8340 - TabIndex = 1157 - Top = 720 - Width = 2235 - Begin VB.CommandButton cmdCharAC - Caption = "-" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 315 - Index = 0 - Left = 300 - TabIndex = 1172 - Top = 2940 - Width = 255 - End - Begin VB.CommandButton cmdCharAC - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 315 - Index = 1 - Left = 1620 - TabIndex = 1171 - Top = 2940 - Width = 255 - End - Begin VB.TextBox txtCharVsAccy - Alignment = 2 'Center - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 345 - Left = 600 - MaxLength = 4 - TabIndex = 1168 - Text = "150" - Top = 3660 - Width = 975 - End - Begin VB.TextBox txtCharAC - Alignment = 2 'Center - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 345 - Left = 600 - MaxLength = 4 - TabIndex = 1166 - Top = 2940 - Width = 975 - End - Begin VB.CheckBox chkCharAntiMagic - Caption = "Anti-Magic" - Height = 255 - Left = 1020 - TabIndex = 1160 - Top = 600 - Width = 1155 - End - Begin VB.TextBox txtCharMR - Alignment = 2 'Center - Height = 285 - Left = 120 - MaxLength = 4 - TabIndex = 1159 - Top = 600 - Width = 735 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - AutoSize = -1 'True - Caption = "Attacker Miss Rate:" - Height = 195 - Index = 35 - Left = 420 - TabIndex = 1170 - Top = 4140 - Width = 1410 - End - Begin VB.Label lblCharACMiss - Alignment = 2 'Center - BeginProperty Font - Name = "MS Sans Serif" - Size = 13.5 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 495 - Left = 120 - TabIndex = 1169 - Top = 4440 - Width = 1995 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - AutoSize = -1 'True - Caption = "vs Accuracy:" - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 240 - Index = 34 - Left = 420 - TabIndex = 1167 - Top = 3360 - Width = 1350 - End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - AutoSize = -1 'True - Caption = "Armour Class:" - BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 240 - Index = 32 - Left = 390 - TabIndex = 1165 - Top = 2640 - Width = 1470 - End - Begin VB.Line Line2 - X1 = 180 - X2 = 1980 - Y1 = 2400 - Y2 = 2400 - End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Chance to Resist-All:" - Height = 195 - Index = 31 - Left = 120 - TabIndex = 1164 - Top = 1620 - Width = 1470 - End - Begin VB.Label lblCharMR - Alignment = 2 'Center - BeginProperty Font - Name = "MS Sans Serif" - Size = 13.5 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 375 - Index = 1 - Left = 120 - TabIndex = 1163 - Top = 1860 - Width = 1995 - End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Reduction to Damage-MR:" - Height = 195 - Index = 29 - Left = 120 - TabIndex = 1162 - Top = 960 - Width = 1905 - End - Begin VB.Label lblCharMR - Alignment = 2 'Center - BeginProperty Font - Name = "MS Sans Serif" - Size = 13.5 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 375 - Index = 0 - Left = 120 - TabIndex = 1161 - Top = 1200 - Width = 1995 + Begin VB.CommandButton cmdFind + Caption = "&Next" + Height = 255 + Index = 3 + Left = 1140 + TabIndex = 47 + Top = 240 + Width = 975 + End + Begin MMUD_Explorer.cntSplitter splSplitterNS + Height = 5115 + Index = 1 + Left = 120 + TabIndex = 819 + Top = 840 + Width = 10215 + _ExtentX = 18018 + _ExtentY = 9022 + Begin MMUD_Explorer.cntSplitter splSplitterWE + Height = 975 + Index = 1 + Left = 0 + TabIndex = 820 + Top = 4140 + Width = 10095 + _ExtentX = 17806 + _ExtentY = 1720 + Begin VB.TextBox txtArmourDetail + Height = 975 + Left = 0 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 61 + Top = 0 + Width = 2895 + End + Begin MSComctlLib.ListView lvArmourLoc + Height = 975 + Left = 6180 + TabIndex = 821 + Top = 0 + Width = 3915 + _ExtentX = 6906 + _ExtentY = 1720 + View = 3 + LabelEdit = 1 + SortOrder = -1 'True + LabelWrap = -1 'True + HideSelection = -1 'True + FullRowSelect = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 + End End - Begin VB.Label lblLabelArray - Alignment = 2 'Center - Caption = "Magic Resistance:" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 33 - Left = 120 - TabIndex = 1158 - Top = 300 - Width = 1995 + Begin MSComctlLib.ListView lvArmour + Height = 1815 + Left = 0 + TabIndex = 60 + Tag = "STRETCHALL" + Top = 0 + Width = 5775 + _ExtentX = 10186 + _ExtentY = 3201 + View = 3 + LabelEdit = 1 + Sorted = -1 'True + MultiSelect = -1 'True + LabelWrap = -1 'True + HideSelection = 0 'False + FullRowSelect = -1 'True + GridLines = -1 'True + _Version = 393217 + ForeColor = -2147483640 + BackColor = -2147483643 + BorderStyle = 1 + Appearance = 1 + NumItems = 0 End End - Begin VB.CommandButton cmdInvenPasteChar - Caption = "&Paste Character..." - Height = 435 + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Negate Spell / Ability Filter" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Index = 12 + Left = 8580 + TabIndex = 822 + Top = 240 + Width = 2835 + End + Begin VB.Label lblLabelArray + Alignment = 2 'Center + Caption = "Worn On" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 195 + Index = 16 + Left = 6780 + TabIndex = 823 + Top = 240 + Width = 1695 + End + End + Begin VB.Frame framNav + Caption = "Equipment" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 6735 + Index = 4 + Left = 60 + TabIndex = 824 + Top = 1200 + Visible = 0 'False + Width = 13215 + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 16 + Left = 4140 + TabIndex = 825 + Top = 6300 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 15 + Left = 4140 + TabIndex = 826 + Top = 6000 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 14 + Left = 4140 + TabIndex = 827 + Top = 5700 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 13 + Left = 4140 + TabIndex = 828 + Top = 5400 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 12 + Left = 4140 + TabIndex = 829 + Top = 5100 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 11 + Left = 4140 + TabIndex = 830 + Top = 4800 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 10 + Left = 4140 + TabIndex = 831 + Top = 4500 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 9 + Left = 4140 + TabIndex = 832 + Top = 4200 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 8 + Left = 4140 + TabIndex = 833 + Top = 3900 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 7 + Left = 4140 + TabIndex = 834 + Top = 3600 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 6 + Left = 4140 + TabIndex = 835 + Top = 3300 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 5 + Left = 4140 + TabIndex = 836 + Top = 3000 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 4 + Left = 4140 + TabIndex = 837 + Top = 2700 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 3 + Left = 4140 + TabIndex = 838 + Top = 2400 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 2 + Left = 4140 + TabIndex = 839 + Top = 2100 + Width = 255 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 0 + ItemData = "frmMain.frx":0D36 + Left = 1260 + List = "frmMain.frx":0D38 + Sorted = -1 'True + TabIndex = 840 + Text = "cmbEquip" + Top = 900 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 Index = 1 + ItemData = "frmMain.frx":0D3A + Left = 1260 + List = "frmMain.frx":0D3C + Sorted = -1 'True + TabIndex = 841 + Text = "cmbEquip" + Top = 1200 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 17 + ItemData = "frmMain.frx":0D3E + Left = 1260 + List = "frmMain.frx":0D40 + Sorted = -1 'True + TabIndex = 842 + Text = "cmbEquip" + Top = 1500 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 18 + ItemData = "frmMain.frx":0D42 + Left = 1260 + List = "frmMain.frx":0D44 + Sorted = -1 'True + TabIndex = 843 + Text = "cmbEquip" + Top = 1800 + Width = 2835 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 18 + Left = 4140 + TabIndex = 844 + Top = 1800 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 17 + Left = 4140 + TabIndex = 845 + Top = 1500 + Width = 255 + End + Begin VB.CheckBox chkEquipHold + Caption = "Face" + Height = 195 + Index = 18 Left = 120 - TabIndex = 666 - Top = 240 - Width = 1755 + TabIndex = 846 + Top = 1860 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Eyes" + Height = 195 + Index = 17 + Left = 120 + TabIndex = 847 + Top = 1560 + Width = 1035 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 2 + ItemData = "frmMain.frx":0D46 + Left = 1260 + List = "frmMain.frx":0D48 + Sorted = -1 'True + TabIndex = 848 + Text = "cmbEquip" + Top = 2100 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 3 + ItemData = "frmMain.frx":0D4A + Left = 1260 + List = "frmMain.frx":0D4C + Sorted = -1 'True + TabIndex = 849 + Text = "cmbEquip" + Top = 2400 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 4 + ItemData = "frmMain.frx":0D4E + Left = 1260 + List = "frmMain.frx":0D50 + Sorted = -1 'True + TabIndex = 850 + Text = "cmbEquip" + Top = 2700 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 5 + ItemData = "frmMain.frx":0D52 + Left = 1260 + List = "frmMain.frx":0D54 + Sorted = -1 'True + TabIndex = 851 + Text = "cmbEquip" + Top = 3000 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 6 + ItemData = "frmMain.frx":0D56 + Left = 1260 + List = "frmMain.frx":0D58 + Sorted = -1 'True + TabIndex = 852 + Text = "cmbEquip" + Top = 3300 + Width = 2835 + End + Begin VB.CheckBox chkEquipHold + Caption = "Wrist" + Height = 195 + Index = 6 + Left = 120 + TabIndex = 853 + Top = 3360 + Width = 1035 + End + Begin VB.CheckBox chkInvenHideCharStats + Caption = "Hide Character Specific Stats" + Height = 195 + Left = 7740 + TabIndex = 854 + Top = 900 + Width = 2535 + End + Begin VB.CommandButton cmdInvenAdditionalWeight + Caption = "Additional Item Weight" + Height = 435 + Left = 4800 + TabIndex = 855 + Top = 1620 + Width = 2055 + End + Begin VB.CommandButton cmdResetFonts + Caption = "Reset Fonts" + Height = 375 + Left = 4800 + TabIndex = 856 + Top = 4560 + Width = 2055 + End + Begin VB.CommandButton cmdInvenSetStatFont + Caption = "Stat Font" + Height = 375 + Left = 4800 + TabIndex = 857 + Top = 4140 + Width = 2055 + End + Begin VB.CommandButton cmdInvenEmptyLists + Caption = "?" + Height = 375 + Index = 1 + Left = 6540 + TabIndex = 858 + Top = 3060 + Width = 315 + End + Begin VB.CommandButton cmdInvenEmptyLists + Caption = "Empty Lists" + Height = 375 + Index = 0 + Left = 4800 + TabIndex = 859 + Top = 3060 + Width = 1695 + End + Begin VB.CommandButton cmdInvenCompareAll + Caption = "Add All to &Compare" + Height = 555 + Left = 4800 + TabIndex = 860 + Top = 2280 + Width = 2055 + End + Begin VB.CheckBox chkInvenAddWeight + Caption = "Use Additional Weight:" + Height = 255 + Left = 4800 + TabIndex = 861 + Top = 900 + Width = 2055 + End + Begin VB.TextBox txtInvenAddWeight + Alignment = 2 'Center + Height = 345 + Left = 4800 + TabIndex = 862 + Top = 1200 + Width = 2055 + End + Begin VB.CommandButton cmdInvenModStrength + Caption = "+" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 1 + Left = 12540 + TabIndex = 863 + Top = 840 + Width = 315 End - Begin VB.Frame fraChar - Caption = "Stats" - Height = 5175 + Begin VB.CommandButton cmdInvenModStrength + Caption = "-" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 Index = 0 - Left = 120 - TabIndex = 667 - Top = 720 - Width = 3915 - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 11 - Left = 3420 - TabIndex = 668 - Top = 4020 - Width = 315 - End - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 9 - Left = 3420 - TabIndex = 669 - Top = 3660 - Width = 315 - End - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 7 - Left = 3420 - TabIndex = 670 - Top = 3300 - Width = 315 - End - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 5 - Left = 3420 - TabIndex = 671 - Top = 2940 - Width = 315 - End - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 3 - Left = 3420 - TabIndex = 672 - Top = 2580 - Width = 315 - End - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Index = 1 - Left = 3420 - TabIndex = 673 - Top = 2220 - Width = 315 - End - Begin VB.CommandButton cmdCharChangeStats - Caption = "+" + Left = 12240 + TabIndex = 864 + Top = 840 + Width = 315 + End + Begin VB.CommandButton cmdInvenNextBest + Caption = "Ne&xt Best" + Height = 375 + Left = 6420 + TabIndex = 865 + Top = 180 + Width = 1095 + End + Begin VB.PictureBox picStats + Appearance = 0 'Flat + AutoRedraw = -1 'True + BackColor = &H00000000& + ForeColor = &H80000008& + Height = 4695 + Left = 7680 + ScaleHeight = 311 + ScaleMode = 3 'Pixel + ScaleWidth = 343 + TabIndex = 866 + Top = 1200 + Width = 5175 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 13 - Left = 3420 - TabIndex = 674 - Top = 1380 - Width = 315 - End - Begin VB.TextBox txtCharStats - Alignment = 2 'Center - Height = 285 - Index = 5 - Left = 1380 - MaxLength = 4 - TabIndex = 675 - Text = "0" - Top = 4020 - Width = 735 - End - Begin VB.TextBox txtCharStats - Alignment = 2 'Center - Height = 285 + ForeColor = &H00C0C000& + Height = 290 Index = 3 - Left = 1380 - MaxLength = 4 - TabIndex = 676 + Left = 2820 + Locked = -1 'True + MaxLength = 5 + TabIndex = 867 + TabStop = 0 'False Text = "0" - Top = 3300 - Width = 735 - End - Begin VB.TextBox txtGlobalLevel - Alignment = 2 'Center - Height = 300 - Index = 0 - Left = 1380 - MaxLength = 3 - TabIndex = 677 - Text = "999" - Top = 1380 - Width = 1635 - End - Begin VB.ComboBox cmbGlobalClass - Height = 315 - Index = 0 - Left = 1380 - Sorted = -1 'True - Style = 2 'Dropdown List - TabIndex = 678 - Top = 660 - Width = 1635 - End - Begin VB.TextBox txtCharStats - Alignment = 2 'Center - Height = 300 - Index = 0 - Left = 1380 - MaxLength = 4 - TabIndex = 679 - Text = "100" - Top = 2220 + Top = 420 Width = 735 End - Begin VB.ComboBox cmbGlobalRace - Height = 315 - Index = 0 - Left = 1380 - Sorted = -1 'True - Style = 2 'Dropdown List - TabIndex = 680 - Top = 1020 - Width = 1635 - End - Begin VB.TextBox txtCharStats - Alignment = 2 'Center - Height = 285 + Begin VB.TextBox txtStat + Alignment = 1 'Right Justify + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 Index = 2 - Left = 1380 - MaxLength = 4 - TabIndex = 681 + Left = 1740 + Locked = -1 'True + MaxLength = 5 + TabIndex = 868 + TabStop = 0 'False Text = "0" - Top = 2940 - Width = 735 + Top = 420 + Width = 795 End - Begin VB.TextBox txtCharStats - Alignment = 2 'Center - Height = 285 - Index = 1 - Left = 1380 - MaxLength = 4 - TabIndex = 682 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 4 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 869 + TabStop = 0 'False Text = "0" - Top = 2580 + Top = 2595 Width = 735 End - Begin VB.TextBox txtCharStats - Alignment = 2 'Center - Height = 285 - Index = 4 - Left = 1380 - MaxLength = 4 - TabIndex = 683 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 5 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 870 + TabStop = 0 'False Text = "0" - Top = 3660 + Top = 795 Width = 735 End - Begin VB.TextBox txtCharMaxStats - Alignment = 2 'Center - BackColor = &H80000016& - Height = 285 - Index = 0 - Left = 2160 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 6 + Left = 1560 Locked = -1 'True - TabIndex = 684 + MaxLength = 5 + TabIndex = 871 TabStop = 0 'False Text = "0" - Top = 2220 - Width = 855 + Top = 1095 + Width = 735 End - Begin VB.TextBox txtCharMaxStats - Alignment = 2 'Center - BackColor = &H80000016& - Height = 285 - Index = 1 - Left = 2160 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 7 + Left = 1560 Locked = -1 'True - TabIndex = 685 + MaxLength = 5 + TabIndex = 872 TabStop = 0 'False Text = "0" - Top = 2580 - Width = 855 + Top = 1395 + Width = 735 End - Begin VB.TextBox txtCharMaxStats - Alignment = 2 'Center - BackColor = &H80000016& - Height = 285 - Index = 2 - Left = 2160 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 8 + Left = 1560 Locked = -1 'True - TabIndex = 686 + MaxLength = 5 + TabIndex = 873 TabStop = 0 'False Text = "0" - Top = 2940 - Width = 855 + Top = 1695 + Width = 735 End - Begin VB.TextBox txtCharMaxStats - Alignment = 2 'Center - BackColor = &H80000016& - Height = 285 - Index = 3 - Left = 2160 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 9 + Left = 1560 Locked = -1 'True - TabIndex = 687 + MaxLength = 5 + TabIndex = 874 TabStop = 0 'False Text = "0" - Top = 3300 - Width = 855 + Top = 1995 + Width = 735 End - Begin VB.TextBox txtCharMaxStats - Alignment = 2 'Center - BackColor = &H80000016& - Height = 285 - Index = 4 - Left = 2160 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 10 + Left = 1560 Locked = -1 'True - TabIndex = 688 + MaxLength = 5 + TabIndex = 875 TabStop = 0 'False Text = "0" - Top = 3660 - Width = 855 + Top = 2295 + Width = 735 End - Begin VB.TextBox txtCharMaxStats - Alignment = 2 'Center - BackColor = &H80000016& - Height = 285 - Index = 5 - Left = 2160 + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 11 + Left = 4320 Locked = -1 'True - TabIndex = 689 + MaxLength = 5 + TabIndex = 876 TabStop = 0 'False Text = "0" - Top = 4020 - Width = 855 - End - Begin VB.TextBox txtCharName - Height = 285 - Left = 1380 - MaxLength = 32 - TabIndex = 690 - Top = 300 - Width = 2355 + Top = 1395 + Width = 795 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 0 - Left = 3120 - TabIndex = 691 - Top = 2220 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 12 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 877 + TabStop = 0 'False + Text = "0" + Top = 2595 + Width = 795 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 2 - Left = 3120 - TabIndex = 692 - Top = 2580 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 13 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 878 + TabStop = 0 'False + Text = "0" + Top = 2295 + Width = 795 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 4 - Left = 3120 - TabIndex = 693 - Top = 2940 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 14 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 879 + TabStop = 0 'False + Text = "0" + Top = 1695 + Width = 795 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 6 - Left = 3120 - TabIndex = 694 - Top = 3300 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 16 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 880 + TabStop = 0 'False + Text = "0" + Top = 795 + Width = 795 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 8 - Left = 3120 - TabIndex = 695 - Top = 3660 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 17 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 881 + TabStop = 0 'False + Text = "0" + Top = 1095 + Width = 795 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 10 - Left = 3120 - TabIndex = 696 - Top = 4020 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 18 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 882 + TabStop = 0 'False + Text = "0" + Top = 2895 + Width = 735 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "Reset" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 + Name = "Terminal" + Size = 9 + Charset = 255 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 14 - Left = 2160 - TabIndex = 697 - Top = 1800 - Width = 855 + ForeColor = &H00C0C000& + Height = 290 + Index = 19 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 883 + TabStop = 0 'False + Text = "0" + Top = 3195 + Width = 735 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "-" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C0C000& + Height = 290 + Index = 20 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 884 + TabStop = 0 'False + Text = "0" + Top = 3495 + Width = 735 + End + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 255 - Index = 12 - Left = 3120 - TabIndex = 698 - Top = 1380 - Width = 315 + ForeColor = &H00C0C000& + Height = 290 + Index = 21 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 885 + TabStop = 0 'False + Text = "0" + Top = 3795 + Width = 735 End - Begin VB.CommandButton cmdCharChangeStats - Caption = "Reload" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 + Name = "Terminal" + Size = 9 + Charset = 255 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 15 - Left = 1380 - TabIndex = 699 - Top = 1800 + ForeColor = &H00C0C000& + Height = 290 + Index = 22 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 886 + TabStop = 0 'False + Text = "0" + Top = 4095 Width = 735 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Charm:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 3 - Left = 180 - TabIndex = 700 - Top = 4020 - Width = 735 + ForeColor = &H00C0C000& + Height = 290 + Index = 25 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 887 + TabStop = 0 'False + Text = "0" + Top = 3195 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Agility:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 2 - Left = 180 - TabIndex = 701 - Top = 3300 - Width = 720 + ForeColor = &H00C0C000& + Height = 290 + Index = 26 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 888 + TabStop = 0 'False + Text = "0" + Top = 3495 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Level:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 0 - Left = 180 - TabIndex = 702 - Top = 1380 - Width = 645 + ForeColor = &H00C0C000& + Height = 290 + Index = 27 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 889 + TabStop = 0 'False + Text = "0" + Top = 3795 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Class:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 6 - Left = 180 - TabIndex = 703 - Top = 660 - Width = 660 + ForeColor = &H00C0C000& + Height = 290 + Index = 28 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 890 + TabStop = 0 'False + Text = "0" + Top = 4095 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Strength:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 1 - Left = 180 - TabIndex = 704 - Top = 2220 - Width = 930 + ForeColor = &H00C0C000& + Height = 290 + Index = 29 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 891 + TabStop = 0 'False + Text = "0" + Top = 4395 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Race:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 5 - Left = 180 - TabIndex = 705 - Top = 1020 - Width = 630 + ForeColor = &H00C0C000& + Height = 290 + Index = 23 + Left = 1560 + Locked = -1 'True + MaxLength = 5 + TabIndex = 892 + TabStop = 0 'False + Text = "0" + Top = 4395 + Width = 735 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Intellect:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 4 - Left = 180 - TabIndex = 706 - Top = 2580 - Width = 885 + ForeColor = &H00C0C000& + Height = 290 + Index = 24 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 893 + TabStop = 0 'False + Text = "0" + Top = 2895 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Health:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 23 - Left = 180 - TabIndex = 707 - Top = 3660 - Width = 750 + ForeColor = &H00C0C000& + Height = 290 + Index = 15 + Left = 4320 + Locked = -1 'True + MaxLength = 5 + TabIndex = 894 + TabStop = 0 'False + Text = "0" + Top = 1995 + Width = 795 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Willpower:" + Begin VB.TextBox txtStat + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 24 - Left = 180 - TabIndex = 708 - Top = 2940 - Width = 1095 + ForeColor = &H00C0C000& + Height = 290 + Index = 1 + Left = 2820 + Locked = -1 'True + MaxLength = 7 + TabIndex = 895 + TabStop = 0 'False + Text = "0" + Top = 60 + Width = 735 End - Begin VB.Label lblLabelArray - AutoSize = -1 'True - Caption = "Name:" + Begin VB.TextBox txtStat + Alignment = 1 'Right Justify + Appearance = 0 'Flat + BackColor = &H00000000& + BorderStyle = 0 'None BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 240 - Index = 25 - Left = 180 - TabIndex = 709 - Top = 300 - Width = 690 + ForeColor = &H00C0C000& + Height = 290 + Index = 0 + Left = 1740 + Locked = -1 'True + MaxLength = 7 + TabIndex = 896 + TabStop = 0 'False + Text = "0" + Top = 60 + Width = 795 End - Begin VB.Label lblStatCalc - Appearance = 0 'Flat - Caption = "CP:" + Begin VB.Label lblInvenSlash + Alignment = 1 'Right Justify + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "/" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 + Name = "Terminal" + Size = 9 + Charset = 255 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 615 - Left = 180 - TabIndex = 710 - Top = 4440 - Width = 3555 - End - End - Begin VB.Frame fraChar - Caption = "Hit Points / Hit Point Regen" - Height = 1335 - Index = 1 - Left = 4140 - TabIndex = 711 - Top = 720 - Width = 4095 - Begin VB.TextBox txtCharHPRegen - Alignment = 2 'Center - Height = 315 - Left = 180 - MaxLength = 4 - TabIndex = 712 - Top = 840 - Width = 1035 + ForeColor = &H00C0C000& + Height = 300 + Index = 1 + Left = 2610 + TabIndex = 897 + Top = 420 + Width = 150 End - Begin VB.Label lblLabelArray + Begin VB.Label lblInvenStats AutoSize = -1 'True - Caption = "Regen Bonus" - Height = 195 - Index = 26 - Left = 180 - TabIndex = 713 - Top = 600 - Width = 975 - End - Begin VB.Label lblCharRestRate - Appearance = 0 'Flat - Caption = "Resting:" + BackColor = &H00000000& + Caption = "Armour Class:" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 495 - Left = 1380 - TabIndex = 714 - Top = 660 - Width = 2535 + ForeColor = &H0000C000& + Height = 180 + Index = 3 + Left = 120 + TabIndex = 898 + Top = 435 + Width = 1560 End - Begin VB.Label lblCharMaxHP - Appearance = 0 'Flat - Caption = "HP Range:" + Begin VB.Label lblEncumLevel + Alignment = 2 'Center + BackColor = &H00000000& + Caption = "None (0%)" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 255 - Left = 180 - TabIndex = 715 - Top = 300 - Width = 3735 - End - End - Begin VB.Frame fraChar - Caption = "Spellcasting / Mana / Mana Regen" - Height = 1635 - Index = 2 - Left = 4140 - TabIndex = 716 - Top = 2100 - Width = 4095 - Begin VB.TextBox txtCharManaRegen - Alignment = 2 'Center - Height = 315 - Left = 180 - MaxLength = 4 - TabIndex = 717 - Top = 1200 - Width = 1035 + ForeColor = &H00C0C000& + Height = 600 + Index = 1 + Left = 3600 + TabIndex = 899 + Top = 135 + Width = 1560 End - Begin VB.Label lblCharManaRate - Appearance = 0 'Flat - Caption = "Mana Regen:" + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Picklocks:" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 495 - Left = 1380 - TabIndex = 718 - Top = 1020 - Width = 2535 + ForeColor = &H0000C000& + Height = 180 + Index = 22 + Left = 120 + TabIndex = 900 + Top = 4095 + Width = 1200 End - Begin VB.Label lblLabelArray + Begin VB.Label lblInvenStats AutoSize = -1 'True - Caption = "Regen Bonus" - Height = 195 - Index = 27 - Left = 180 - TabIndex = 719 - Top = 960 - Width = 975 - End - Begin VB.Label lblCharMaxMana - Appearance = 0 'Flat - Caption = "Mana:" + BackColor = &H00000000& + Caption = "Traps:" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 255 - Left = 180 - TabIndex = 720 - Top = 600 - Width = 3735 + ForeColor = &H0000C000& + Height = 180 + Index = 21 + Left = 120 + TabIndex = 901 + Top = 3795 + Width = 720 End - Begin VB.Label lblCharSC - Appearance = 0 'Flat - Caption = "Spellcasting:" + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Prot Evil:" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 255 - Left = 180 - TabIndex = 721 - Top = 300 - Width = 3735 - End - End - Begin VB.Frame fraChar - Caption = "Completed Quests" - Height = 1455 - Index = 4 - Left = 4140 - TabIndex = 722 - Top = 4440 - Width = 4095 - Begin VB.ComboBox cmbChar2ndAlign - Enabled = 0 'False - Height = 315 - Left = 2460 - Style = 2 'Dropdown List - TabIndex = 723 - Top = 1020 - Width = 1455 - End - Begin VB.CheckBox chkCharQuests - Height = 255 - Index = 5 - Left = 2160 - TabIndex = 724 - Top = 1020 - Width = 195 - End - Begin VB.CheckBox chkCharQuests - Caption = "Ice Sorceress (+1 AC)" - Height = 255 - Index = 0 - Left = 120 - TabIndex = 725 - Top = 300 - Width = 1935 - End - Begin VB.CheckBox chkCharQuests - Caption = "High Druid (+1 SC)" - Height = 255 - Index = 1 - Left = 120 - TabIndex = 726 - Top = 660 - Width = 1935 - End - Begin VB.CheckBox chkCharQuests - Caption = "Bishop (+3 ACC)" - Height = 255 - Index = 3 - Left = 2160 - TabIndex = 727 - Top = 300 - Width = 1635 - End - Begin VB.CheckBox chkCharQuests - Caption = "ARD (+1 Crit, +2 SC)" - Height = 255 - Index = 2 + ForeColor = &H0000C000& + Height = 180 + Index = 20 Left = 120 - TabIndex = 728 - Top = 1020 - Width = 1815 - End - Begin VB.CheckBox chkCharQuests - Caption = "Apparatus (+1 DG)" - Height = 255 - Index = 4 - Left = 2160 - TabIndex = 729 - Top = 660 - Width = 1635 + TabIndex = 902 + Top = 3495 + Width = 1200 End - End - Begin VB.Frame fraChar - Caption = "Picklocks" - Height = 615 - Index = 3 - Left = 4140 - TabIndex = 730 - Top = 3780 - Width = 4095 - Begin VB.Label lblCharPicklocks - Appearance = 0 'Flat - Caption = "Picklocks: " + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Stealth:" BeginProperty Font - Name = "MS Sans Serif" - Size = 9.75 - Charset = 0 - Weight = 700 + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H80000008& - Height = 255 - Left = 180 - TabIndex = 731 - Top = 240 - Width = 3735 - End - End - Begin VB.CommandButton cmdCharCopytoClip - Caption = "&Copy Full Character" - Height = 435 - Index = 0 - Left = 6300 - TabIndex = 732 - Top = 240 - Width = 1935 - End - Begin VB.CommandButton cmdCharCopytoClip - Caption = "Copy Only Stats" - Height = 435 - Index = 1 - Left = 4140 - TabIndex = 733 - Top = 240 - Width = 1995 - End - Begin VB.CommandButton cmdCharCopytoClip - Caption = "Copy Only CP Info" - Height = 435 - Index = 2 - Left = 2040 - TabIndex = 734 - Top = 240 - Width = 1935 - End - Begin VB.CommandButton cmdCharReset - Caption = "Reset Character Fields" - Height = 435 - Left = 8400 - TabIndex = 735 - Top = 240 - Width = 2055 - End - Begin VB.Frame fraChar - Caption = "Bless Calc (Only)" - Height = 5175 - Index = 5 - Left = 10680 - TabIndex = 736 - Top = 720 - Width = 2415 - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 0 - Left = 120 - Sorted = -1 'True - TabIndex = 737 - Text = "cmbCharBless" - Top = 660 - Width = 1875 - End - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 1 + ForeColor = &H0000C000& + Height = 180 + Index = 19 Left = 120 - Sorted = -1 'True - TabIndex = 738 - Text = "cmbCharBless" - Top = 1020 - Width = 1875 + TabIndex = 903 + Top = 3195 + Width = 960 End - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 2 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Perception:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 18 Left = 120 - Sorted = -1 'True - TabIndex = 739 - Text = "cmbCharBless" - Top = 1380 - Width = 1875 + TabIndex = 904 + Top = 2895 + Width = 1320 End - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 3 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "SpellCast:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 9 Left = 120 - Sorted = -1 'True - TabIndex = 740 - Text = "cmbCharBless" - Top = 1740 - Width = 1875 + TabIndex = 905 + Top = 1995 + Width = 1200 End - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 4 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Mana:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 6 Left = 120 - Sorted = -1 'True - TabIndex = 741 - Text = "cmbCharBless" - Top = 2100 - Width = 1875 + TabIndex = 906 + Top = 1095 + Width = 600 End - Begin VB.ComboBox cmbCharBless - Height = 315 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "HitPoints:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 Index = 5 Left = 120 - Sorted = -1 'True - TabIndex = 742 - Text = "cmbCharBless" - Top = 2460 - Width = 1875 + TabIndex = 907 + Top = 795 + Width = 1200 End - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 6 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Max Damage:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 11 + Left = 2400 + TabIndex = 908 + Top = 1395 + Width = 1320 + End + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Magic Resist:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 24 + Left = 2400 + TabIndex = 909 + Top = 2895 + Width = 1560 + End + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Lightning Res.:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 29 + Left = 2400 + TabIndex = 910 + Top = 4395 + Width = 1800 + End + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Accuracy:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 10 Left = 120 - Sorted = -1 'True - TabIndex = 743 - Text = "cmbCharBless" - Top = 2820 - Width = 1875 + TabIndex = 911 + Top = 2295 + Width = 1080 End - Begin VB.ComboBox cmbCharBless - Height = 315 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Crits:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 Index = 7 Left = 120 - Sorted = -1 'True - TabIndex = 744 - Text = "cmbCharBless" - Top = 3180 - Width = 1875 + TabIndex = 912 + Top = 1410 + Width = 720 End - Begin VB.ComboBox cmbCharBless - Height = 315 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Dodge:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 Index = 8 Left = 120 - Sorted = -1 'True - TabIndex = 745 - Text = "cmbCharBless" - Top = 3540 - Width = 1875 + TabIndex = 913 + Top = 1710 + Width = 720 End - Begin VB.ComboBox cmbCharBless - Height = 315 - Index = 9 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Illuminatn:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 23 Left = 120 - Sorted = -1 'True - TabIndex = 746 - Text = "cmbCharBless" - Top = 3900 - Width = 1875 + TabIndex = 914 + Top = 4395 + Width = 1320 End - Begin VB.CommandButton cmdCharResetBless - Caption = "Reset" + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Water Resist:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 + Name = "Terminal" + Size = 9 + Charset = 255 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 0 - Left = 1380 - TabIndex = 747 - Top = 240 - Width = 915 + ForeColor = &H0000C000& + Height = 180 + Index = 26 + Left = 2400 + TabIndex = 915 + Top = 3495 + Width = 1560 End - Begin VB.CommandButton cmdCharResetBless - Caption = "Reload" + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Fire Resist:" BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 + Name = "Terminal" + Size = 9 + Charset = 255 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 1 - Left = 120 - TabIndex = 748 - Top = 240 - Width = 1155 - End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 0 - Left = 2040 - TabIndex = 749 - Top = 660 - Width = 255 + ForeColor = &H0000C000& + Height = 180 + Index = 27 + Left = 2400 + TabIndex = 916 + Top = 3795 + Width = 1440 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 1 - Left = 2040 - TabIndex = 750 - Top = 1020 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Stone Resist:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 25 + Left = 2400 + TabIndex = 917 + Top = 3195 + Width = 1560 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 2 - Left = 2040 - TabIndex = 751 - Top = 1380 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "HitPoint Regen:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 16 + Left = 2400 + TabIndex = 918 + Top = 795 + Width = 1800 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 3 - Left = 2040 - TabIndex = 752 - Top = 1740 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "BS Accuracy:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 13 + Left = 2400 + TabIndex = 919 + Top = 2295 + Width = 1440 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 4 - Left = 2040 - TabIndex = 753 - Top = 2100 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "BS Min Damage:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 14 + Left = 2400 + TabIndex = 920 + Top = 1695 + Width = 1680 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 5 - Left = 2040 - TabIndex = 754 - Top = 2460 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "BS Max Damage:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 15 + Left = 2400 + TabIndex = 921 + Top = 1995 + Width = 1680 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 6 - Left = 2040 - TabIndex = 755 - Top = 2820 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Cold Resist:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 28 + Left = 2400 + TabIndex = 922 + Top = 4095 + Width = 1440 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 7 - Left = 2040 - TabIndex = 756 - Top = 3180 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Mana Regen:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 17 + Left = 2400 + TabIndex = 923 + Top = 1095 + Width = 1320 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 8 - Left = 2040 - TabIndex = 757 - Top = 3540 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Shield Damage:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 12 + Left = 2400 + TabIndex = 924 + Top = 2595 + Width = 1680 End - Begin VB.CommandButton cmdCharBlessJump - Caption = ">" - Height = 315 - Index = 9 - Left = 2040 - TabIndex = 758 - Top = 3900 - Width = 255 + Begin VB.Label lblInvenStats + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "Encum.:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 4 + Left = 120 + TabIndex = 925 + Top = 2595 + Width = 840 End - Begin VB.Label lblCharBless - Alignment = 2 'Center - Caption = "0" + Begin VB.Label lblInvenSlash + Alignment = 1 'Right Justify + AutoSize = -1 'True + BackColor = &H00000000& + Caption = "/" BeginProperty Font - Name = "MS Sans Serif" - Size = 13.5 - Charset = 0 + Name = "Terminal" + Size = 9 + Charset = 255 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 375 - Left = 120 - TabIndex = 759 - Top = 4380 - Width = 2175 + ForeColor = &H00C0C000& + Height = 300 + Index = 0 + Left = 2610 + TabIndex = 926 + Top = 60 + Width = 150 End - Begin VB.Label lblLabelArray - Alignment = 2 'Center + Begin VB.Label lblInvenStats AutoSize = -1 'True - Caption = "Mana Regen Needed" - ForeColor = &H80000011& - Height = 195 - Index = 10 + BackColor = &H00000000& + Caption = "Encumbrance:" + BeginProperty Font + Name = "Terminal" + Size = 9 + Charset = 255 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H0000C000& + Height = 180 + Index = 2 Left = 120 - TabIndex = 760 - Top = 4860 - Width = 2265 + TabIndex = 927 + Top = 75 + Width = 1440 End End - End - Begin VB.Frame framNav - Caption = "Compare" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 6735 - Index = 3 - Left = 60 - TabIndex = 761 - Top = 1200 - Visible = 0 'False - Width = 13215 - Begin VB.CommandButton cmdCompareNav - Caption = "&Monsters" + Begin VB.CommandButton cmdEquipCheckAll + Caption = "None" BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 + Name = "Small Fonts" + Size = 6.75 Charset = 0 - Weight = 700 + Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 315 - Index = 3 - Left = 5160 - Style = 1 'Graphical - TabIndex = 762 - Top = 240 - Width = 1215 + Height = 195 + Index = 1 + Left = 1860 + TabIndex = 928 + Top = 690 + Width = 615 End - Begin VB.CommandButton cmdCompareClear - Caption = "X" + Begin VB.CommandButton cmdEquipCheckAll + Caption = "All" BeginProperty Font Name = "Small Fonts" Size = 6.75 @@ -15549,455 +15587,453 @@ Begin VB.Form frmMain Strikethrough = 0 'False EndProperty Height = 195 - Index = 3 - Left = 6420 - TabIndex = 763 - ToolTipText = "Clear Spell List" - Top = 300 - Width = 255 + Index = 0 + Left = 1275 + TabIndex = 929 + Top = 690 + Width = 555 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 7 + ItemData = "frmMain.frx":0D5A + Left = 1260 + List = "frmMain.frx":0D5C + Sorted = -1 'True + TabIndex = 930 + Text = "cmbEquip" + Top = 3600 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 8 + ItemData = "frmMain.frx":0D5E + Left = 1260 + List = "frmMain.frx":0D60 + Sorted = -1 'True + TabIndex = 931 + Text = "cmbEquip" + Top = 3900 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 9 + ItemData = "frmMain.frx":0D62 + Left = 1260 + List = "frmMain.frx":0D64 + Sorted = -1 'True + TabIndex = 932 + Text = "cmbEquip" + Top = 4200 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 10 + ItemData = "frmMain.frx":0D66 + Left = 1260 + List = "frmMain.frx":0D68 + Sorted = -1 'True + TabIndex = 933 + Text = "cmbEquip" + Top = 4500 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 11 + ItemData = "frmMain.frx":0D6A + Left = 1260 + List = "frmMain.frx":0D6C + Sorted = -1 'True + TabIndex = 934 + Text = "cmbEquip" + Top = 4800 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 12 + ItemData = "frmMain.frx":0D6E + Left = 1260 + List = "frmMain.frx":0D70 + Sorted = -1 'True + TabIndex = 935 + Text = "cmbEquip" + Top = 5100 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 13 + ItemData = "frmMain.frx":0D72 + Left = 1260 + List = "frmMain.frx":0D74 + Sorted = -1 'True + TabIndex = 936 + Text = "cmbEquip" + Top = 5400 + Width = 2835 + End + Begin VB.ComboBox cmbEquip + Height = 315 + Index = 14 + ItemData = "frmMain.frx":0D76 + Left = 1260 + List = "frmMain.frx":0D78 + Sorted = -1 'True + TabIndex = 937 + Text = "cmbEquip" + Top = 5700 + Width = 2835 End - Begin VB.CommandButton cmdCompareQ - Caption = "?" + Begin VB.ComboBox cmbEquip Height = 315 - Left = 10020 - TabIndex = 764 - Top = 240 - Width = 315 + Index = 15 + ItemData = "frmMain.frx":0D7A + Left = 1260 + List = "frmMain.frx":0D7C + Sorted = -1 'True + TabIndex = 938 + Text = "cmbEquip" + Top = 6000 + Width = 2835 End - Begin VB.CommandButton cmdClearAllCompares - Caption = "&Clear All" + Begin VB.ComboBox cmbEquip Height = 315 - Left = 8580 - TabIndex = 765 - Top = 240 - Width = 1395 + Index = 16 + ItemData = "frmMain.frx":0D7E + Left = 1260 + List = "frmMain.frx":0D80 + Sorted = -1 'True + TabIndex = 939 + Text = "cmbEquip" + Top = 6300 + Width = 2835 End - Begin VB.CommandButton cmdCompareClear - Caption = "X" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty + Begin VB.CheckBox chkEquipHold + Caption = "Weapon" Height = 195 - Index = 2 - Left = 4620 - TabIndex = 766 - ToolTipText = "Clear Spell List" - Top = 300 - Width = 255 + Index = 16 + Left = 120 + TabIndex = 940 + Top = 6360 + Width = 1035 End - Begin VB.CommandButton cmdCompareClear - Caption = "X" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty + Begin VB.CheckBox chkEquipHold + Caption = "Off-Hand" + ForeColor = &H00000000& Height = 195 - Index = 1 - Left = 2940 - TabIndex = 767 - ToolTipText = "Clear Armour List" - Top = 300 - Width = 255 + Index = 15 + Left = 120 + TabIndex = 941 + Top = 6060 + Width = 1035 End - Begin VB.CommandButton cmdCompareClear - Caption = "X" - BeginProperty Font - Name = "Small Fonts" - Size = 6.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty + Begin VB.CheckBox chkEquipHold + Caption = "Worn" Height = 195 - Index = 0 - Left = 1260 - TabIndex = 768 - ToolTipText = "Clear Weapon List" - Top = 300 - Width = 255 - End - Begin VB.CommandButton cmdCompareNav - Caption = "&Spells" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 315 - Index = 2 - Left = 3480 - Style = 1 'Graphical - TabIndex = 769 - Top = 240 - Width = 1095 - End - Begin VB.CommandButton cmdCompareNav - Caption = "&Armour" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 315 - Index = 1 - Left = 1800 - Style = 1 'Graphical - TabIndex = 770 - Top = 240 - Width = 1095 + Index = 14 + Left = 120 + TabIndex = 942 + Top = 5760 + Width = 1035 End - Begin VB.CommandButton cmdCompareNav - BackColor = &H00C0C0FF& - Caption = "&Weapons" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 315 - Index = 0 + Begin VB.CheckBox chkEquipHold + Caption = "Feet" + Height = 195 + Index = 13 Left = 120 - Style = 1 'Graphical - TabIndex = 771 - Top = 240 - Width = 1095 + TabIndex = 943 + Top = 5460 + Width = 1035 End - Begin VB.Frame framCompareNav - Caption = "Weapons" - Height = 5355 - Index = 0 + Begin VB.CheckBox chkEquipHold + Caption = "Legs" + Height = 195 + Index = 12 Left = 120 - TabIndex = 772 - Top = 600 - Width = 10215 - Begin MMUD_Explorer.cntSplitter splSplitterNS - Height = 4995 - Index = 3 - Left = 120 - TabIndex = 773 - Top = 240 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 8811 - Begin MSComctlLib.ListView lvWeaponCompare - Height = 2595 - Left = 0 - TabIndex = 774 - Tag = "STRETCHALL" - Top = 0 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 4577 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MMUD_Explorer.cntSplitter splSplitterWE - Height = 975 - Index = 3 - Left = 0 - TabIndex = 775 - Top = 4020 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 1720 - Begin VB.TextBox txtWeaponCompareDetail - Height = 975 - Left = 0 - Locked = -1 'True - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 776 - Top = 0 - Width = 4275 - End - Begin MSComctlLib.ListView lvWeaponCompareLoc - Height = 975 - Left = 6180 - TabIndex = 777 - Top = 0 - Width = 3795 - _ExtentX = 6694 - _ExtentY = 1720 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - End - End + TabIndex = 944 + Top = 5160 + Width = 1035 End - Begin VB.Frame framCompareNav - Caption = "Spells" - Height = 5355 + Begin VB.CheckBox chkEquipHold + Caption = "Finger" + Height = 195 + Index = 10 + Left = 120 + TabIndex = 945 + Top = 4560 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Finger" + Height = 195 + Index = 9 + Left = 120 + TabIndex = 946 + Top = 4260 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Hands" + Height = 195 + Index = 8 + Left = 120 + TabIndex = 947 + Top = 3960 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Waist" + Height = 195 + Index = 11 + Left = 120 + TabIndex = 948 + Top = 4860 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Wrist" + Height = 195 + Index = 7 + Left = 120 + TabIndex = 949 + Top = 3660 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Arms" + Height = 195 + Index = 5 + Left = 120 + TabIndex = 950 + Top = 3060 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Torso" + Height = 195 + Index = 4 + Left = 120 + TabIndex = 951 + Top = 2760 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Back" + Height = 195 + Index = 3 + Left = 120 + TabIndex = 952 + Top = 2460 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Neck" + Height = 195 Index = 2 Left = 120 - TabIndex = 778 - Top = 600 - Width = 10215 - Begin MMUD_Explorer.cntSplitter splSplitterNS - Height = 4995 - Index = 5 - Left = 120 - TabIndex = 779 - Top = 240 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 8811 - Begin MSComctlLib.ListView lvSpellCompare - Height = 2355 - Left = 0 - TabIndex = 780 - Tag = "STRETCHALL" - Top = 0 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 4154 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MMUD_Explorer.cntSplitter splSplitterWE - Height = 1155 - Index = 5 - Left = 0 - TabIndex = 781 - Top = 3840 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 2037 - Begin VB.TextBox txtSpellCompareDetail - Height = 1155 - Left = 0 - Locked = -1 'True - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 782 - Top = 0 - Width = 3375 - End - Begin MSComctlLib.ListView lvSpellCompareLoc - Height = 1155 - Left = 7020 - TabIndex = 783 - Top = 0 - Width = 2955 - _ExtentX = 5212 - _ExtentY = 2037 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - End - End + TabIndex = 953 + Top = 2160 + Width = 1035 End - Begin VB.Frame framCompareNav - Caption = "Armour" - Height = 5355 + Begin VB.CheckBox chkEquipHold + Caption = "Ears" + Height = 195 Index = 1 Left = 120 - TabIndex = 784 - Top = 600 - Width = 10215 - Begin MMUD_Explorer.cntSplitter splSplitterNS - Height = 4995 - Index = 4 - Left = 120 - TabIndex = 785 - Top = 240 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 8811 - Begin MSComctlLib.ListView lvArmourCompare - Height = 2895 - Left = 0 - TabIndex = 786 - Tag = "STRETCHALL" - Top = 0 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 5106 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MMUD_Explorer.cntSplitter splSplitterWE - Height = 975 - Index = 4 - Left = 0 - TabIndex = 787 - Top = 4020 - Width = 9975 - _ExtentX = 17595 - _ExtentY = 1720 - Begin VB.TextBox txtArmourCompareDetail - Height = 975 - Left = 0 - Locked = -1 'True - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 788 - Top = 0 - Width = 3315 - End - Begin MSComctlLib.ListView lvArmourCompareLoc - Height = 975 - Left = 7080 - TabIndex = 789 - Top = 0 - Width = 2895 - _ExtentX = 5106 - _ExtentY = 1720 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - End - End + TabIndex = 954 + Top = 1260 + Width = 1035 + End + Begin VB.CheckBox chkEquipHold + Caption = "Head" + Height = 195 + Index = 0 + Left = 120 + TabIndex = 955 + Top = 960 + Width = 1035 + End + Begin VB.CommandButton cmdInvenClipboard + Caption = "Cop&y to Clipboard" + Height = 555 + Left = 4800 + TabIndex = 956 + Top = 5340 + Width = 2055 End - Begin VB.Frame framCompareNav - Caption = "Monsters" - Height = 5355 - Index = 3 + Begin VB.CommandButton cmdInvenPasteChar + Caption = "&Paste Character.." + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Index = 0 + Left = 10980 + TabIndex = 957 + Top = 180 + Width = 2115 + End + Begin VB.CheckBox chkInvenNoLimited + Caption = "Non- &Limiteds" + Height = 315 + Left = 7680 + TabIndex = 958 + ToolTipText = "Non-Limiteds" + Top = 240 + Width = 1275 + End + Begin VB.CommandButton cmdFilter + Caption = "Re&move Filter" + Height = 315 + Index = 1 + Left = 1980 + TabIndex = 959 + Top = 240 + Width = 1575 + End + Begin VB.CommandButton cmdFilter + Caption = "&Apply Global Filter" + Height = 315 + Index = 0 Left = 120 - TabIndex = 790 - Top = 600 - Width = 10215 - Begin MMUD_Explorer.cntSplitter splMonsterSplit - Height = 4995 - Index = 1 - Left = 120 - TabIndex = 791 - Top = 240 - Width = 9915 - _ExtentX = 17489 - _ExtentY = 8811 - Begin MSComctlLib.ListView lvMonsterCompare - Height = 4515 - Left = 0 - TabIndex = 792 - Tag = "STRETCHALL" - Top = 0 - Width = 5115 - _ExtentX = 9022 - _ExtentY = 7964 - View = 3 - LabelEdit = 1 - Sorted = -1 'True - MultiSelect = -1 'True - LabelWrap = -1 'True - HideSelection = 0 'False - FullRowSelect = -1 'True - GridLines = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - Begin MSComctlLib.ListView lvMonsterCompareLoc - Height = 4575 - Left = 5640 - TabIndex = 793 - Top = 0 - Width = 3915 - _ExtentX = 6906 - _ExtentY = 8070 - View = 3 - LabelEdit = 1 - LabelWrap = -1 'True - HideSelection = -1 'True - FullRowSelect = -1 'True - _Version = 393217 - ForeColor = -2147483640 - BackColor = -2147483643 - BorderStyle = 1 - Appearance = 1 - NumItems = 0 - End - End + TabIndex = 960 + Top = 240 + Width = 1755 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 1 + Left = 4140 + TabIndex = 961 + Top = 1200 + Width = 255 + End + Begin VB.CommandButton cmdEquipGoto + Caption = ">" + Height = 315 + Index = 0 + Left = 4140 + TabIndex = 962 + Top = 900 + Width = 255 + End + Begin VB.TextBox txtInvenStrength + Alignment = 2 'Center + Height = 285 + Left = 11400 + MaxLength = 4 + TabIndex = 963 + Text = "100" + Top = 840 + Width = 795 + End + Begin VB.CommandButton cmdInvenFindBest + Caption = "&Find Best..." + Height = 375 + Left = 5160 + TabIndex = 964 + Top = 180 + Width = 1155 + End + Begin VB.CommandButton cmdInvenReset + Caption = "&Reset" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Left = 3720 + TabIndex = 965 + Top = 180 + Width = 1275 + End + Begin VB.CommandButton cmdSetInvenLabelFont + Caption = "Label Font" + Height = 375 + Left = 4800 + TabIndex = 966 + Top = 3720 + Width = 2055 + End + Begin VB.Line Line1 + BorderWidth = 2 + X1 = 120 + X2 = 13080 + Y1 = 600 + Y2 = 600 + End + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Jump" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 165 + Index = 7 + Left = 4080 + TabIndex = 967 + Top = 660 + Width = 345 + End + Begin VB.Label lblLabelArray + AutoSize = -1 'True + Caption = "Hold" + BeginProperty Font + Name = "Small Fonts" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 165 + Index = 8 + Left = 60 + TabIndex = 968 + Top = 720 + Width = 300 + End + Begin VB.Label lblLabelArray + Caption = "Strength:" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Index = 9 + Left = 10380 + TabIndex = 969 + Top = 870 + Width = 1095 End End Begin VB.Menu mnuMain @@ -16560,6 +16596,14 @@ End If Call txtCharMR_Change End Sub +Private Sub chkMonMagic_Click() +If chkMonMagic.Value = 1 Then + txtMonMagic.Enabled = True +Else + txtMonMagic.Enabled = False +End If +End Sub + Private Sub cmbArmorAbilityList_Click() If cmbArmorAbilityList.ListCount > 0 And cmbArmorAbilityList.ListIndex >= 0 Then If cmbArmorAbilityList.ItemData(cmbArmorAbilityList.ListIndex) < 0 Then @@ -16636,7 +16680,7 @@ frmMegaMUDPath.SetFocus End Sub Private Sub cmdMonsterAttackSim_Click() -On Error GoTo error: +On Error GoTo Error: frmMonsterAttackSim.Show frmMonsterAttackSim.SetFocus @@ -16648,7 +16692,7 @@ End If out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("cmdMonsterAttackSim_Click") Resume out: End Sub @@ -16669,7 +16713,7 @@ MsgBox "The DMG and MG/Mana columns will not update live from the global filter. End Sub Private Sub Form_Load() -On Error GoTo error: +On Error GoTo Error: Dim fso As FileSystemObject, sFile As String, x As Integer, bResult As Boolean 'bNO_RECENT_FILES = True 'TURN OFF (comment out) BEFORE RELEASE @@ -16865,7 +16909,7 @@ If Not ReadINI("Settings", "LastVersionLoaded") = sNormalCaption Then End If Exit Sub -error: +Error: Call HandleError("Main_Load") Resume Next term: @@ -16891,7 +16935,7 @@ Call RefreshAll End Sub Private Sub chkGlobalFilter_Click() -On Error GoTo error: +On Error GoTo Error: If chkGlobalFilter.Value = 1 Then frmGlobalFilter.Enabled = True @@ -16957,7 +17001,7 @@ End If Exit Sub -error: +Error: Call HandleError("chkGlobalFilter_Click") End Sub @@ -16990,7 +17034,7 @@ End Sub Private Sub chkWeaponStaffOnly_Click() Dim x As Integer -On Error GoTo error: +On Error GoTo Error: 'If chkGlobalFilter.Value = 1 Then Exit Sub @@ -17007,7 +17051,7 @@ End If Exit Sub -error: +Error: Call HandleError End Sub @@ -17082,7 +17126,7 @@ End Sub Private Sub cmbGlobalClass_Click(Index As Integer) Dim x As Integer -On Error GoTo error: +On Error GoTo Error: bPromptSave = True @@ -17101,14 +17145,14 @@ Call SetupClass Call RefreshAll Exit Sub -error: +Error: Call HandleError("cmbGlobalClass_Click") End Sub Private Sub cmbGlobalRace_Click(Index As Integer) Dim x As Integer -On Error GoTo error: +On Error GoTo Error: bPromptSave = True @@ -17158,7 +17202,7 @@ Call RefreshAll Exit Sub -error: +Error: Call HandleError("cmbGlobalRace_Click") End Sub @@ -17226,7 +17270,7 @@ End Sub Private Sub cmdCharReset_Click() Dim x As Integer -On Error GoTo error: +On Error GoTo Error: bDontRefresh = True @@ -17257,7 +17301,7 @@ Call RefreshAll out: bDontRefresh = False Exit Sub -error: +Error: Call HandleError("cmdCharReset_Click") Resume out: @@ -17266,7 +17310,7 @@ End Sub Private Sub cmdCharResetBless_Click(Index As Integer) Dim x As Integer, sFile As String, sSectionName As String, nSpell As Long, y As Long -On Error GoTo error: +On Error GoTo Error: bDontRefresh = True If Index = 0 Then @@ -17304,7 +17348,7 @@ bDontRefresh = False Call RefreshCharBless Exit Sub -error: +Error: Call HandleError("cmdCharResetBless_Click") bDontRefresh = False End Sub @@ -17364,7 +17408,7 @@ End Sub Private Sub cmdCompareNav_Click(Index As Integer) Dim x As Integer -On Error GoTo error: +On Error GoTo Error: For x = 0 To 3 If x = Index Then @@ -17378,7 +17422,7 @@ Next x Exit Sub -error: +Error: Call HandleError End Sub @@ -17402,7 +17446,7 @@ End Sub Private Sub cmdEditPreset_Click(Index As Integer) Dim nPreset As Integer -On Error GoTo error: +On Error GoTo Error: nPreset = Val(cmdMapPreset(Index).Tag) Call EditPreset(Index, Me) @@ -17419,7 +17463,7 @@ End Select out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("cmdEditPreset_Click") Resume out: End Sub @@ -17427,7 +17471,7 @@ End Sub Public Sub EditPreset(ByVal nIndex As Integer, ByRef oFormOwner As Form) Dim sSectionName As String ', bRestoreMap As Boolean Dim cReg As clsRegistryRoutines -On Error GoTo error: +On Error GoTo Error: Set cReg = New clsRegistryRoutines 'If bLegit Then @@ -17478,7 +17522,7 @@ If FormIsLoaded("frmMap") Then Call frmMap.LoadPresets 'If bRestoreMap Then frmMap.WindowState = vbNormal Exit Sub -error: +Error: Call HandleError("EditPreset") Unload frmEditPreset End Sub @@ -17606,12 +17650,12 @@ DoEvents End Sub Private Sub cmdFilterAll_Click() -On Error GoTo error: +On Error GoTo Error: Call FilterAll(True) Exit Sub -error: +Error: Call HandleError End Sub @@ -17650,7 +17694,7 @@ End Sub Private Sub cmdInvenAdditionalWeight_Click() Dim sStr As String, nEncum As Integer, x As Integer -On Error GoTo error: +On Error GoTo Error: sStr = InputBox("Enter your reported current encumbrance " _ & "value and it will calculate the difference from the equipment " _ @@ -17674,7 +17718,7 @@ If Val(sStr) > nEncum Then End If Exit Sub -error: +Error: Call HandleError("cmdInvenAdditionalWeight_Click") End Sub @@ -17754,7 +17798,7 @@ Call InvenClear End Sub Private Sub cmdInvenSetStatFont_Click() -On Error GoTo error: +On Error GoTo Error: oComDag.FLAGS = cdlCFBoth Or cdlCFForceFontExist oComDag.FontName = txtStat(0).Font.name @@ -17765,19 +17809,19 @@ oComDag.FontItalic = txtStat(0).Font.Italic ' Display the Font dialog box On Error GoTo canceled: oComDag.ShowFont -On Error GoTo error: +On Error GoTo Error: Call SetStatFonts(oComDag.FontName, oComDag.FontSize, oComDag.FontBold, oComDag.FontItalic) canceled: Exit Sub -error: +Error: HandleError End Sub Private Sub cmdMapFindText_Click(Index As Integer) -On Error GoTo error: +On Error GoTo Error: Dim sTemp As String If tabRooms.RecordCount = 0 Then Exit Sub @@ -17844,19 +17888,19 @@ If FormIsLoaded("frmMap") Then frmMap.Enabled = True frmMain.SetFocus Exit Sub -error: +Error: Call HandleError("cmdMapFindText_Click") Resume out: End Sub Private Sub cmdMapLastRoom_Click() -On Error GoTo error: +On Error GoTo Error: Call MapStartMapping(nMapLastMap, nMapLastRoom) out: Exit Sub -error: +Error: Call HandleError("cmdMapLastRoom_Click") Resume out: End Sub @@ -17876,7 +17920,7 @@ End Sub Private Sub cmdMapPreset_Click(Index As Integer) Dim nMap As Long, nRoom As Long, sSectionName As String Dim cReg As clsRegistryRoutines -On Error GoTo error: +On Error GoTo Error: Set cReg = New clsRegistryRoutines @@ -17897,7 +17941,7 @@ Call MapStartMapping(nMap, nRoom) out: Exit Sub -error: +Error: Call HandleError("cmdMapPreset_Click") Resume out: @@ -17961,7 +18005,7 @@ End Sub Public Sub cmdNav_Click(Index As Integer) Dim x As Integer -On Error GoTo error: +On Error GoTo Error: For x = 0 To cmdNav().UBound If x = Index Then @@ -18011,7 +18055,7 @@ End Select Exit Sub -error: +Error: Call HandleError End Sub @@ -18037,13 +18081,13 @@ End Sub 'End Sub Private Sub cmdResetFonts_Click() -On Error GoTo error: +On Error GoTo Error: Call SetStatFonts("Terminal", 9, False, False) Call SetLabelFonts("Terminal", 9, False, False) Exit Sub -error: +Error: Call HandleError("Reset Fonts") End Sub @@ -18057,7 +18101,7 @@ If nYesNo = vbYes Then Call LoadPresets(True) End Sub Private Sub cmdSetInvenLabelFont_Click() -On Error GoTo error: +On Error GoTo Error: oComDag.FLAGS = cdlCFBoth Or cdlCFForceFontExist oComDag.FontName = lblInvenStats(2).Font.name @@ -18068,13 +18112,13 @@ oComDag.FontItalic = lblInvenStats(2).Font.Italic ' Display the Font dialog box On Error GoTo canceled: oComDag.ShowFont -On Error GoTo error: +On Error GoTo Error: Call SetLabelFonts(oComDag.FontName, oComDag.FontSize, oComDag.FontBold, oComDag.FontItalic) canceled: Exit Sub -error: +Error: HandleError End Sub @@ -18118,7 +18162,7 @@ End Sub Private Sub cmdSundryChests_Click() -On Error GoTo error: +On Error GoTo Error: Dim x As Long, y As Long, nTBNumber As Long, sData As String, nNest As Long Dim nChestItems() As Currency, nDataPos As Long, oLI As ListItem @@ -18209,7 +18253,7 @@ Erase nChestItems() Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("cmdSundryChests_Click") Resume out: End Sub @@ -18296,7 +18340,7 @@ End Sub Private Function CompareAddItem(ByVal nNum As Long) As Integer Dim oLI As ListItem, nYesNo As Integer -On Error GoTo error: +On Error GoTo Error: tabItems.Index = "pkItems" tabItems.Seek "=", nNum @@ -18360,7 +18404,7 @@ quit: Set oLI = Nothing Exit Function -error: +Error: Call HandleError("CompareAddItem") Set oLI = Nothing End Function @@ -18368,7 +18412,7 @@ End Function Private Function CompareAddMonster(ByVal nNum As Long, Optional ByVal bNoPrompt As Boolean) As Integer Dim oLI As ListItem, nYesNo As Integer -On Error GoTo error: +On Error GoTo Error: tabMonsters.Index = "pkMonsters" tabMonsters.Seek "=", nNum @@ -18409,7 +18453,7 @@ quit: Set oLI = Nothing Exit Function -error: +Error: Call HandleError("CompareAddMonster") Set oLI = Nothing End Function @@ -18417,7 +18461,7 @@ End Function Private Sub CompareAddShopItems() Dim oLI As ListItem -On Error GoTo error: +On Error GoTo Error: bPromptSave = True For Each oLI In lvShopDetail.ListItems @@ -18452,13 +18496,13 @@ Set oLI = Nothing Exit Sub -error: +Error: Call HandleError End Sub Private Sub CopyChartoClip(Optional ByVal bStatsOnly As Boolean) Dim str As String, nExp As Currency, sExp As String -On Error GoTo error: +On Error GoTo Error: 'Name: Syntax Blackvail Lives/CP: 9/0 'Race: Dwarf Exp: 791580519 Perception: 73 @@ -18537,12 +18581,12 @@ If bStatsOnly Then Exit Sub Call InvenCopytoClipboard(True, True) Exit Sub -error: +Error: Call HandleError("CharCopytoClip") End Sub Private Sub CopyMonsterToClipboard(ByRef lvDetail, Optional bNameOnly As Boolean = False) ', ByRef txtDetail) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, str As String For Each oLI In lvDetail.ListItems @@ -18571,14 +18615,14 @@ End If Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing End Sub Private Sub CopyShopToClipboard(Optional bNameOnly As Boolean = False) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, oLSI As ListSubItem, oCH As ColumnHeader, str As String, x As Integer If lvShops.SelectedItem Is Nothing Then Exit Sub @@ -18661,7 +18705,7 @@ Set oLSI = Nothing Set oCH = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing Set oLSI = Nothing @@ -18669,7 +18713,7 @@ Set oCH = Nothing End Sub Private Sub FilterAll(ByVal EnableGlobalFilter As Boolean) -On Error GoTo error: +On Error GoTo Error: 'filterall(false) = remove all filters Me.MousePointer = vbHourglass @@ -18701,13 +18745,13 @@ Me.MousePointer = vbDefault Exit Sub -error: +Error: Call HandleError("FilterAll") Resume quit: End Sub Private Sub FilterArmour(ByVal UseGlobalFilter As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, nClass As Integer, bMagical As Boolean, bHasAbility As Boolean Dim bClassOK As Boolean, bFiltered As Boolean, nAbility As Integer, nFilterNegate As Long @@ -18845,7 +18889,7 @@ LockWindowUpdate 0& Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("FilterArmour") Resume out: @@ -18855,7 +18899,7 @@ End Sub '------------------------------------------------------------------------------- Private Sub FilterInvenItems(Optional ByVal bRemoveFilter As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim x As Integer, y As Integer Dim bFiltered As Boolean, nStartItems() As Long @@ -18934,14 +18978,14 @@ out: On Error Resume Next Erase nStartItems() Exit Sub -error: +Error: Call HandleError bDontRefresh = False Resume out: End Sub Private Sub FilterSpells(ByVal UseGlobalFilter As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, nAlign As Integer, nNotAlign As Integer, nTarget As Integer Dim bFiltered As Boolean, bHasAbility As Boolean @@ -19150,15 +19194,15 @@ LockWindowUpdate 0& Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("FilterSpells") Resume out: End Sub Private Sub FilterMonsters(Optional bRemoveFilter As Boolean) -On Error GoTo error: -Dim oLI As ListItem +On Error GoTo Error: +Dim oLI As ListItem, x As Integer, nMagicLVL As Long Dim bFiltered As Boolean, nExp As Currency If bRemoveFilter Then @@ -19215,6 +19259,20 @@ Do Until tabMonsters.EOF End If If nExp < Val(txtMonsterEXP.Text) Then GoTo skip: + If chkMonMagic.Value = 1 Then + For x = 0 To 9 'abilities + If Not tabMonsters.Fields("Abil-" & x) = 0 Then + Select Case tabMonsters.Fields("Abil-" & x) + Case 28: 'magical + nMagicLVL = tabMonsters.Fields("AbilVal-" & x) + Exit For + End Select + End If + Next + + If nMagicLVL > Val(txtMonMagic.Text) Then GoTo skip: + End If + Call AddMonster2LV(lvMonsters) GoTo MoveNext: @@ -19243,13 +19301,13 @@ LockWindowUpdate 0& Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("FilterMonsters") Resume out: End Sub Private Sub FilterWeapons(ByVal UseGlobalFilter As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, nClass As Integer Dim bBSAble As Boolean, nMagical As Integer, nHitMagic As Integer, bFiltered As Boolean, nAbility As Integer Dim bClassOK As Boolean, bStaff As Boolean, bHasAbility As Boolean, nFilterNegate As Long @@ -19387,7 +19445,7 @@ LockWindowUpdate 0& Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("FilterWeapons") Resume out: @@ -19563,7 +19621,7 @@ If Not bDontCallTerminate Then Call AppTerminate End Sub Public Sub GotoItem(nNum As Long) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, oLV As ListView, nYesNo As Integer If nNum <= 0 Then Exit Sub @@ -19645,7 +19703,7 @@ Set oLI = Nothing Set oLV = Nothing Exit Sub -error: +Error: Call HandleError Set oLI = Nothing Set oLV = Nothing @@ -19654,7 +19712,7 @@ End Sub Public Sub GotoLocation(oliSource As ListItem, Optional ByVal AuxNumber As Long, _ Optional ByRef objFormOwner As Form) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, oLV As ListView, x As Integer, sStr As String, nNum As Long Dim RoomExits As RoomExitType, sMegaCode As String, sText As String, sLocationText As String @@ -19935,13 +19993,13 @@ Me.MousePointer = vbDefault Set oLI = Nothing Set oLV = Nothing Exit Sub -error: +Error: Call HandleError("GotoLocation") Resume out: End Sub Public Sub GotoMonster(nNum As Long) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem If nNum <= 0 Then Exit Sub @@ -19969,13 +20027,13 @@ End If Set oLI = Nothing Exit Sub -error: +Error: Call HandleError Set oLI = Nothing End Sub Public Sub GotoSpell(nNum As Long) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, nYesNo As Integer If nNum <= 0 Then Exit Sub @@ -20005,13 +20063,13 @@ End If Set oLI = Nothing Exit Sub -error: +Error: Call HandleError Set oLI = Nothing End Sub Public Sub InvenAddEquip(ByVal nNum As Long, ByVal sName As String, ByVal ItemType As Integer, ByVal WornOn As Integer) -On Error GoTo error: +On Error GoTo Error: Dim x As Integer Select Case ItemType @@ -20082,17 +20140,17 @@ End Select Exit Sub -error: +Error: Call HandleError End Sub Private Sub InvenCalcEncum() -On Error GoTo error: +On Error GoTo Error: txtStat(1).Text = CalcEncum(Val(txtCharStats(0).Text), Val(txtStat(4).Text)) Exit Sub -error: +Error: Call HandleError End Sub @@ -20101,7 +20159,7 @@ Dim x As Integer, y As Integer, sToolTip As String, nAC As Single, nDR As Single Dim sName As String, Equip As TypeGetEquip, nRaceBonus As Long, nStrengthBonus As Long Dim StatTips(0 To 29) As String -On Error GoTo error: +On Error GoTo Error: Call InvenResetStats @@ -20430,7 +20488,7 @@ Call InvenColorCodeStats Exit Sub -error: +Error: Call HandleError End Sub @@ -20450,7 +20508,7 @@ End Sub Private Sub InvenColorCodeStats() Dim x As Integer -On Error GoTo error: +On Error GoTo Error: For x = 4 To txtStat().Count - 1 Select Case Val(txtStat(x).Text) @@ -20464,7 +20522,7 @@ Next x Exit Sub -error: +Error: Call HandleError End Sub @@ -20472,7 +20530,7 @@ End Sub Private Sub InvenCopytoClipboard(Optional ByVal bAppend As Boolean, Optional ByVal bNoCharStats As Boolean) Dim str As String, x As Integer, sItem As String, sStats As String ', sQuests As String -On Error GoTo error: +On Error GoTo Error: If Not bNoCharStats Then If cmbGlobalClass(0).ListIndex > 0 Then str = str & "Class: " & cmbGlobalClass(0).Text & vbCrLf @@ -20522,13 +20580,13 @@ End If Exit Sub -error: +Error: Call HandleError("InvenCopytoClipboard") End Sub Private Sub InvenEquipItem(ByVal nNum As Long, Optional ByVal bJumpToNav As Boolean, Optional ByVal bUnequipIfEquipped As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim oCMB As ComboBox, x As Integer, nTries As Integer If nNum = 0 Then Exit Sub @@ -20640,7 +20698,7 @@ If bJumpToNav Then Call cmdNav_Click(4) Set oCMB = Nothing Exit Sub -error: +Error: Call HandleError("InvenEquipItem") Set oCMB = Nothing End Sub @@ -20650,7 +20708,7 @@ Dim nAbility As Integer, nAbility2 As Integer, nAbility3 As Integer, sField As S Dim x As Integer, y As Integer, z As Integer, LastFindBest(18) As Long Dim tWinner(18) As TypeEquipWinner, tPosWinner(18) As TypeEquipWinner Dim bNo2Handed As Boolean, nStart As Integer, nResult As Boolean, nEnc_Ratio As Currency -On Error GoTo error: +On Error GoTo Error: '.... very confusing. tposwinner is the possible winner that it finds when searching '.... twinner is the current winning item (best item) @@ -21024,7 +21082,7 @@ Me.Enabled = True bDontRefresh = False Call RefreshAll Exit Sub -error: +Error: Call HandleError("InvenFindBest") Resume out: End Sub @@ -21032,7 +21090,7 @@ End Sub Private Function InvenFindBestDupeFail(ByVal nCmbEquipNum As Integer, _ ByVal nCmbEquipListIndex As Integer, ByRef tPosWinner() As TypeEquipWinner) As Boolean -On Error GoTo error: +On Error GoTo Error: 'before: 'Select Case nCmbEquipNum @@ -21069,7 +21127,7 @@ proceed: InvenFindBestDupeFail = True Exit Function -error: +Error: Call HandleError("InvenFindBestDupeFail") End Function @@ -21224,7 +21282,7 @@ End Sub Private Sub InvenSetupEquip() 'Optional ArmourOnly As Boolean, Optional WeaponOnly As Boolean) Dim x As Integer ', y As Integer, z As Integer -On Error GoTo error: +On Error GoTo Error: 'If ArmourOnly Then ' y = 0 @@ -21250,13 +21308,24 @@ Next Exit Sub -error: +Error: Call HandleError("InvenSetupEquip") bDontRefresh = False End Sub +Private Sub lblMonMagic_Click() +If chkMonMagic.Value = 1 Then + chkMonMagic.Value = 0 + Call chkMonMagic_Click +Else + chkMonMagic.Value = 1 + Call chkMonMagic_Click + txtMonMagic.SetFocus +End If +End Sub + Private Sub lblRoomCell_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) -On Error GoTo error: +On Error GoTo Error: nMapLastCellIndex = Index lvMapLoc.ListItems.clear @@ -21297,14 +21366,14 @@ ElseIf Button = 2 Then End If Exit Sub -error: +Error: Call HandleError End Sub Private Sub LoadCharacter(ByVal bPromptForFile As Boolean, Optional ByVal strFileName As String, _ Optional ByVal bClearSelections As Boolean, Optional bDontShowLoadForm As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim sFile As String, nItem As Long, sCompares As String, x As Integer, y As Integer Dim sSectionName As String, bJustLoad As Boolean, sFileTitle As String Dim bLoadCompare As Boolean, bLoadInven As Boolean, sName As String @@ -21363,7 +21432,7 @@ Else bJustLoad = True End If -On Error GoTo error: +On Error GoTo Error: bCharLoaded = False If Not sFile = "" Then @@ -21572,14 +21641,14 @@ Me.Enabled = True bPromptSave = False Exit Sub -error: +Error: Call HandleError("LoadCharacter") Me.Enabled = True If Not bStartup Then bDontRefresh = False End Sub Private Sub LoadClasses() -On Error GoTo error: +On Error GoTo Error: Dim x As Integer, oLI As ListItem lvClasses.ListItems.clear @@ -21670,14 +21739,14 @@ lvClasses.Refresh Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing End Sub Private Function LoadInfo() As Boolean -On Error GoTo error: +On Error GoTo Error: Dim sDBSupport As String If tabInfo.RecordCount = 0 Then @@ -21745,12 +21814,12 @@ End If skip: LoadInfo = True Exit Function -error: +Error: Call HandleError("LoadInfo") End Function Private Sub LoadInvenItems() -On Error GoTo error: +On Error GoTo Error: If tabItems.RecordCount = 0 Then Exit Sub Call InvenSetupEquip @@ -21767,12 +21836,12 @@ Loop cmdNav(4).Caption = "Equipment" Exit Sub -error: +Error: Call HandleError("LoadInvenItems") End Sub Private Sub LoadItems() -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, sName As String If tabItems.RecordCount = 0 Then Exit Sub @@ -21841,14 +21910,14 @@ If lvOtherItems.ListItems.Count >= 1 Then Call lvOtherItems_ItemClick(lvOtherIte Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing End Sub Private Sub LoadMonsters() -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem lvMonsters.ListItems.clear @@ -21874,7 +21943,7 @@ lvMonsters.Refresh Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("LoadMonsters") Set oLI = Nothing @@ -21884,7 +21953,7 @@ Public Sub LoadPresets(Optional ByVal bReset As Boolean) Dim x As Integer, sSectionName As String, nMap As Long, nRoom As Long, sName As String Dim cReg As clsRegistryRoutines, nError As Integer, bResult As Boolean -On Error GoTo error: +On Error GoTo Error: Set cReg = New clsRegistryRoutines @@ -21941,7 +22010,7 @@ cReg.Subkey = sSectionName 'End If nError = RegCreateKeyPath(HKEY_LOCAL_MACHINE, "Software\MMUD Explorer\Presets\" & sSectionName) -If nError > 0 Then GoTo error: +If nError > 0 Then GoTo Error: If bReset Then For x = 0 To 49 @@ -22001,14 +22070,14 @@ If FormIsLoaded("frmMap") Then Call frmMap.LoadPresets out: Exit Sub -error: +Error: Call HandleError("LoadPresets") Resume out: End Sub Private Sub LoadRaces() -On Error GoTo error: +On Error GoTo Error: Dim x As Integer, oLI As ListItem @@ -22086,7 +22155,7 @@ Call RaceColorCode(lvRaces) Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing @@ -22096,7 +22165,7 @@ Public Sub LoadSettings() Dim sSectionName As String, sName As String, nSize As Integer, bBold As Boolean, bItalic As Boolean Dim x As Integer, sFileTitle() As String, nLng As Long, nAlsoMark As Integer -On Error GoTo error: +On Error GoTo Error: sSectionName = RemoveCharacter(lblDatVer.Caption, " ") @@ -22243,13 +22312,13 @@ If Val(ReadINI("Settings", "FilterAll")) = 1 Then Call FilterAll(True) Erase sFileTitle() Exit Sub -error: +Error: Call HandleError("LoadSettings") Resume Next End Sub Private Sub LoadShops() -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem @@ -22275,14 +22344,14 @@ lvShops.Refresh Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing End Sub Private Sub LoadSpells() -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem If tabSpells.RecordCount = 0 Then Exit Sub @@ -22329,7 +22398,7 @@ lvSpells.Refresh Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing @@ -22337,7 +22406,7 @@ End Sub Public Sub LookUpMonsterRegen(ByVal nNumber As Long, _ bInResults As Boolean, Optional ByRef DestLV As ListView) -On Error GoTo error: +On Error GoTo Error: 'Dim sLoc As String, x As Long, y As Long, oLI As ListItem, tRoom As RoomExitType Dim bHideTemp As Boolean @@ -22400,14 +22469,14 @@ End If Exit Sub -error: +Error: Call HandleError bHideRecordNumbers = bHideTemp End Sub Private Sub LookUpSpellCast(objLV As ListView) -On Error GoTo error: +On Error GoTo Error: If objLV.SelectedItem Is Nothing Then Exit Sub @@ -22436,7 +22505,7 @@ End If Exit Sub -error: +Error: Call HandleError("LookUpSpellCast") End Sub @@ -22539,7 +22608,7 @@ End Sub Private Sub lvArmourCompareLoc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) -On Error GoTo error: +On Error GoTo Error: Dim bSort As Boolean, nSort As ListDataType nLastItemSortCol = ColumnHeader.Index @@ -22557,7 +22626,7 @@ SortListView lvArmourCompareLoc, ColumnHeader.Index, nSort, bSort out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("lvArmourCompareLoc_ColumnClick") Resume out: End Sub @@ -22569,7 +22638,7 @@ End Sub Private Sub lvArmourLoc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) -On Error GoTo error: +On Error GoTo Error: Dim bSort As Boolean, nSort As ListDataType @@ -22589,7 +22658,7 @@ SortListView lvArmourLoc, ColumnHeader.Index, nSort, bSort out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("lvArmourLoc_ColumnClick") Resume out: End Sub @@ -22625,7 +22694,7 @@ SortListView lvClasses, ColumnHeader.Index, nSort, bSort End Sub Private Sub lvClasses_ItemClick(ByVal item As MSComctlLib.ListItem) -On Error GoTo error: +On Error GoTo Error: Call PullClassDetail(Val(item.Text), txtClassDetail) @@ -22634,7 +22703,7 @@ item.EnsureVisible Exit Sub -error: +Error: Call HandleError End Sub @@ -22679,7 +22748,7 @@ SortListView lvMonsterCompare, ColumnHeader.Index, nSort, bSort End Sub Private Sub lvMonsterCompare_ItemClick(ByVal item As MSComctlLib.ListItem) -On Error GoTo error: +On Error GoTo Error: Set lvMonsterCompare.SelectedItem = item Call PullMonsterDetail(Val(item.Text), lvMonsterCompareLoc) ', txtMonsterCompareDetail) @@ -22689,7 +22758,7 @@ item.EnsureVisible Exit Sub -error: +Error: Call HandleError End Sub @@ -22801,7 +22870,7 @@ SortListView lvMonsters, ColumnHeader.Index, nSort, bSort End Sub Public Sub lvMonsters_ItemClick(ByVal item As MSComctlLib.ListItem) -On Error GoTo error: +On Error GoTo Error: Set lvMonsters.SelectedItem = item @@ -22812,7 +22881,7 @@ item.EnsureVisible Exit Sub -error: +Error: Call HandleError End Sub @@ -22825,7 +22894,7 @@ End Sub Private Sub lvOtherItemLoc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) -On Error GoTo error: +On Error GoTo Error: Dim bSort As Boolean, nSort As ListDataType nLastItemSortCol = ColumnHeader.Index @@ -22843,7 +22912,7 @@ SortListView lvOtherItemLoc, ColumnHeader.Index, nSort, bSort out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("lvOtherItemLoc_ColumnClick") Resume out: End Sub @@ -22887,7 +22956,7 @@ SortListView lvOtherItems, ColumnHeader.Index, nSort, bSort End Sub Public Sub lvOtherItems_ItemClick(ByVal item As MSComctlLib.ListItem) -On Error GoTo error: +On Error GoTo Error: Set lvOtherItems.SelectedItem = item @@ -22915,7 +22984,7 @@ item.EnsureVisible Exit Sub -error: +Error: Call HandleError End Sub @@ -22953,7 +23022,7 @@ End Sub Private Sub lvRaces_ItemClick(ByVal item As MSComctlLib.ListItem) -On Error GoTo error: +On Error GoTo Error: Call PullRaceDetail(Val(item.Text), txtRaceDetail) @@ -22962,7 +23031,7 @@ item.EnsureVisible Exit Sub -error: +Error: Call HandleError End Sub @@ -23063,7 +23132,7 @@ End Sub Public Sub lvShops_ItemClick(ByVal item As MSComctlLib.ListItem) -On Error GoTo error: +On Error GoTo Error: Set lvShops.SelectedItem = item @@ -23088,7 +23157,7 @@ End If Exit Sub -error: +Error: Call HandleError("lvShops_ItemClick") End Sub @@ -23105,7 +23174,7 @@ End Sub Private Sub lvSpellCompare_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim bSort As Boolean, nSort As ListDataType -On Error GoTo error: +On Error GoTo Error: nLastSpellSort = ColumnHeader.Index If bKeepSortOrder Then @@ -23133,13 +23202,13 @@ SortListView lvSpellCompare, ColumnHeader.Index, nSort, bSort Exit Sub -error: +Error: Call HandleError("lvSpellCompare_ColumnClick") End Sub Public Sub lvSpellCompare_ItemClick(ByVal item As MSComctlLib.ListItem) Dim oLI As ListItem -On Error GoTo error: +On Error GoTo Error: Set lvSpellCompare.SelectedItem = item @@ -23155,7 +23224,7 @@ Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("lvSpellCompare_ItemClick") End Sub @@ -23176,7 +23245,7 @@ Call GotoLocation(lvSpellCompareLoc.SelectedItem) End Sub Private Sub lvSpellLoc_DblClick() -On Error GoTo error: +On Error GoTo Error: If lvSpellLoc.ListItems.Count = 0 Then Exit Sub If FormIsLoaded("frmMap") Then @@ -23193,14 +23262,14 @@ Call GotoLocation(lvSpellLoc.SelectedItem) Exit Sub -error: +Error: Call HandleError("lvSpellLoc_DblClick") End Sub Private Sub lvSpells_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim bSort As Boolean, nSort As ListDataType -On Error GoTo error: +On Error GoTo Error: nLastSpellSort = ColumnHeader.Index If bKeepSortOrder Then @@ -23228,7 +23297,7 @@ SortListView lvSpells, ColumnHeader.Index, nSort, bSort Exit Sub -error: +Error: Call HandleError("lvSpells_ColumnClick") End Sub @@ -23251,7 +23320,7 @@ End Sub Private Sub lvWeaponCompare_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim bSort As Boolean, nSort As ListDataType -On Error GoTo error: +On Error GoTo Error: nLastWeaponSort = ColumnHeader.Index If bKeepSortOrder Then @@ -23279,7 +23348,7 @@ SortListView lvWeaponCompare, ColumnHeader.Index, nSort, bSort Exit Sub -error: +Error: Call HandleError("lvWeaponCompare_ColumnClick") End Sub @@ -23300,7 +23369,7 @@ End Sub Private Sub lvWeaponCompareLoc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) -On Error GoTo error: +On Error GoTo Error: Dim bSort As Boolean, nSort As ListDataType nLastItemSortCol = ColumnHeader.Index @@ -23318,7 +23387,7 @@ SortListView lvWeaponCompareLoc, ColumnHeader.Index, nSort, bSort out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("lvWeaponCompareLoc_ColumnClick") Resume out: End Sub @@ -23330,7 +23399,7 @@ End Sub Private Sub lvWeaponLoc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) -On Error GoTo error: +On Error GoTo Error: Dim bSort As Boolean, nSort As ListDataType nLastItemSortCol = ColumnHeader.Index @@ -23348,7 +23417,7 @@ SortListView lvWeaponLoc, ColumnHeader.Index, nSort, bSort out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("lvWeaponLoc_ColumnClick") Resume out: End Sub @@ -23361,7 +23430,7 @@ End Sub Private Sub lvWeapons_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim bSort As Boolean, nSort As ListDataType -On Error GoTo error: +On Error GoTo Error: nLastWeaponSort = ColumnHeader.Index If bKeepSortOrder Then @@ -23389,7 +23458,7 @@ SortListView lvWeapons, ColumnHeader.Index, nSort, bSort Exit Sub -error: +Error: Call HandleError("lvWeapons_ColumnClick") End Sub @@ -23419,7 +23488,7 @@ Dim temp As Integer, LineColor As Long '7 = SW = +19 'figure out which cell is to be activated -On Error GoTo error: +On Error GoTo Error: Select Case direction Case 0: 'north @@ -23593,7 +23662,7 @@ MapActivateCell = -1 Exit Function -error: +Error: Call HandleError("MapActivateCell") End Function @@ -23758,7 +23827,7 @@ picMap.DrawWidth = nTemp End Sub Private Sub MapGetRoomLoc(ByVal nMapNumber As Long, ByVal nRoomNumber As Long) -On Error GoTo error: +On Error GoTo Error: Dim x As Long, sLook As String, nExitType As Integer, RoomExit As RoomExitType Dim oLI As ListItem, RoomExit2 As RoomExitType, sArray() As String Dim nRecNum As Long, y As Long, sNumbers As String, sData As String, sCommand As String @@ -24031,13 +24100,13 @@ End If Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("MapGetRoomLoc") Set oLI = Nothing End Sub Private Sub MapGoDirection(ByVal nSourceMapNumber As Long, ByVal nSourceRoomNumber As Long, ByVal sDirection As String) -On Error GoTo error: +On Error GoTo Error: Dim RoomExits As RoomExitType tabRooms.Index = "idxRooms" @@ -24052,7 +24121,7 @@ If Not RoomExits.Map = 0 And Not RoomExits.Room = 0 Then Call MapStartMapping(RoomExits.Map, RoomExits.Room) End If Exit Sub -error: +Error: Call HandleError("MapGoDirection") End Sub @@ -24062,7 +24131,7 @@ Dim rc As RECT, ToolTipString As String, sText As String, sPlaced As String Dim sRemote As String, sMonsters As String, sArray() As String Dim RoomExit As RoomExitType, sLook As String, nExitType As Integer, sRoomCMDs As String -On Error GoTo error: +On Error GoTo Error: '============================================================================= ' @@ -24275,12 +24344,12 @@ UnchartedCells(Cell) = 2 Exit Sub -error: +Error: Call HandleError("MapMapExits") End Sub Public Sub MapStartMapping(ByVal nStartMap As Long, ByVal nStartRoom As Long, Optional nCenterCell As Integer) -On Error GoTo error: +On Error GoTo Error: Dim x As Integer, bCheckAgain As Boolean, y As Integer Dim bAllowDupes As Boolean, bDelayingDupes As Boolean If bMapStillMapping Then Exit Sub @@ -24394,7 +24463,7 @@ bMapStillMapping = False Call LockWindowUpdate(0&) Exit Sub -error: +Error: Call HandleError("MapStartMapping") Resume Cancel: End Sub @@ -24402,7 +24471,7 @@ End Sub '*************************** /spell compare Private Sub mnuAuxPopUpItem_Click(Index As Integer) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, nResult As Integer, sClip As String, x As Long Select Case Index @@ -24495,7 +24564,7 @@ quit: Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("mnuAuxPopUpItem_Click") Set oLI = Nothing End Sub @@ -24503,7 +24572,7 @@ End Sub Private Sub mnuEquipGotoItem_Click(Index As Integer) 'Dim nMinDMG As Long, nMaxDMG As Long, sTemp As String 'Dim x As Integer, nMaxDMGBonus As Integer -On Error GoTo error: +On Error GoTo Error: 'If cmbEquip(nLastEquipIndex).ListIndex < 1 Then Exit Sub If nEquippedItem(nLastEquipIndex) < 1 Then Exit Sub @@ -24539,7 +24608,7 @@ End Select out: Exit Sub -error: +Error: Call HandleError("mnuEquipGotoItem_Click") Resume out: End Sub @@ -24686,7 +24755,7 @@ Private Sub mnuItemsPopUpItem_Click(Index As Integer) Dim oLI As ListItem Dim x As Long, bClassStealth As Boolean -On Error GoTo error: +On Error GoTo Error: Select Case Index Case 0: 'add/remove compare @@ -24820,7 +24889,7 @@ Set oLI = Nothing bDontRefresh = False Exit Sub -error: +Error: Call HandleError("mnuItemsPopUpItem_Click") Set oLI = Nothing bDontRefresh = False @@ -24835,7 +24904,7 @@ End If End Sub Private Sub mnuMapPopUpItem_Click(Index As Integer) -On Error GoTo error: +On Error GoTo Error: Select Case Index Case 0: 'up @@ -24848,12 +24917,12 @@ End Select Exit Sub -error: +Error: Call HandleError("mnuMapPopUpItem_Click") End Sub Private Sub mnuOpenDataFile_Click() -On Error GoTo error: +On Error GoTo Error: Dim sFile As String, fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") @@ -24872,7 +24941,7 @@ On Error GoTo canceled: oComDag.ShowOpen If oComDag.FileName = "" Then GoTo canceled: -On Error GoTo error: +On Error GoTo Error: sFile = oComDag.FileName If UCase(Right(sFile, 4)) <> ".MDB" Then sFile = sFile & ".mdb" @@ -24888,14 +24957,14 @@ Call OpenNewDataFile(sFile) canceled: Set fso = Nothing Exit Sub -error: +Error: Call HandleError("mnuOpenDataFile_Click") Set fso = Nothing End Sub Private Sub OpenNewDataFile(sFile) Dim fso As FileSystemObject, x As Integer -On Error GoTo error: +On Error GoTo Error: Set fso = CreateObject("Scripting.FileSystemObject") @@ -24915,7 +24984,7 @@ out: On Error Resume Next Set fso = Nothing Exit Sub -error: +Error: Call HandleError("OpenNewDataFile") Resume out: End Sub @@ -24997,7 +25066,7 @@ End Sub Private Sub mnuSpellsPopUpItem_Click(Index As Integer) Dim oLI As ListItem, x As Long, nYesNo As Integer -On Error GoTo error: +On Error GoTo Error: Select Case Index Case 0: 'add/remove compare @@ -25078,7 +25147,7 @@ Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("mnuSpellsPopUpItem_Click") Set oLI = Nothing End Sub @@ -25132,7 +25201,7 @@ End Sub Private Sub ModifyCharStats(Index As Integer) Dim x As Integer, sFile As String, sSectionName As String -On Error GoTo error: +On Error GoTo Error: If Index > 11 Then Select Case Index @@ -25177,12 +25246,12 @@ End If Exit Sub -error: +Error: Call HandleError("ModifyCharStats") End Sub Private Sub PasteCharacter() -On Error GoTo error: +On Error GoTo Error: Dim sSearch As String, sText As String, sChar As String Dim x As Integer, y As Integer, x2 As Integer Dim sEquipLoc(0 To 18) As String, bResult As Boolean, nTries As Integer @@ -25456,14 +25525,14 @@ If nStat > 0 Then End If Exit Sub -error: +Error: Call HandleError("PasteCharacter") Me.Enabled = True bDontRefresh = False End Sub Public Sub PopUpAuxMenu(objWorkingLV As ListView) -On Error GoTo error: +On Error GoTo Error: Set objWorkingListView = objWorkingLV @@ -25521,13 +25590,13 @@ PopupMenu mnuAuxPopUp Exit Sub -error: +Error: Call HandleError("PopUpAuxMenu") End Sub Private Sub PopUpItemsMenu(objWorkingLV As ListView) -On Error GoTo error: +On Error GoTo Error: 'Case 0: 'add/remove compare 'Case 1: 'calc swings @@ -25577,13 +25646,13 @@ PopupMenu mnuItemsPopUp Exit Sub -error: +Error: Call HandleError("PopUpItemMenu") End Sub Public Sub PopUpMapMenu(ByVal bUp As Boolean, bDown As Boolean) -On Error GoTo error: +On Error GoTo Error: If bUp Then mnuMapPopUpItem(0).Visible = True Else mnuMapPopUpItem(0).Visible = False @@ -25594,13 +25663,13 @@ PopupMenu mnuMapPopUp Exit Sub -error: +Error: Call HandleError("PopUpMapMenu") End Sub Private Sub PopUpSpellsMenu(objWorkingLV As ListView) -On Error GoTo error: +On Error GoTo Error: 'Case 0: 'add/remove compare 'Case 1: 'copy to clip @@ -25625,14 +25694,14 @@ PopupMenu mnuSpellsPopUp Exit Sub -error: +Error: Call HandleError("PopUpSpellMenu") End Sub Private Sub ProcessListViewClick(ByRef objListItem As ListItem, ByRef objDetailText As TextBox, _ ByRef objLocationLV As ListView) -On Error GoTo error: +On Error GoTo Error: If objListItem Is Nothing Then Exit Sub @@ -25651,13 +25720,13 @@ objListItem.EnsureVisible Exit Sub -error: +Error: Call HandleError("ProcessListViewClick") End Sub Public Sub RecentFileAdd(Optional ByVal sFile As String) Dim x As Integer, y As Integer, sName As String, sFileTitle() As String -On Error GoTo error: +On Error GoTo Error: 'first check if this is a recent file If Not sFile = "" Then @@ -25710,14 +25779,14 @@ Call RecentFilesUpdate Erase sFileTitle() Exit Sub -error: +Error: Call HandleError("RecentFileAdd") Erase sFileTitle() End Sub Public Sub RecentFilesLoad(ByVal nNumber As String) Dim nYesNo As Integer, nResult As Integer, sSectionName As String -On Error GoTo error: +On Error GoTo Error: If FileExists(sRecentFiles(nNumber, 2)) = False Then MsgBox "File not found.", vbInformation @@ -25754,7 +25823,7 @@ Call LoadCharacter(False, sRecentFiles(nNumber, 2), True) 'If Val(ReadINI("Settings", "FilterAllChar")) = 1 Then Call FilterAll(True) Exit Sub -error: +Error: Call HandleError("LoadCharacterFile") End Sub @@ -25837,7 +25906,7 @@ End Sub Public Sub UpdateRecentDBs(Optional ByVal sFile As String) Dim x As Integer, y As Integer, sName As String, sFileTitle() As String Dim fso As FileSystemObject -On Error GoTo error: +On Error GoTo Error: Set fso = CreateObject("Scripting.FileSystemObject") @@ -25893,7 +25962,7 @@ out: On Error Resume Next Set fso = Nothing Exit Sub -error: +Error: Call HandleError("UpdateRecentDBs") Resume out: End Sub @@ -25924,7 +25993,7 @@ Call RefreshEquippedItemColors_Armour(lvArmourCompare) out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("RefreshEquippedItemColors") Resume out: End Sub @@ -26040,7 +26109,7 @@ Private Sub RefreshCharBless() Dim x As Integer, nTotal As Double, nSetLevel As Long, sQuick As String Dim nDur As Double, nDurIncr As Long, nDurLVLs As Long, nLevel As Long -On Error GoTo error: +On Error GoTo Error: If bDontRefresh Then Exit Sub @@ -26097,7 +26166,7 @@ lblCharBless.Caption = nTotal Exit Sub -error: +Error: Call HandleError("RefreshCharBless") End Sub @@ -26106,7 +26175,7 @@ Private Sub RefreshCPs() Dim x As Integer, nCPUsed As Long, y As Integer, nCP As Long Dim nLevelReq As Long, nBaseCP As Long -On Error GoTo error: +On Error GoTo Error: For x = 0 To 5 objToolTip.DelToolTip txtCharMaxStats(x).hWnd @@ -26156,13 +26225,13 @@ If Not txtShopCharm.Text = txtCharStats(5).Text Then End If Exit Sub -error: +Error: Call HandleError("RefreshCPs") End Sub Private Sub RefreshHitPoints() -On Error GoTo error: +On Error GoTo Error: Dim sMin As String, nMin As Long, sMax As String, nMax As Long ', nRaceBonus As Long Dim sTag As String @@ -26204,12 +26273,12 @@ Else End If Exit Sub -error: +Error: Call HandleError("CalcRestingRatePrivate") End Sub Private Sub RefreshMagic() -On Error GoTo error: +On Error GoTo Error: Dim nMageryLVL As Integer, nMagery As enmMagicEnum, nLevel As Long Dim nSC As Long, nSCBonsus As Long, nMaxMana As Long, nMaxManaBonus As Long Dim sTemp As String @@ -26270,14 +26339,14 @@ Else End If Exit Sub -error: +Error: Call HandleError("RefreshMagic") End Sub Private Sub RefreshPicklocks() Dim nBasePicks As Long, nBonusPicks As Long Dim sTemp As String -On Error GoTo error: +On Error GoTo Error: nBasePicks = CalcPicklocks(Val(txtGlobalLevel(0).Text), _ Val(txtCharStats(3).Text), Val(txtCharStats(1).Text)) @@ -26300,21 +26369,21 @@ End If Exit Sub -error: +Error: Call HandleError("RefreshPicklocks") End Sub Private Sub RefreshShops() -On Error GoTo error: +On Error GoTo Error: If lvShops.ListItems.Count > 0 Then Call lvShops_ItemClick(lvShops.SelectedItem) End If Exit Sub -error: +Error: Call HandleError("RefreshShops") End Sub @@ -26323,7 +26392,7 @@ Private Sub ResetFilterOptions(Optional bNotArmour As Boolean, _ Optional bNotWeapons As Boolean, Optional bNotSpells As Boolean, _ Optional bClassFiltersOnly As Boolean) Dim x As Integer -On Error GoTo error: +On Error GoTo Error: If Not bNotArmour Then 'armour opts @@ -26374,13 +26443,13 @@ End If Exit Sub -error: +Error: Call HandleError("ResetFilterOptions") End Sub Public Function SaveCharacter(ByVal bPromptForFile As Boolean, Optional ByVal strFileName As String) As Integer -On Error GoTo error: +On Error GoTo Error: Dim sFile As String, str As String, oLI As ListItem, sName As String Dim sSectionName As String, x As Integer, sFileTitle As String, y As Integer @@ -26416,7 +26485,7 @@ Else End If End If -On Error GoTo error: +On Error GoTo Error: If Not sFile = "" Then If Not LCase(Right(sFile, 5)) = ".mmec" Then sFile = sFile & ".mmec" @@ -26546,14 +26615,14 @@ out: On Error Resume Next Set oLI = Nothing Exit Function -error: +Error: Call HandleError("SaveCharacter") Resume out: End Function Public Function SaveSettings() As Integer Dim sSectionName As String, nYesNo As Integer, nResult As Integer, x As Integer -On Error GoTo error: +On Error GoTo Error: sSectionName = RemoveCharacter(lblDatVer.Caption, " ") @@ -26650,13 +26719,13 @@ Else End If Exit Function -error: +Error: Call HandleError("SaveSettings") Resume Next End Function Private Sub SetLabelFonts(sName As String, nSize As Integer, bBold As Boolean, bItalic As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim x As Integer Call WriteINI("Settings", "LabelFontName", sName) @@ -26673,12 +26742,12 @@ Next x DoEvents Exit Sub -error: +Error: HandleError End Sub Private Sub SetStatFonts(sName As String, nSize As Integer, bBold As Boolean, bItalic As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim x As Integer Call WriteINI("Settings", "StatFontName", sName) @@ -26707,14 +26776,14 @@ lblEncumLevel(1).Font.Italic = bItalic DoEvents Exit Sub -error: +Error: HandleError End Sub Private Sub SetupCharBless() Dim x As Integer ', y As Integer, z As Integer -On Error GoTo error: +On Error GoTo Error: For x = 0 To cmbCharBless().UBound cmbCharBless(x).clear @@ -26725,7 +26794,7 @@ Next x Exit Sub -error: +Error: Call HandleError("SetupCharBless") End Sub @@ -26733,7 +26802,7 @@ Private Sub SetupClass() Dim x As Integer Dim bAntiMagic As Boolean, bHasPicks As Boolean Dim nMagicLVL As Integer, nMagery As Integer, bHasMagic As Boolean -On Error GoTo error: +On Error GoTo Error: If cmbGlobalClass(0).ItemData(cmbGlobalClass(0).ListIndex) = 0 Or cmbGlobalClass(0).Text = "(none)" Then Call ResetFilterOptions(, , , True) @@ -26883,13 +26952,13 @@ End If Exit Sub -error: +Error: Call HandleError("SetupClass") End Sub Private Sub SetUpFormObjects() -On Error GoTo error: +On Error GoTo Error: Dim x As Integer, sAbilityList() As Variant Dim oColumnHeader As ColumnHeader @@ -27166,6 +27235,7 @@ lvMonsters.ColumnHeaders.Add 6, "Damage", "Damage", 1000, lvwColumnCenter lvMonsters.ColumnHeaders.Add 7, "Exp/(Dmg+HP)", "Exp/(Dmg+HP)", 1500, lvwColumnCenter lvMonsters.ColumnHeaders.Add 8, "Lairs", "Lairs", 1000, lvwColumnCenter lvMonsters.ColumnHeaders.Add 9, "Script Value", "Script Value", 1200, lvwColumnCenter +lvMonsters.ColumnHeaders.Add 10, "Mag.", "Mag.", 600, lvwColumnCenter lvMonsterCompare.ColumnHeaders.clear For Each oColumnHeader In lvMonsters.ColumnHeaders @@ -27239,7 +27309,7 @@ Call SetupCharBless out: Exit Sub -error: +Error: Call HandleError("SetUpFormObjects") Resume Next End Sub @@ -27247,7 +27317,7 @@ End Sub Private Sub SetupSplitters() 'Dim x As Long -On Error GoTo error: +On Error GoTo Error: splSplitterWE(0).Orientation = cSPLTOrientationVertical splSplitterWE(0).FullDrag = True @@ -27429,7 +27499,7 @@ splMonsterSplit(1).Bind lvMonsterCompare, lvMonsterCompareLoc out: Exit Sub -error: +Error: Call HandleError("SetupSplitters") Resume out: @@ -27438,7 +27508,7 @@ End Sub Private Sub SetupSplitterSizes() Dim x As Long -On Error GoTo error: +On Error GoTo Error: x = Val(ReadINI("Settings", "WeaponSplitNS")) If x < 50 Then x = 250 @@ -27505,7 +27575,7 @@ splMonsterSplit(1).Position = x Call SyncSplitters(0) Exit Sub -error: +Error: Call HandleError("SetupSplitterSizes") End Sub @@ -27542,7 +27612,7 @@ End Sub Private Sub splSplitterWE_Resize(Index As Integer) Dim oLV As ListView, oLVExtended As ListView, oCH As ColumnHeader, z As Long ', x As Integer -On Error GoTo error: +On Error GoTo Error: 'If splSplitterWE(Index).m_bInDrag Then Exit Sub ' @@ -27607,13 +27677,13 @@ Set oLVExtended = Nothing Set oCH = Nothing Exit Sub -error: +Error: Call HandleError("splSplitterWE_Resize") Resume out: End Sub Private Sub SyncSplitters(Index As Integer) -On Error GoTo error: +On Error GoTo Error: Dim x As Integer, y1 As Integer, y2 As Integer Select Case Index @@ -27656,14 +27726,14 @@ Next x Exit Sub -error: +Error: Call HandleError("SyncSplitters") End Sub Private Function TestGlobalFilter(ByVal nItemNumber As Long) As Boolean Dim x As Integer, bClassOK As Boolean, nClass As Integer, bMagical As Boolean Dim nNotAlign As Integer, nAlign As Integer, nClassWeapon As Integer, nClassArmour As Integer -On Error GoTo error: +On Error GoTo Error: If Not tabItems.Fields("Number") = nItemNumber Then tabItems.Index = "pkItems" @@ -27809,7 +27879,7 @@ TestGlobalFilter = True skip: Exit Function -error: +Error: Call HandleError("TestGlobalFilter") End Function @@ -27884,7 +27954,7 @@ End Sub Private Sub txtCharMR_Change() Dim nMR As Long -On Error GoTo error: +On Error GoTo Error: nMR = Val(txtCharMR.Text) If nMR > 150 Then nMR = 150 @@ -27912,7 +27982,7 @@ End If out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("txtCharMR_Change") Resume out: End Sub @@ -27958,7 +28028,7 @@ End Sub Private Sub txtCharVsAccy_Change() Dim nUserAC As Currency, nAccy As Currency -On Error GoTo error: +On Error GoTo Error: nUserAC = Val(txtCharAC.Text) nAccy = Val(txtCharVsAccy.Text) @@ -27986,7 +28056,7 @@ lblCharACMiss.Caption = nAccy & "%" out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("txtCharVsAccy_Change") Resume out: End Sub @@ -28078,7 +28148,7 @@ Private Sub txtMapMove_KeyPress(KeyAscii As Integer) Dim sLook As String, RoomExit As RoomExitType, x As Integer Dim nExitType As Integer, nRecNum As Long Dim nTest As Integer, sActions(9) As String, sTemp As String -On Error GoTo error: +On Error GoTo Error: If bMapStillMapping Then KeyAscii = 0 @@ -28212,13 +28282,17 @@ out: KeyAscii = 0 Exit Sub -error: +Error: Call HandleError("txtMapMove_KeyPress") End Sub +Private Sub txtMonMagic_GotFocus() +Call SelectAll(txtMonMagic) +End Sub + Private Sub txtMonsterDamage_GotFocus() Call SelectAll(txtMonsterDamage) End Sub @@ -28368,7 +28442,7 @@ End Sub Private Sub txtStat_Change(Index As Integer) Dim nTest As Single, sToolTipString As String, rc As RECT -On Error GoTo error: +On Error GoTo Error: Select Case Index Case 4: 'encum +% @@ -28428,7 +28502,7 @@ End Select Exit Sub -error: +Error: Call HandleError End Sub @@ -28475,3 +28549,6 @@ End Sub + + + diff --git a/frmMain.frx b/frmMain.frx index 9bad59b..a06fb2e 100644 Binary files a/frmMain.frx and b/frmMain.frx differ diff --git a/modMain.bas b/modMain.bas index 6dc2e0e..393a1f4 100644 --- a/modMain.bas +++ b/modMain.bas @@ -279,7 +279,7 @@ Dim y As Integer, z As Integer 'sStr = ClipNull(tabItems.Fields("Name")) & " (" & tabItems.Fields("Number") & ")" -On Error GoTo error: +On Error GoTo Error: nNumber = tabItems.Fields("Number") @@ -438,14 +438,14 @@ out: Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("PullItemDetail") Resume out: End Sub Public Sub PullClassDetail(nClassNum As Long, DetailTB As TextBox) -On Error GoTo error: +On Error GoTo Error: Dim sAbil As String, x As Integer @@ -485,13 +485,13 @@ DetailTB.Text = sAbil out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("PullClassDetail") Resume out: End Sub Public Sub PullRaceDetail(nRaceNum As Long, DetailTB As TextBox) -On Error GoTo error: +On Error GoTo Error: Dim sAbil As String, x As Integer @@ -530,12 +530,12 @@ DetailTB.Text = sAbil out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("PullRaceDetail") Resume out: End Sub Public Sub PullMonsterDetail(nMonsterNum As Long, DetailLV As ListView) -On Error GoTo error: +On Error GoTo Error: Dim sAbil As String, x As Integer, y As Integer Dim sCash As String, nCash As Currency, nPercent As Integer, nTest As Long @@ -1002,7 +1002,7 @@ out: Set oLI = Nothing On Error Resume Next Exit Sub -error: +Error: Call HandleError("PullMonsterDetail") Resume out: End Sub @@ -1225,7 +1225,7 @@ End Sub Public Sub PullShopDetail(nShopNum As Long, DetailLV As ListView, _ DetailTB As TextBox, lvAssigned As ListView, ByVal nCharm As Integer, ByVal bShowSell As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim sStr As String, x As Integer, nRegenTime As Integer, sRegenTime As String Dim oLI As ListItem, tCostType As typItemCostDetail, nCopper As Currency, sCopper As String @@ -1462,7 +1462,7 @@ out: On Error Resume Next Set oLI = Nothing Exit Sub -error: +Error: Call HandleError("PullShopDetail") Resume out: End Sub @@ -1470,7 +1470,7 @@ End Sub Public Sub PullSpellDetail(nSpellNum As Long, DetailTB As TextBox, LocationLV As ListView) -On Error GoTo error: +On Error GoTo Error: Dim sStr As String Dim sRemoves As String, sArr() As String, x As Integer @@ -1570,7 +1570,7 @@ Call GetLocations(tabSpells.Fields("Casted By"), LocationLV, True) out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("PullSpellDetail") Resume out: End Sub @@ -1593,7 +1593,7 @@ End If End Function Public Sub AddArmour2LV(LV As ListView, Optional AddToInven As Boolean, Optional nAbility As Integer) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, sName As String, nAbilityVal As Integer @@ -1649,13 +1649,13 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddArmour2LV") Resume out: End Sub Public Sub AddOtherItem2LV(LV As ListView) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem @@ -1686,13 +1686,13 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddOtherItem2LV") Resume out: End Sub Public Sub AddWeapon2LV(LV As ListView, Optional AddToInven As Boolean, Optional nAbility As Integer) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, sName As String, nSpeed As Integer, nDMG As Currency, nAbilityVal As Integer @@ -1767,14 +1767,14 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddWeapon2LV") Resume out: End Sub Public Sub AddSpell2LV(LV As ListView, Optional ByVal AddBless As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, sName As String, x As Integer, nSpell As Long Dim nSpellDamage As Currency @@ -1883,14 +1883,14 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddSpell2LV") Resume out: End Sub Public Sub AddRace2LV(LV As ListView) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, sAbil As String @@ -1928,17 +1928,17 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddRace2LV") Resume out: End Sub Public Sub AddMonster2LV(LV As ListView) -On Error GoTo error: +On Error GoTo Error: -Dim oLI As ListItem, sName As String, nExp As Currency -Dim nAvgDMG As Long, nExpDmgHP As Currency, nIndex As Integer +Dim oLI As ListItem, sName As String, nExp As Currency, x As Integer +Dim nAvgDMG As Long, nExpDmgHP As Currency, nIndex As Integer, nMagicLVL As Integer Dim nScriptValue As Currency, nLairPCT As Currency, nPossSpawns As Long, sPossSpawns As String sName = tabMonsters.Fields("Name") @@ -2019,6 +2019,19 @@ End If oLI.ListSubItems(nIndex).Tag = nScriptValue nIndex = nIndex + 1 +For x = 0 To 9 'abilities + If Not tabMonsters.Fields("Abil-" & x) = 0 Then + Select Case tabMonsters.Fields("Abil-" & x) + Case 28: 'magical + nMagicLVL = tabMonsters.Fields("AbilVal-" & x) + Exit For + End Select + End If +Next + +oLI.ListSubItems.Add (nIndex), "Mag.", nMagicLVL +oLI.ListSubItems(nIndex).Tag = nMagicLVL +nIndex = nIndex + 1 skip: Set oLI = Nothing @@ -2027,14 +2040,14 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddMonster2LV") Resume out: End Sub Public Sub AddShop2LV(LV As ListView) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, sName As String @@ -2055,14 +2068,14 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddShop2LV") Resume out: End Sub Public Sub AddClass2LV(LV As ListView) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, x As Integer, sAbil As String @@ -2099,7 +2112,7 @@ Set oLI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("AddClass2LV") Resume out: End Sub @@ -2184,7 +2197,7 @@ Public Function SearchLV(ByVal KeyCode As Integer, oLVW As ListView, oTXT As Tex Dim i As Long, SearchStart As Long, SelectText As String, bSearchAgain As Boolean Dim nCIndex As Integer -On Error GoTo error: +On Error GoTo Error: If oLVW.ListItems.Count < 1 Then Exit Function @@ -2230,12 +2243,12 @@ If SearchLV Then End If Exit Function -error: +Error: Call HandleError End Function Public Sub CopyWholeLVtoClipboard(LV As ListView, Optional ByVal UsePeriods As Boolean) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, oLSI As ListSubItem, oCH As ColumnHeader Dim str As String, x As Integer, sSpacer As String, nLongText() As Integer @@ -2290,7 +2303,7 @@ Set oLSI = Nothing Set oCH = Nothing Exit Sub -error: +Error: Call HandleError("CopyWholeLVtoClip") Set oLI = Nothing Set oLSI = Nothing @@ -2298,7 +2311,7 @@ Set oCH = Nothing End Sub Public Sub CopyLVLinetoClipboard(LV As ListView, Optional DetailTB As TextBox, _ Optional LocationLV As ListView, Optional ByVal nExcludeColumn As Integer = -1, Optional bNameOnly As Boolean = False) -On Error GoTo error: +On Error GoTo Error: Dim oLI As ListItem, oLI2 As ListItem, oCH As ColumnHeader Dim str As String, x As Integer, nCount As Integer @@ -2394,7 +2407,7 @@ Set oLI2 = Nothing Set oCH = Nothing Exit Sub -error: +Error: Call HandleError("CopyLVLinetoClip") Resume out: End Sub @@ -2404,7 +2417,7 @@ Public Sub GetLocations(ByVal sLoc As String, LV As ListView, _ Optional ByVal nAuxValue As Long, Optional ByVal bTwoColumns As Boolean, _ Optional ByVal bDontSort As Boolean, Optional ByVal bPercentColumn As Boolean, _ Optional ByVal sFooter As String) -On Error GoTo error: +On Error GoTo Error: Dim sLook As String, sChar As String, sTest As String, oLI As ListItem, sPercent As String Dim x As Integer, y1 As Integer, y2 As Integer, z As Integer, nValue As Long, x2 As Integer Dim sLocation As String, nPercent As Currency, nPercent2 As Currency, sTemp As String @@ -2752,7 +2765,7 @@ End If Set oLI = Nothing Exit Sub -error: +Error: HandleError Set oLI = Nothing @@ -2955,7 +2968,7 @@ Public Function RegCreateKeyPath(ByVal enmHKEY As hkey, ByVal strKeyPath As Stri ' Inputs: HKEY, KeyPath ' Return: Error code, 0=no error '**************************************************************************** -On Error GoTo error: +On Error GoTo Error: Dim cReg As clsRegistryRoutines Dim x As Long, y As Long, KeyArray() As String @@ -3001,14 +3014,14 @@ Set cReg = Nothing Erase KeyArray() Exit Function -error: +Error: RegCreateKeyPath = Err.Number Resume quit: End Function Public Function StringOfNumbersToArray(sNumberString As String) As String() Dim x As Long, sRet() As String -On Error GoTo error: +On Error GoTo Error: If InStr(1, sNumberString, ",", vbTextCompare) = 0 Then ReDim sRet(0) @@ -3025,7 +3038,7 @@ StringOfNumbersToArray = sRet out: On Error Resume Next Exit Function -error: +Error: Call HandleError("NumberStringToArray") Resume out: End Function @@ -3092,7 +3105,7 @@ End Sub Public Sub ColorListviewRow(LV As ListView, RowNbr As Long, RowColor As OLE_COLOR, Optional bAndBold As Boolean) -On Error GoTo error: +On Error GoTo Error: '*************************************************************************** 'Purpose: Color a ListView Row @@ -3134,7 +3147,7 @@ Set lvSI = Nothing out: On Error Resume Next Exit Sub -error: +Error: Call HandleError("ColorListviewRow") Resume out: End Sub @@ -3150,7 +3163,7 @@ Dim RoomExit As RoomExitType, x As Integer, sRoomName As String Dim sExits(9) As String, nExitVal(9) As Integer, nExitPosition(9) As Integer Dim nExitsCalculated(1 To 5) As Integer Dim bDoor As Boolean -On Error GoTo error: +On Error GoTo Error: sExits(0) = "N" sExits(1) = "S" @@ -3234,14 +3247,14 @@ Next x out: On Error Resume Next Exit Function -error: +Error: Call HandleError("Get_MegaMUD_ExitsCode") End Function Public Function Get_MegaMUD_RoomHash(ByVal sRoomName As String, Optional ByVal nMapNum As Long, Optional ByVal nRoomNum As Long) As String Dim x As Integer, nValue As Long -On Error GoTo error: +On Error GoTo Error: Get_MegaMUD_RoomHash = "FFF" @@ -3271,7 +3284,7 @@ If Len(Get_MegaMUD_RoomHash) < 3 Then Get_MegaMUD_RoomHash = String(3 - Len(Get_ out: On Error Resume Next Exit Function -error: +Error: Call HandleError("Get_MegaMUD_RoomHash") Resume out: End Function