home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Cheats_Cod2160698232009.psc / Form1.frm < prev    next >
Text File  |  2009-08-03  |  54KB  |  1,666 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00CCCCCC&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "  Cheats Codes Center Online"
  6.    ClientHeight    =   8760
  7.    ClientLeft      =   45
  8.    ClientTop       =   315
  9.    ClientWidth     =   11070
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   8760
  14.    ScaleWidth      =   11070
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.TextBox CheatsText 
  18.       Appearance      =   0  'Flat
  19.       Height          =   6975
  20.       Left            =   4920
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   3  'Both
  24.       TabIndex        =   6
  25.       Top             =   1440
  26.       Width           =   6135
  27.    End
  28.    Begin VB.PictureBox BtnEnbl 
  29.       Height          =   495
  30.       Index           =   1
  31.       Left            =   720
  32.       Picture         =   "Form1.frx":0000
  33.       ScaleHeight     =   435
  34.       ScaleWidth      =   435
  35.       TabIndex        =   75
  36.       Top             =   5520
  37.       Visible         =   0   'False
  38.       Width           =   495
  39.    End
  40.    Begin VB.PictureBox BtnEnbl 
  41.       Height          =   495
  42.       Index           =   0
  43.       Left            =   240
  44.       Picture         =   "Form1.frx":077A
  45.       ScaleHeight     =   435
  46.       ScaleWidth      =   435
  47.       TabIndex        =   74
  48.       Top             =   5520
  49.       Visible         =   0   'False
  50.       Width           =   495
  51.    End
  52.    Begin VB.PictureBox BtnEnbl 
  53.       Height          =   495
  54.       Index           =   2
  55.       Left            =   720
  56.       Picture         =   "Form1.frx":0EF4
  57.       ScaleHeight     =   435
  58.       ScaleWidth      =   435
  59.       TabIndex        =   73
  60.       Top             =   6120
  61.       Visible         =   0   'False
  62.       Width           =   495
  63.    End
  64.    Begin VB.PictureBox BtnEnbl 
  65.       Height          =   495
  66.       Index           =   3
  67.       Left            =   240
  68.       Picture         =   "Form1.frx":22CE
  69.       ScaleHeight     =   435
  70.       ScaleWidth      =   435
  71.       TabIndex        =   72
  72.       Top             =   6120
  73.       Visible         =   0   'False
  74.       Width           =   495
  75.    End
  76.    Begin VB.PictureBox PlatBox 
  77.       BackColor       =   &H00858585&
  78.       BorderStyle     =   0  'None
  79.       Height          =   375
  80.       Index           =   3
  81.       Left            =   240
  82.       Picture         =   "Form1.frx":36A8
  83.       ScaleHeight     =   375
  84.       ScaleWidth      =   1215
  85.       TabIndex        =   61
  86.       Top             =   3120
  87.       Width           =   1215
  88.       Begin VB.Label PlatformsLBL 
  89.          Alignment       =   2  'Center
  90.          BackStyle       =   0  'Transparent
  91.          Caption         =   "PC"
  92.          BeginProperty Font 
  93.             Name            =   "MS Sans Serif"
  94.             Size            =   8.25
  95.             Charset         =   178
  96.             Weight          =   700
  97.             Underline       =   0   'False
  98.             Italic          =   0   'False
  99.             Strikethrough   =   0   'False
  100.          EndProperty
  101.          ForeColor       =   &H000000C0&
  102.          Height          =   255
  103.          Index           =   3
  104.          Left            =   0
  105.          TabIndex        =   62
  106.          Top             =   60
  107.          Width           =   1095
  108.       End
  109.    End
  110.    Begin VB.PictureBox PlatBox 
  111.       BackColor       =   &H00858585&
  112.       BorderStyle     =   0  'None
  113.       Height          =   375
  114.       Index           =   2
  115.       Left            =   240
  116.       Picture         =   "Form1.frx":4A82
  117.       ScaleHeight     =   375
  118.       ScaleWidth      =   1215
  119.       TabIndex        =   63
  120.       Top             =   2760
  121.       Width           =   1215
  122.       Begin VB.Label PlatformsLBL 
  123.          Alignment       =   2  'Center
  124.          BackStyle       =   0  'Transparent
  125.          Caption         =   "PS2"
  126.          BeginProperty Font 
  127.             Name            =   "MS Sans Serif"
  128.             Size            =   8.25
  129.             Charset         =   178
  130.             Weight          =   700
  131.             Underline       =   0   'False
  132.             Italic          =   0   'False
  133.             Strikethrough   =   0   'False
  134.          EndProperty
  135.          ForeColor       =   &H000000C0&
  136.          Height          =   255
  137.          Index           =   2
  138.          Left            =   0
  139.          TabIndex        =   64
  140.          Top             =   60
  141.          Width           =   1095
  142.       End
  143.    End
  144.    Begin VB.PictureBox PlatBox 
  145.       BackColor       =   &H00858585&
  146.       BorderStyle     =   0  'None
  147.       Height          =   375
  148.       Index           =   1
  149.       Left            =   240
  150.       Picture         =   "Form1.frx":5E5C
  151.       ScaleHeight     =   375
  152.       ScaleWidth      =   1215
  153.       TabIndex        =   65
  154.       Top             =   2400
  155.       Width           =   1215
  156.       Begin VB.Label PlatformsLBL 
  157.          Alignment       =   2  'Center
  158.          BackStyle       =   0  'Transparent
  159.          Caption         =   "PS3"
  160.          BeginProperty Font 
  161.             Name            =   "MS Sans Serif"
  162.             Size            =   8.25
  163.             Charset         =   178
  164.             Weight          =   700
  165.             Underline       =   0   'False
  166.             Italic          =   0   'False
  167.             Strikethrough   =   0   'False
  168.          EndProperty
  169.          ForeColor       =   &H000000C0&
  170.          Height          =   255
  171.          Index           =   1
  172.          Left            =   0
  173.          TabIndex        =   66
  174.          Top             =   60
  175.          Width           =   1095
  176.       End
  177.    End
  178.    Begin VB.PictureBox LetterBox 
  179.       BackColor       =   &H00858585&
  180.       BorderStyle     =   0  'None
  181.       Height          =   375
  182.       Index           =   26
  183.       Left            =   2760
  184.       Picture         =   "Form1.frx":7236
  185.       ScaleHeight     =   375
  186.       ScaleWidth      =   495
  187.       TabIndex        =   7
  188.       Top             =   3480
  189.       Width           =   495
  190.       Begin VB.Label Letter 
  191.          Alignment       =   2  'Center
  192.          BackStyle       =   0  'Transparent
  193.          Caption         =   "Z"
  194.          BeginProperty Font 
  195.             Name            =   "MS Sans Serif"
  196.             Size            =   8.25
  197.             Charset         =   178
  198.             Weight          =   700
  199.             Underline       =   0   'False
  200.             Italic          =   0   'False
  201.             Strikethrough   =   0   'False
  202.          EndProperty
  203.          ForeColor       =   &H000000C0&
  204.          Height          =   255
  205.          Index           =   26
  206.          Left            =   0
  207.          TabIndex        =   8
  208.          Top             =   60
  209.          Width           =   375
  210.       End
  211.    End
  212.    Begin VB.PictureBox LetterBox 
  213.       BackColor       =   &H00858585&
  214.       BorderStyle     =   0  'None
  215.       Height          =   375
  216.       Index           =   25
  217.       Left            =   2280
  218.       Picture         =   "Form1.frx":79B0
  219.       ScaleHeight     =   375
  220.       ScaleWidth      =   495
  221.       TabIndex        =   9
  222.       Top             =   3480
  223.       Width           =   495
  224.       Begin VB.Label Letter 
  225.          Alignment       =   2  'Center
  226.          BackStyle       =   0  'Transparent
  227.          Caption         =   "Y"
  228.          BeginProperty Font 
  229.             Name            =   "MS Sans Serif"
  230.             Size            =   8.25
  231.             Charset         =   178
  232.             Weight          =   700
  233.             Underline       =   0   'False
  234.             Italic          =   0   'False
  235.             Strikethrough   =   0   'False
  236.          EndProperty
  237.          ForeColor       =   &H000000C0&
  238.          Height          =   255
  239.          Index           =   25
  240.          Left            =   0
  241.          TabIndex        =   10
  242.          Top             =   60
  243.          Width           =   375
  244.       End
  245.    End
  246.    Begin VB.PictureBox LetterBox 
  247.       BackColor       =   &H00858585&
  248.       BorderStyle     =   0  'None
  249.       Height          =   375
  250.       Index           =   24
  251.       Left            =   1800
  252.       Picture         =   "Form1.frx":812A
  253.       ScaleHeight     =   375
  254.       ScaleWidth      =   495
  255.       TabIndex        =   11
  256.       Top             =   3480
  257.       Width           =   495
  258.       Begin VB.Label Letter 
  259.          Alignment       =   2  'Center
  260.          BackStyle       =   0  'Transparent
  261.          Caption         =   "X"
  262.          BeginProperty Font 
  263.             Name            =   "MS Sans Serif"
  264.             Size            =   8.25
  265.             Charset         =   178
  266.             Weight          =   700
  267.             Underline       =   0   'False
  268.             Italic          =   0   'False
  269.             Strikethrough   =   0   'False
  270.          EndProperty
  271.          ForeColor       =   &H000000C0&
  272.          Height          =   255
  273.          Index           =   24
  274.          Left            =   0
  275.          TabIndex        =   12
  276.          Top             =   60
  277.          Width           =   375
  278.       End
  279.    End
  280.    Begin VB.PictureBox LetterBox 
  281.       BackColor       =   &H00858585&
  282.       BorderStyle     =   0  'None
  283.       Height          =   375
  284.       Index           =   23
  285.       Left            =   4200
  286.       Picture         =   "Form1.frx":88A4
  287.       ScaleHeight     =   375
  288.       ScaleWidth      =   495
  289.       TabIndex        =   13
  290.       Top             =   3120
  291.       Width           =   495
  292.       Begin VB.Label Letter 
  293.          Alignment       =   2  'Center
  294.          BackStyle       =   0  'Transparent
  295.          Caption         =   "W"
  296.          BeginProperty Font 
  297.             Name            =   "MS Sans Serif"
  298.             Size            =   8.25
  299.             Charset         =   178
  300.             Weight          =   700
  301.             Underline       =   0   'False
  302.             Italic          =   0   'False
  303.             Strikethrough   =   0   'False
  304.          EndProperty
  305.          ForeColor       =   &H000000C0&
  306.          Height          =   255
  307.          Index           =   23
  308.          Left            =   0
  309.          TabIndex        =   14
  310.          Top             =   60
  311.          Width           =   375
  312.       End
  313.    End
  314.    Begin VB.PictureBox LetterBox 
  315.       BackColor       =   &H00858585&
  316.       BorderStyle     =   0  'None
  317.       Height          =   375
  318.       Index           =   22
  319.       Left            =   3720
  320.       Picture         =   "Form1.frx":901E
  321.       ScaleHeight     =   375
  322.       ScaleWidth      =   495
  323.       TabIndex        =   15
  324.       Top             =   3120
  325.       Width           =   495
  326.       Begin VB.Label Letter 
  327.          Alignment       =   2  'Center
  328.          BackStyle       =   0  'Transparent
  329.          Caption         =   "V"
  330.          BeginProperty Font 
  331.             Name            =   "MS Sans Serif"
  332.             Size            =   8.25
  333.             Charset         =   178
  334.             Weight          =   700
  335.             Underline       =   0   'False
  336.             Italic          =   0   'False
  337.             Strikethrough   =   0   'False
  338.          EndProperty
  339.          ForeColor       =   &H000000C0&
  340.          Height          =   255
  341.          Index           =   22
  342.          Left            =   0
  343.          TabIndex        =   16
  344.          Top             =   60
  345.          Width           =   375
  346.       End
  347.    End
  348.    Begin VB.PictureBox LetterBox 
  349.       BackColor       =   &H00858585&
  350.       BorderStyle     =   0  'None
  351.       Height          =   375
  352.       Index           =   21
  353.       Left            =   3240
  354.       Picture         =   "Form1.frx":9798
  355.       ScaleHeight     =   375
  356.       ScaleWidth      =   495
  357.       TabIndex        =   17
  358.       Top             =   3120
  359.       Width           =   495
  360.       Begin VB.Label Letter 
  361.          Alignment       =   2  'Center
  362.          BackStyle       =   0  'Transparent
  363.          Caption         =   "U"
  364.          BeginProperty Font 
  365.             Name            =   "MS Sans Serif"
  366.             Size            =   8.25
  367.             Charset         =   178
  368.             Weight          =   700
  369.             Underline       =   0   'False
  370.             Italic          =   0   'False
  371.             Strikethrough   =   0   'False
  372.          EndProperty
  373.          ForeColor       =   &H000000C0&
  374.          Height          =   255
  375.          Index           =   21
  376.          Left            =   0
  377.          TabIndex        =   18
  378.          Top             =   60
  379.          Width           =   375
  380.       End
  381.    End
  382.    Begin VB.PictureBox LetterBox 
  383.       BackColor       =   &H00858585&
  384.       BorderStyle     =   0  'None
  385.       Height          =   375
  386.       Index           =   20
  387.       Left            =   2760
  388.       Picture         =   "Form1.frx":9F12
  389.       ScaleHeight     =   375
  390.       ScaleWidth      =   495
  391.       TabIndex        =   19
  392.       Top             =   3120
  393.       Width           =   495
  394.       Begin VB.Label Letter 
  395.          Alignment       =   2  'Center
  396.          BackStyle       =   0  'Transparent
  397.          Caption         =   "T"
  398.          BeginProperty Font 
  399.             Name            =   "MS Sans Serif"
  400.             Size            =   8.25
  401.             Charset         =   178
  402.             Weight          =   700
  403.             Underline       =   0   'False
  404.             Italic          =   0   'False
  405.             Strikethrough   =   0   'False
  406.          EndProperty
  407.          ForeColor       =   &H000000C0&
  408.          Height          =   255
  409.          Index           =   20
  410.          Left            =   0
  411.          TabIndex        =   20
  412.          Top             =   60
  413.          Width           =   375
  414.       End
  415.    End
  416.    Begin VB.PictureBox LetterBox 
  417.       BackColor       =   &H00858585&
  418.       BorderStyle     =   0  'None
  419.       Height          =   375
  420.       Index           =   19
  421.       Left            =   2280
  422.       Picture         =   "Form1.frx":A68C
  423.       ScaleHeight     =   375
  424.       ScaleWidth      =   495
  425.       TabIndex        =   21
  426.       Top             =   3120
  427.       Width           =   495
  428.       Begin VB.Label Letter 
  429.          Alignment       =   2  'Center
  430.          BackStyle       =   0  'Transparent
  431.          Caption         =   "S"
  432.          BeginProperty Font 
  433.             Name            =   "MS Sans Serif"
  434.             Size            =   8.25
  435.             Charset         =   178
  436.             Weight          =   700
  437.             Underline       =   0   'False
  438.             Italic          =   0   'False
  439.             Strikethrough   =   0   'False
  440.          EndProperty
  441.          ForeColor       =   &H000000C0&
  442.          Height          =   255
  443.          Index           =   19
  444.          Left            =   0
  445.          TabIndex        =   22
  446.          Top             =   60
  447.          Width           =   375
  448.       End
  449.    End
  450.    Begin VB.PictureBox LetterBox 
  451.       BackColor       =   &H00858585&
  452.       BorderStyle     =   0  'None
  453.       Height          =   375
  454.       Index           =   18
  455.       Left            =   1800
  456.       Picture         =   "Form1.frx":AE06
  457.       ScaleHeight     =   375
  458.       ScaleWidth      =   495
  459.       TabIndex        =   23
  460.       Top             =   3120
  461.       Width           =   495
  462.       Begin VB.Label Letter 
  463.          Alignment       =   2  'Center
  464.          BackStyle       =   0  'Transparent
  465.          Caption         =   "R"
  466.          BeginProperty Font 
  467.             Name            =   "MS Sans Serif"
  468.             Size            =   8.25
  469.             Charset         =   178
  470.             Weight          =   700
  471.             Underline       =   0   'False
  472.             Italic          =   0   'False
  473.             Strikethrough   =   0   'False
  474.          EndProperty
  475.          ForeColor       =   &H000000C0&
  476.          Height          =   255
  477.          Index           =   18
  478.          Left            =   0
  479.          TabIndex        =   24
  480.          Top             =   60
  481.          Width           =   375
  482.       End
  483.    End
  484.    Begin VB.PictureBox LetterBox 
  485.       BackColor       =   &H00858585&
  486.       BorderStyle     =   0  'None
  487.       Height          =   375
  488.       Index           =   17
  489.       Left            =   4200
  490.       Picture         =   "Form1.frx":B580
  491.       ScaleHeight     =   375
  492.       ScaleWidth      =   495
  493.       TabIndex        =   25
  494.       Top             =   2760
  495.       Width           =   495
  496.       Begin VB.Label Letter 
  497.          Alignment       =   2  'Center
  498.          BackStyle       =   0  'Transparent
  499.          Caption         =   "Q"
  500.          BeginProperty Font 
  501.             Name            =   "MS Sans Serif"
  502.             Size            =   8.25
  503.             Charset         =   178
  504.             Weight          =   700
  505.             Underline       =   0   'False
  506.             Italic          =   0   'False
  507.             Strikethrough   =   0   'False
  508.          EndProperty
  509.          ForeColor       =   &H000000C0&
  510.          Height          =   255
  511.          Index           =   17
  512.          Left            =   0
  513.          TabIndex        =   26
  514.          Top             =   60
  515.          Width           =   375
  516.       End
  517.    End
  518.    Begin VB.PictureBox LetterBox 
  519.       BackColor       =   &H00858585&
  520.       BorderStyle     =   0  'None
  521.       Height          =   375
  522.       Index           =   16
  523.       Left            =   3720
  524.       Picture         =   "Form1.frx":BCFA
  525.       ScaleHeight     =   375
  526.       ScaleWidth      =   495
  527.       TabIndex        =   27
  528.       Top             =   2760
  529.       Width           =   495
  530.       Begin VB.Label Letter 
  531.          Alignment       =   2  'Center
  532.          BackStyle       =   0  'Transparent
  533.          Caption         =   "P"
  534.          BeginProperty Font 
  535.             Name            =   "MS Sans Serif"
  536.             Size            =   8.25
  537.             Charset         =   178
  538.             Weight          =   700
  539.             Underline       =   0   'False
  540.             Italic          =   0   'False
  541.             Strikethrough   =   0   'False
  542.          EndProperty
  543.          ForeColor       =   &H000000C0&
  544.          Height          =   255
  545.          Index           =   16
  546.          Left            =   0
  547.          TabIndex        =   28
  548.          Top             =   60
  549.          Width           =   375
  550.       End
  551.    End
  552.    Begin VB.PictureBox LetterBox 
  553.       BackColor       =   &H00858585&
  554.       BorderStyle     =   0  'None
  555.       Height          =   375
  556.       Index           =   15
  557.       Left            =   3240
  558.       Picture         =   "Form1.frx":C474
  559.       ScaleHeight     =   375
  560.       ScaleWidth      =   495
  561.       TabIndex        =   29
  562.       Top             =   2760
  563.       Width           =   495
  564.       Begin VB.Label Letter 
  565.          Alignment       =   2  'Center
  566.          BackStyle       =   0  'Transparent
  567.          Caption         =   "O"
  568.          BeginProperty Font 
  569.             Name            =   "MS Sans Serif"
  570.             Size            =   8.25
  571.             Charset         =   178
  572.             Weight          =   700
  573.             Underline       =   0   'False
  574.             Italic          =   0   'False
  575.             Strikethrough   =   0   'False
  576.          EndProperty
  577.          ForeColor       =   &H000000C0&
  578.          Height          =   255
  579.          Index           =   15
  580.          Left            =   0
  581.          TabIndex        =   30
  582.          Top             =   60
  583.          Width           =   375
  584.       End
  585.    End
  586.    Begin VB.PictureBox LetterBox 
  587.       BackColor       =   &H00858585&
  588.       BorderStyle     =   0  'None
  589.       Height          =   375
  590.       Index           =   14
  591.       Left            =   2760
  592.       Picture         =   "Form1.frx":CBEE
  593.       ScaleHeight     =   375
  594.       ScaleWidth      =   495
  595.       TabIndex        =   31
  596.       Top             =   2760
  597.       Width           =   495
  598.       Begin VB.Label Letter 
  599.          Alignment       =   2  'Center
  600.          BackStyle       =   0  'Transparent
  601.          Caption         =   "N"
  602.          BeginProperty Font 
  603.             Name            =   "MS Sans Serif"
  604.             Size            =   8.25
  605.             Charset         =   178
  606.             Weight          =   700
  607.             Underline       =   0   'False
  608.             Italic          =   0   'False
  609.             Strikethrough   =   0   'False
  610.          EndProperty
  611.          ForeColor       =   &H000000C0&
  612.          Height          =   255
  613.          Index           =   14
  614.          Left            =   0
  615.          TabIndex        =   32
  616.          Top             =   60
  617.          Width           =   375
  618.       End
  619.    End
  620.    Begin VB.PictureBox LetterBox 
  621.       BackColor       =   &H00858585&
  622.       BorderStyle     =   0  'None
  623.       Height          =   375
  624.       Index           =   13
  625.       Left            =   2280
  626.       Picture         =   "Form1.frx":D368
  627.       ScaleHeight     =   375
  628.       ScaleWidth      =   495
  629.       TabIndex        =   33
  630.       Top             =   2760
  631.       Width           =   495
  632.       Begin VB.Label Letter 
  633.          Alignment       =   2  'Center
  634.          BackStyle       =   0  'Transparent
  635.          Caption         =   "M"
  636.          BeginProperty Font 
  637.             Name            =   "MS Sans Serif"
  638.             Size            =   8.25
  639.             Charset         =   178
  640.             Weight          =   700
  641.             Underline       =   0   'False
  642.             Italic          =   0   'False
  643.             Strikethrough   =   0   'False
  644.          EndProperty
  645.          ForeColor       =   &H000000C0&
  646.          Height          =   255
  647.          Index           =   13
  648.          Left            =   0
  649.          TabIndex        =   34
  650.          Top             =   60
  651.          Width           =   375
  652.       End
  653.    End
  654.    Begin VB.PictureBox LetterBox 
  655.       BackColor       =   &H00858585&
  656.       BorderStyle     =   0  'None
  657.       Height          =   375
  658.       Index           =   12
  659.       Left            =   1800
  660.       Picture         =   "Form1.frx":DAE2
  661.       ScaleHeight     =   375
  662.       ScaleWidth      =   495
  663.       TabIndex        =   35
  664.       Top             =   2760
  665.       Width           =   495
  666.       Begin VB.Label Letter 
  667.          Alignment       =   2  'Center
  668.          BackStyle       =   0  'Transparent
  669.          Caption         =   "L"
  670.          BeginProperty Font 
  671.             Name            =   "MS Sans Serif"
  672.             Size            =   8.25
  673.             Charset         =   178
  674.             Weight          =   700
  675.             Underline       =   0   'False
  676.             Italic          =   0   'False
  677.             Strikethrough   =   0   'False
  678.          EndProperty
  679.          ForeColor       =   &H000000C0&
  680.          Height          =   255
  681.          Index           =   12
  682.          Left            =   0
  683.          TabIndex        =   36
  684.          Top             =   60
  685.          Width           =   375
  686.       End
  687.    End
  688.    Begin VB.PictureBox LetterBox 
  689.       BackColor       =   &H00858585&
  690.       BorderStyle     =   0  'None
  691.       Height          =   375
  692.       Index           =   11
  693.       Left            =   4200
  694.       Picture         =   "Form1.frx":E25C
  695.       ScaleHeight     =   375
  696.       ScaleWidth      =   495
  697.       TabIndex        =   37
  698.       Top             =   2400
  699.       Width           =   495
  700.       Begin VB.Label Letter 
  701.          Alignment       =   2  'Center
  702.          BackStyle       =   0  'Transparent
  703.          Caption         =   "K"
  704.          BeginProperty Font 
  705.             Name            =   "MS Sans Serif"
  706.             Size            =   8.25
  707.             Charset         =   178
  708.             Weight          =   700
  709.             Underline       =   0   'False
  710.             Italic          =   0   'False
  711.             Strikethrough   =   0   'False
  712.          EndProperty
  713.          ForeColor       =   &H000000C0&
  714.          Height          =   255
  715.          Index           =   11
  716.          Left            =   0
  717.          TabIndex        =   38
  718.          Top             =   60
  719.          Width           =   375
  720.       End
  721.    End
  722.    Begin VB.PictureBox LetterBox 
  723.       BackColor       =   &H00858585&
  724.       BorderStyle     =   0  'None
  725.       Height          =   375
  726.       Index           =   10
  727.       Left            =   3720
  728.       Picture         =   "Form1.frx":E9D6
  729.       ScaleHeight     =   375
  730.       ScaleWidth      =   495
  731.       TabIndex        =   39
  732.       Top             =   2400
  733.       Width           =   495
  734.       Begin VB.Label Letter 
  735.          Alignment       =   2  'Center
  736.          BackStyle       =   0  'Transparent
  737.          Caption         =   "J"
  738.          BeginProperty Font 
  739.             Name            =   "MS Sans Serif"
  740.             Size            =   8.25
  741.             Charset         =   178
  742.             Weight          =   700
  743.             Underline       =   0   'False
  744.             Italic          =   0   'False
  745.             Strikethrough   =   0   'False
  746.          EndProperty
  747.          ForeColor       =   &H000000C0&
  748.          Height          =   255
  749.          Index           =   10
  750.          Left            =   0
  751.          TabIndex        =   40
  752.          Top             =   60
  753.          Width           =   375
  754.       End
  755.    End
  756.    Begin VB.PictureBox LetterBox 
  757.       BackColor       =   &H00858585&
  758.       BorderStyle     =   0  'None
  759.       Height          =   375
  760.       Index           =   9
  761.       Left            =   3240
  762.       Picture         =   "Form1.frx":F150
  763.       ScaleHeight     =   375
  764.       ScaleWidth      =   495
  765.       TabIndex        =   41
  766.       Top             =   2400
  767.       Width           =   495
  768.       Begin VB.Label Letter 
  769.          Alignment       =   2  'Center
  770.          BackStyle       =   0  'Transparent
  771.          Caption         =   "I"
  772.          BeginProperty Font 
  773.             Name            =   "MS Sans Serif"
  774.             Size            =   8.25
  775.             Charset         =   178
  776.             Weight          =   700
  777.             Underline       =   0   'False
  778.             Italic          =   0   'False
  779.             Strikethrough   =   0   'False
  780.          EndProperty
  781.          ForeColor       =   &H000000C0&
  782.          Height          =   255
  783.          Index           =   9
  784.          Left            =   0
  785.          TabIndex        =   42
  786.          Top             =   60
  787.          Width           =   375
  788.       End
  789.    End
  790.    Begin VB.PictureBox LetterBox 
  791.       BackColor       =   &H00858585&
  792.       BorderStyle     =   0  'None
  793.       Height          =   375
  794.       Index           =   8
  795.       Left            =   2760
  796.       Picture         =   "Form1.frx":F8CA
  797.       ScaleHeight     =   375
  798.       ScaleWidth      =   495
  799.       TabIndex        =   43
  800.       Top             =   2400
  801.       Width           =   495
  802.       Begin VB.Label Letter 
  803.          Alignment       =   2  'Center
  804.          BackStyle       =   0  'Transparent
  805.          Caption         =   "H"
  806.          BeginProperty Font 
  807.             Name            =   "MS Sans Serif"
  808.             Size            =   8.25
  809.             Charset         =   178
  810.             Weight          =   700
  811.             Underline       =   0   'False
  812.             Italic          =   0   'False
  813.             Strikethrough   =   0   'False
  814.          EndProperty
  815.          ForeColor       =   &H000000C0&
  816.          Height          =   255
  817.          Index           =   8
  818.          Left            =   0
  819.          TabIndex        =   44
  820.          Top             =   60
  821.          Width           =   375
  822.       End
  823.    End
  824.    Begin VB.PictureBox LetterBox 
  825.       BackColor       =   &H00858585&
  826.       BorderStyle     =   0  'None
  827.       Height          =   375
  828.       Index           =   7
  829.       Left            =   2280
  830.       Picture         =   "Form1.frx":10044
  831.       ScaleHeight     =   375
  832.       ScaleWidth      =   495
  833.       TabIndex        =   45
  834.       Top             =   2400
  835.       Width           =   495
  836.       Begin VB.Label Letter 
  837.          Alignment       =   2  'Center
  838.          BackStyle       =   0  'Transparent
  839.          Caption         =   "G"
  840.          BeginProperty Font 
  841.             Name            =   "MS Sans Serif"
  842.             Size            =   8.25
  843.             Charset         =   178
  844.             Weight          =   700
  845.             Underline       =   0   'False
  846.             Italic          =   0   'False
  847.             Strikethrough   =   0   'False
  848.          EndProperty
  849.          ForeColor       =   &H000000C0&
  850.          Height          =   255
  851.          Index           =   7
  852.          Left            =   0
  853.          TabIndex        =   46
  854.          Top             =   60
  855.          Width           =   375
  856.       End
  857.    End
  858.    Begin VB.PictureBox LetterBox 
  859.       BackColor       =   &H00858585&
  860.       BorderStyle     =   0  'None
  861.       Height          =   375
  862.       Index           =   6
  863.       Left            =   1800
  864.       Picture         =   "Form1.frx":107BE
  865.       ScaleHeight     =   375
  866.       ScaleWidth      =   495
  867.       TabIndex        =   47
  868.       Top             =   2400
  869.       Width           =   495
  870.       Begin VB.Label Letter 
  871.          Alignment       =   2  'Center
  872.          BackStyle       =   0  'Transparent
  873.          Caption         =   "F"
  874.          BeginProperty Font 
  875.             Name            =   "MS Sans Serif"
  876.             Size            =   8.25
  877.             Charset         =   178
  878.             Weight          =   700
  879.             Underline       =   0   'False
  880.             Italic          =   0   'False
  881.             Strikethrough   =   0   'False
  882.          EndProperty
  883.          ForeColor       =   &H000000C0&
  884.          Height          =   255
  885.          Index           =   6
  886.          Left            =   0
  887.          TabIndex        =   48
  888.          Top             =   60
  889.          Width           =   375
  890.       End
  891.    End
  892.    Begin VB.PictureBox LetterBox 
  893.       BackColor       =   &H00858585&
  894.       BorderStyle     =   0  'None
  895.       Height          =   375
  896.       Index           =   5
  897.       Left            =   4200
  898.       Picture         =   "Form1.frx":10F38
  899.       ScaleHeight     =   375
  900.       ScaleWidth      =   495
  901.       TabIndex        =   49
  902.       Top             =   2040
  903.       Width           =   495
  904.       Begin VB.Label Letter 
  905.          Alignment       =   2  'Center
  906.          BackStyle       =   0  'Transparent
  907.          Caption         =   "E"
  908.          BeginProperty Font 
  909.             Name            =   "MS Sans Serif"
  910.             Size            =   8.25
  911.             Charset         =   178
  912.             Weight          =   700
  913.             Underline       =   0   'False
  914.             Italic          =   0   'False
  915.             Strikethrough   =   0   'False
  916.          EndProperty
  917.          ForeColor       =   &H000000C0&
  918.          Height          =   255
  919.          Index           =   5
  920.          Left            =   0
  921.          TabIndex        =   50
  922.          Top             =   60
  923.          Width           =   375
  924.       End
  925.    End
  926.    Begin VB.PictureBox LetterBox 
  927.       BackColor       =   &H00858585&
  928.       BorderStyle     =   0  'None
  929.       Height          =   375
  930.       Index           =   4
  931.       Left            =   3720
  932.       Picture         =   "Form1.frx":116B2
  933.       ScaleHeight     =   375
  934.       ScaleWidth      =   495
  935.       TabIndex        =   51
  936.       Top             =   2040
  937.       Width           =   495
  938.       Begin VB.Label Letter 
  939.          Alignment       =   2  'Center
  940.          BackStyle       =   0  'Transparent
  941.          Caption         =   "D"
  942.          BeginProperty Font 
  943.             Name            =   "MS Sans Serif"
  944.             Size            =   8.25
  945.             Charset         =   178
  946.             Weight          =   700
  947.             Underline       =   0   'False
  948.             Italic          =   0   'False
  949.             Strikethrough   =   0   'False
  950.          EndProperty
  951.          ForeColor       =   &H000000C0&
  952.          Height          =   255
  953.          Index           =   4
  954.          Left            =   0
  955.          TabIndex        =   52
  956.          Top             =   60
  957.          Width           =   375
  958.       End
  959.    End
  960.    Begin VB.PictureBox LetterBox 
  961.       BackColor       =   &H00858585&
  962.       BorderStyle     =   0  'None
  963.       Height          =   375
  964.       Index           =   3
  965.       Left            =   3240
  966.       Picture         =   "Form1.frx":11E2C
  967.       ScaleHeight     =   375
  968.       ScaleWidth      =   495
  969.       TabIndex        =   53
  970.       Top             =   2040
  971.       Width           =   495
  972.       Begin VB.Label Letter 
  973.          Alignment       =   2  'Center
  974.          BackStyle       =   0  'Transparent
  975.          Caption         =   "C"
  976.          BeginProperty Font 
  977.             Name            =   "MS Sans Serif"
  978.             Size            =   8.25
  979.             Charset         =   178
  980.             Weight          =   700
  981.             Underline       =   0   'False
  982.             Italic          =   0   'False
  983.             Strikethrough   =   0   'False
  984.          EndProperty
  985.          ForeColor       =   &H000000C0&
  986.          Height          =   255
  987.          Index           =   3
  988.          Left            =   0
  989.          TabIndex        =   54
  990.          Top             =   60
  991.          Width           =   375
  992.       End
  993.    End
  994.    Begin VB.PictureBox LetterBox 
  995.       BackColor       =   &H00858585&
  996.       BorderStyle     =   0  'None
  997.       Height          =   375
  998.       Index           =   2
  999.       Left            =   2760
  1000.       Picture         =   "Form1.frx":125A6
  1001.       ScaleHeight     =   375
  1002.       ScaleWidth      =   495
  1003.       TabIndex        =   55
  1004.       Top             =   2040
  1005.       Width           =   495
  1006.       Begin VB.Label Letter 
  1007.          Alignment       =   2  'Center
  1008.          BackStyle       =   0  'Transparent
  1009.          Caption         =   "B"
  1010.          BeginProperty Font 
  1011.             Name            =   "MS Sans Serif"
  1012.             Size            =   8.25
  1013.             Charset         =   178
  1014.             Weight          =   700
  1015.             Underline       =   0   'False
  1016.             Italic          =   0   'False
  1017.             Strikethrough   =   0   'False
  1018.          EndProperty
  1019.          ForeColor       =   &H000000C0&
  1020.          Height          =   255
  1021.          Index           =   2
  1022.          Left            =   0
  1023.          TabIndex        =   56
  1024.          Top             =   60
  1025.          Width           =   375
  1026.       End
  1027.    End
  1028.    Begin VB.PictureBox LetterBox 
  1029.       BackColor       =   &H00858585&
  1030.       BorderStyle     =   0  'None
  1031.       Height          =   375
  1032.       Index           =   1
  1033.       Left            =   2280
  1034.       Picture         =   "Form1.frx":12D20
  1035.       ScaleHeight     =   375
  1036.       ScaleWidth      =   495
  1037.       TabIndex        =   57
  1038.       Top             =   2040
  1039.       Width           =   495
  1040.       Begin VB.Label Letter 
  1041.          Alignment       =   2  'Center
  1042.          BackStyle       =   0  'Transparent
  1043.          Caption         =   "A"
  1044.          BeginProperty Font 
  1045.             Name            =   "MS Sans Serif"
  1046.             Size            =   8.25
  1047.             Charset         =   178
  1048.             Weight          =   700
  1049.             Underline       =   0   'False
  1050.             Italic          =   0   'False
  1051.             Strikethrough   =   0   'False
  1052.          EndProperty
  1053.          ForeColor       =   &H000000C0&
  1054.          Height          =   255
  1055.          Index           =   1
  1056.          Left            =   0
  1057.          TabIndex        =   58
  1058.          Top             =   60
  1059.          Width           =   375
  1060.       End
  1061.    End
  1062.    Begin VB.ComboBox PlatformsDt 
  1063.       Appearance      =   0  'Flat
  1064.       Height          =   315
  1065.       Index           =   0
  1066.       ItemData        =   "Form1.frx":1349A
  1067.       Left            =   360
  1068.       List            =   "Form1.frx":134AA
  1069.       Style           =   2  'Dropdown List
  1070.       TabIndex        =   70
  1071.       Top             =   3480
  1072.       Visible         =   0   'False
  1073.       Width           =   495
  1074.    End
  1075.    Begin VB.ComboBox PlatformsDt 
  1076.       Appearance      =   0  'Flat
  1077.       Height          =   315
  1078.       Index           =   1
  1079.       ItemData        =   "Form1.frx":13532
  1080.       Left            =   840
  1081.       List            =   "Form1.frx":13542
  1082.       Style           =   2  'Dropdown List
  1083.       TabIndex        =   69
  1084.       Top             =   3480
  1085.       Visible         =   0   'False
  1086.       Width           =   495
  1087.    End
  1088.    Begin VB.PictureBox PlatBox 
  1089.       BackColor       =   &H00858585&
  1090.       BorderStyle     =   0  'None
  1091.       Height          =   375
  1092.       Index           =   0
  1093.       Left            =   240
  1094.       Picture         =   "Form1.frx":135BA
  1095.       ScaleHeight     =   375
  1096.       ScaleWidth      =   1215
  1097.       TabIndex        =   67
  1098.       Top             =   2040
  1099.       Width           =   1215
  1100.       Begin VB.Label PlatformsLBL 
  1101.          Alignment       =   2  'Center
  1102.          BackStyle       =   0  'Transparent
  1103.          Caption         =   "PSP"
  1104.          BeginProperty Font 
  1105.             Name            =   "MS Sans Serif"
  1106.             Size            =   8.25
  1107.             Charset         =   178
  1108.             Weight          =   700
  1109.             Underline       =   0   'False
  1110.             Italic          =   0   'False
  1111.             Strikethrough   =   0   'False
  1112.          EndProperty
  1113.          ForeColor       =   &H000000C0&
  1114.          Height          =   255
  1115.          Index           =   0
  1116.          Left            =   0
  1117.          TabIndex        =   68
  1118.          Top             =   60
  1119.          Width           =   1095
  1120.       End
  1121.    End
  1122.    Begin VB.PictureBox LetterBox 
  1123.       BackColor       =   &H00858585&
  1124.       BorderStyle     =   0  'None
  1125.       Height          =   375
  1126.       Index           =   0
  1127.       Left            =   1800
  1128.       Picture         =   "Form1.frx":14994
  1129.       ScaleHeight     =   375
  1130.       ScaleWidth      =   495
  1131.       TabIndex        =   59
  1132.       Top             =   2040
  1133.       Width           =   495
  1134.       Begin VB.Label Letter 
  1135.          Alignment       =   2  'Center
  1136.          BackStyle       =   0  'Transparent
  1137.          Caption         =   "0-9"
  1138.          BeginProperty Font 
  1139.             Name            =   "MS Sans Serif"
  1140.             Size            =   8.25
  1141.             Charset         =   178
  1142.             Weight          =   700
  1143.             Underline       =   0   'False
  1144.             Italic          =   0   'False
  1145.             Strikethrough   =   0   'False
  1146.          EndProperty
  1147.          ForeColor       =   &H000000C0&
  1148.          Height          =   255
  1149.          Index           =   0
  1150.          Left            =   0
  1151.          TabIndex        =   60
  1152.          Top             =   60
  1153.          Width           =   375
  1154.       End
  1155.    End
  1156.    Begin VB.TextBox HeaderOfGames 
  1157.       Height          =   375
  1158.       Left            =   1440
  1159.       MultiLine       =   -1  'True
  1160.       TabIndex        =   0
  1161.       Text            =   "Form1.frx":1510E
  1162.       Top             =   4800
  1163.       Visible         =   0   'False
  1164.       Width           =   2895
  1165.    End
  1166.    Begin VB.ListBox GamesList 
  1167.       Height          =   1620
  1168.       Left            =   1560
  1169.       TabIndex        =   1
  1170.       Top             =   5760
  1171.       Visible         =   0   'False
  1172.       Width           =   1815
  1173.    End
  1174.    Begin VB.PictureBox Picture1 
  1175.       BackColor       =   &H00858585&
  1176.       BorderStyle     =   0  'None
  1177.       Height          =   2655
  1178.       Left            =   0
  1179.       ScaleHeight     =   2655
  1180.       ScaleWidth      =   4935
  1181.       TabIndex        =   71
  1182.       Top             =   1500
  1183.       Width           =   4935
  1184.       Begin VB.Label GamesCount 
  1185.          AutoSize        =   -1  'True
  1186.          BackStyle       =   0  'Transparent
  1187.          Caption         =   "All games : 0"
  1188.          Height          =   195
  1189.          Left            =   3720
  1190.          TabIndex        =   79
  1191.          Top             =   2400
  1192.          Width           =   900
  1193.       End
  1194.       Begin VB.Label Label1 
  1195.          AutoSize        =   -1  'True
  1196.          BackStyle       =   0  'Transparent
  1197.          Caption         =   "Platforms"
  1198.          BeginProperty Font 
  1199.             Name            =   "MS Sans Serif"
  1200.             Size            =   9.75
  1201.             Charset         =   178
  1202.             Weight          =   700
  1203.             Underline       =   0   'False
  1204.             Italic          =   0   'False
  1205.             Strikethrough   =   0   'False
  1206.          EndProperty
  1207.          ForeColor       =   &H00FFFFFF&
  1208.          Height          =   240
  1209.          Index           =   1
  1210.          Left            =   240
  1211.          TabIndex        =   78
  1212.          Top             =   240
  1213.          Width           =   975
  1214.       End
  1215.       Begin VB.Label Label1 
  1216.          AutoSize        =   -1  'True
  1217.          BackStyle       =   0  'Transparent
  1218.          Caption         =   "First letter"
  1219.          BeginProperty Font 
  1220.             Name            =   "MS Sans Serif"
  1221.             Size            =   9.75
  1222.             Charset         =   178
  1223.             Weight          =   700
  1224.             Underline       =   0   'False
  1225.             Italic          =   0   'False
  1226.             Strikethrough   =   0   'False
  1227.          EndProperty
  1228.          ForeColor       =   &H00FFFFFF&
  1229.          Height          =   240
  1230.          Index           =   0
  1231.          Left            =   1800
  1232.          TabIndex        =   77
  1233.          Top             =   240
  1234.          Width           =   1035
  1235.       End
  1236.    End
  1237.    Begin VB.ListBox GameNList 
  1238.       Appearance      =   0  'Flat
  1239.       BackColor       =   &H00404040&
  1240.       BeginProperty Font 
  1241.          Name            =   "MS Sans Serif"
  1242.          Size            =   8.25
  1243.          Charset         =   178
  1244.          Weight          =   700
  1245.          Underline       =   0   'False
  1246.          Italic          =   0   'False
  1247.          Strikethrough   =   0   'False
  1248.       EndProperty
  1249.       ForeColor       =   &H0000FFFF&
  1250.       Height          =   4125
  1251.       Left            =   120
  1252.       TabIndex        =   76
  1253.       Top             =   4320
  1254.       Width           =   4695
  1255.    End
  1256.    Begin VB.Label Label2 
  1257.       AutoSize        =   -1  'True
  1258.       BackStyle       =   0  'Transparent
  1259.       Caption         =   "Connecting ..."
  1260.       BeginProperty Font 
  1261.          Name            =   "Arial"
  1262.          Size            =   9.75
  1263.          Charset         =   178
  1264.          Weight          =   700
  1265.          Underline       =   0   'False
  1266.          Italic          =   0   'False
  1267.          Strikethrough   =   0   'False
  1268.       EndProperty
  1269.       ForeColor       =   &H0000FFFF&
  1270.       Height          =   240
  1271.       Index           =   5
  1272.       Left            =   9600
  1273.       TabIndex        =   82
  1274.       Top             =   120
  1275.       Visible         =   0   'False
  1276.       Width           =   1320
  1277.    End
  1278.    Begin VB.Line Line1 
  1279.       X1              =   4920
  1280.       X2              =   11040
  1281.       Y1              =   8415
  1282.       Y2              =   8415
  1283.    End
  1284.    Begin VB.Label Stat 
  1285.       Appearance      =   0  'Flat
  1286.       BackColor       =   &H00404040&
  1287.       BorderStyle     =   1  'Fixed Single
  1288.       ForeColor       =   &H00FFFFFF&
  1289.       Height          =   255
  1290.       Index           =   3
  1291.       Left            =   6120
  1292.       TabIndex        =   5
  1293.       Top             =   8520
  1294.       Width           =   4935
  1295.    End
  1296.    Begin VB.Label Stat 
  1297.       Appearance      =   0  'Flat
  1298.       BackColor       =   &H00404040&
  1299.       BorderStyle     =   1  'Fixed Single
  1300.       ForeColor       =   &H00FFFFFF&
  1301.       Height          =   255
  1302.       Index           =   2
  1303.       Left            =   1920
  1304.       TabIndex        =   4
  1305.       Top             =   8520
  1306.       Width           =   4215
  1307.    End
  1308.    Begin VB.Label Stat 
  1309.       Appearance      =   0  'Flat
  1310.       BackColor       =   &H00404040&
  1311.       BorderStyle     =   1  'Fixed Single
  1312.       Caption         =   " Ready"
  1313.       ForeColor       =   &H00FFFFFF&
  1314.       Height          =   255
  1315.       Index           =   1
  1316.       Left            =   240
  1317.       TabIndex        =   3
  1318.       Top             =   8520
  1319.       Width           =   1695
  1320.    End
  1321.    Begin VB.Label Label2 
  1322.       AutoSize        =   -1  'True
  1323.       BackStyle       =   0  'Transparent
  1324.       Caption         =   "Cheats Codes Games Database"
  1325.       BeginProperty Font 
  1326.          Name            =   "Arial"
  1327.          Size            =   18
  1328.          Charset         =   178
  1329.          Weight          =   700
  1330.          Underline       =   0   'False
  1331.          Italic          =   0   'False
  1332.          Strikethrough   =   0   'False
  1333.       EndProperty
  1334.       ForeColor       =   &H000000FF&
  1335.       Height          =   435
  1336.       Index           =   1
  1337.       Left            =   5520
  1338.       TabIndex        =   81
  1339.       Top             =   645
  1340.       Width           =   5355
  1341.    End
  1342.    Begin VB.Label Label2 
  1343.       AutoSize        =   -1  'True
  1344.       BackStyle       =   0  'Transparent
  1345.       Caption         =   "Find your game via internet"
  1346.       BeginProperty Font 
  1347.          Name            =   "Arial"
  1348.          Size            =   18
  1349.          Charset         =   178
  1350.          Weight          =   700
  1351.          Underline       =   0   'False
  1352.          Italic          =   0   'False
  1353.          Strikethrough   =   0   'False
  1354.       EndProperty
  1355.       ForeColor       =   &H00FFFFFF&
  1356.       Height          =   435
  1357.       Index           =   0
  1358.       Left            =   1920
  1359.       TabIndex        =   80
  1360.       Top             =   300
  1361.       Width           =   4725
  1362.    End
  1363.    Begin VB.Image Image5 
  1364.       Height          =   90
  1365.       Left            =   60
  1366.       Picture         =   "Form1.frx":15134
  1367.       Top             =   4185
  1368.       Width           =   4815
  1369.    End
  1370.    Begin VB.Image Image3 
  1371.       Height          =   330
  1372.       Left            =   0
  1373.       Picture         =   "Form1.frx":1680E
  1374.       Top             =   1200
  1375.       Width           =   4200
  1376.    End
  1377.    Begin VB.Image Image2 
  1378.       Height          =   225
  1379.       Left            =   4920
  1380.       Picture         =   "Form1.frx":1B080
  1381.       Top             =   1200
  1382.       Width           =   3090
  1383.    End
  1384.    Begin VB.Image Image1 
  1385.       Height          =   1185
  1386.       Left            =   0
  1387.       Picture         =   "Form1.frx":1D516
  1388.       Top             =   0
  1389.       Width           =   11100
  1390.    End
  1391.    Begin VB.Label Stat 
  1392.       Appearance      =   0  'Flat
  1393.       BackColor       =   &H00404040&
  1394.       BorderStyle     =   1  'Fixed Single
  1395.       ForeColor       =   &H00FFFFFF&
  1396.       Height          =   255
  1397.       Index           =   0
  1398.       Left            =   0
  1399.       TabIndex        =   2
  1400.       Top             =   8520
  1401.       Width           =   255
  1402.    End
  1403.    Begin VB.Image Image4 
  1404.       Height          =   330
  1405.       Index           =   0
  1406.       Left            =   4200
  1407.       Picture         =   "Form1.frx":4826C
  1408.       Stretch         =   -1  'True
  1409.       Top             =   1200
  1410.       Width           =   735
  1411.    End
  1412. End
  1413. Attribute VB_Name = "frmMain"
  1414. Attribute VB_GlobalNameSpace = False
  1415. Attribute VB_Creatable = False
  1416. Attribute VB_PredeclaredId = True
  1417. Attribute VB_Exposed = False
  1418.  
  1419. ' this program can read Cheats Codes from [ Cheatcc.com ]
  1420. ' Written by , Zaid Markabi
  1421. ' Website : http://yazanmarkabi.webs.com/
  1422. ' Email : ZaidMarkabi@yahoo.com
  1423.  
  1424. Function GetFile(URL As String, SaveTo As String) As String
  1425. On Error GoTo Err:
  1426. Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
  1427.  
  1428.  Dim d() As Byte
  1429.  
  1430.  WinHttpReq.Open "GET", URL, False
  1431.  WinHttpReq.Send
  1432.  
  1433.  GetFile = WinHttpReq.StatusText
  1434.  
  1435. Open SaveTo For Output As #1
  1436. Close #1
  1437.  
  1438.  Open SaveTo For Binary As #1
  1439.  d() = WinHttpReq.ResponseBody
  1440.  Put #1, 1, d()
  1441.  Close #1
  1442.  
  1443.  Set WinHttpReq = Nothing
  1444. Exit Function
  1445. Err:
  1446. MsgBox "Error , Try again..."
  1447. Err.Clear
  1448. Resume Next
  1449. End Function
  1450.  
  1451. Private Sub Form_Load()
  1452. PlatformsLBL_Click (0)
  1453. Unload frmSplash
  1454. End Sub
  1455.  
  1456. Private Sub Form_Unload(Cancel As Integer)
  1457. End
  1458. End Sub
  1459.  
  1460. Private Sub GameNList_DblClick()
  1461. Stat(1).Caption = " Connecting ..."
  1462. Stat(3).Caption = " " + PlatformsDt(1).List(PlatformsDt(1).ListIndex) + GamesList.List(GameNList.ListIndex)
  1463. If Len(Stat(3).Caption) > 60 Then
  1464. Stat(3).Caption = Left(Stat(3).Caption, 54) + "~.html"
  1465. End If
  1466. DoEvents
  1467.  
  1468. GetFile PlatformsDt(1).List(PlatformsDt(1).ListIndex) + GamesList.List(GameNList.ListIndex), App.Path + "\Temp.txt"
  1469.  
  1470. Stat(2).Caption = " " + GameNList.List(GameNList.ListIndex)
  1471. Stat(1).Caption = " Reading ..."
  1472. DoEvents
  1473.  
  1474. Dim ByteTemp As Byte
  1475. Dim TextTemp As String
  1476. Dim i As Long
  1477. Open App.Path + "\Temp.txt" For Binary As #1
  1478. Do While EOF(1) = False
  1479. i = i + 1
  1480. Get #1, i, ByteTemp
  1481. TextTemp = TextTemp + Chr(ByteTemp)
  1482. Loop
  1483. Close #1
  1484. CheatsText.Text = TextTemp
  1485.  
  1486. i = InStr(1, TextTemp, "<dt><li>")
  1487. If i = 0 Then Exit Sub
  1488. TextTemp = Right(TextTemp, Len(TextTemp) - i - 7)
  1489.  
  1490. CheatsText.Text = TextTemp
  1491.  
  1492. i = InStr(1, TextTemp, "</div>")
  1493. If i = 0 Then Exit Sub
  1494. TextTemp = Left(TextTemp, i - 1)
  1495.  
  1496. TextTemp = Trim(TextTemp)
  1497.  
  1498. Open App.Path + "\Temp.txt" For Output As #1
  1499. Close #1
  1500.  
  1501. TextTemp = "ò ò " + TextTemp
  1502. TextTemp = Replace(TextTemp, "<b>", "")
  1503. TextTemp = Replace(TextTemp, "</b>", "")
  1504. TextTemp = Replace(TextTemp, "<B>", "")
  1505. TextTemp = Replace(TextTemp, "</B>", "")
  1506. TextTemp = Replace(TextTemp, "<p>", "")
  1507. TextTemp = Replace(TextTemp, "</p>", "")
  1508. TextTemp = Replace(TextTemp, "<P>", "")
  1509. TextTemp = Replace(TextTemp, "</P>", "")
  1510. TextTemp = Replace(TextTemp, "<br>", "")
  1511. TextTemp = Replace(TextTemp, "</br>", "")
  1512. TextTemp = Replace(TextTemp, "<i>", "")
  1513. TextTemp = Replace(TextTemp, "</i>", "")
  1514. TextTemp = Replace(TextTemp, "<ul>", "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
  1515. TextTemp = Replace(TextTemp, "</ul>", "")
  1516. TextTemp = Replace(TextTemp, "<dt>", "ò ")
  1517. TextTemp = Replace(TextTemp, "</dt>", "")
  1518. TextTemp = Replace(TextTemp, "<li>", "ò ")
  1519. TextTemp = Replace(TextTemp, "</li>", "")
  1520. TextTemp = Replace(TextTemp, "<hr>", "")
  1521. TextTemp = Replace(TextTemp, "</hr>", "")
  1522. TextTemp = Replace(TextTemp, "<center> ", "ò ò ")
  1523. TextTemp = Replace(TextTemp, "<center>", "")
  1524. TextTemp = Replace(TextTemp, "</center>", "")
  1525. TextTemp = Replace(TextTemp, "<table border=5>", "")
  1526. TextTemp = Replace(TextTemp, "</table>", "")
  1527. TextTemp = Replace(TextTemp, "<TR><TD>", "ò ")
  1528. TextTemp = Replace(TextTemp, "<tr><td>", "ò ")
  1529. TextTemp = Replace(TextTemp, "<TR>", "")
  1530. TextTemp = Replace(TextTemp, "</TR>", "")
  1531. TextTemp = Replace(TextTemp, "<tr>", "")
  1532. TextTemp = Replace(TextTemp, "</tr>", "")
  1533. TextTemp = Replace(TextTemp, "<TD>", "")
  1534. TextTemp = Replace(TextTemp, "</TD>", "")
  1535. TextTemp = Replace(TextTemp, "<td>", "")
  1536. TextTemp = Replace(TextTemp, "</td>", "")
  1537. TextTemp = Replace(TextTemp, "<table border=1 cellpadding=5>", "")
  1538. TextTemp = Replace(TextTemp, "<font color=", "")
  1539. TextTemp = Replace(TextTemp, "#FF0000", "")
  1540. TextTemp = Replace(TextTemp, "</font>", "")
  1541.  
  1542. TextTemp = Left(TextTemp, Len(TextTemp) - 8)
  1543.  
  1544. DoEvents
  1545.  
  1546. Open App.Path + "\Temp.txt" For Output As #1
  1547. Close #1
  1548.  
  1549. Open App.Path + "\Temp.txt" For Binary As #1
  1550. Put #1, 1, TextTemp
  1551. Close #1
  1552.  
  1553. CheatsText.Text = TextTemp
  1554.  
  1555. Stat(1).Caption = " Ready"
  1556. End Sub
  1557.  
  1558. Private Sub Letter_Click(Index As Integer)
  1559. Dim i As Long
  1560.  
  1561. For i = 0 To LetterBox.Count - 1
  1562. LetterBox(i).Picture = BtnEnbl(1).Picture
  1563. Next
  1564. LetterBox(Index).Picture = BtnEnbl(0).Picture
  1565.  
  1566. Dim x As String
  1567. Dim ReadTemp As String
  1568.  
  1569. x = Letter(Index).Caption
  1570. If x = "0-9" Then x = "0"
  1571.  
  1572. Stat(1).Caption = " Connecting ..."
  1573. Stat(3).Caption = " " + PlatformsDt(0).List(PlatformsDt(0).ListIndex) + x + ".html"
  1574. DoEvents
  1575.  
  1576. GetFile PlatformsDt(0).List(PlatformsDt(0).ListIndex) + x + ".html", App.Path + "\Temp.txt"
  1577.  
  1578. Stat(1).Caption = " Reading ..."
  1579. DoEvents
  1580.  
  1581. Dim ByteTemp As Byte
  1582. Dim TextTemp As String
  1583. Open App.Path + "\Temp.txt" For Binary As #1
  1584. Do While EOF(1) = False
  1585. i = i + 1
  1586. Get #1, i, ByteTemp
  1587. TextTemp = TextTemp + Chr(ByteTemp)
  1588. Loop
  1589. Close #1
  1590. ReadTemp = TextTemp
  1591.  
  1592. i = InStr(1, ReadTemp, HeaderOfGames.Text)
  1593. If i = 0 Then Exit Sub
  1594. ReadTemp = Right(ReadTemp, Len(ReadTemp) - i - Len(HeaderOfGames.Text) + 1)
  1595.  
  1596. i = InStr(1, ReadTemp, "</div>")
  1597. If i = 0 Then Exit Sub
  1598. ReadTemp = Left(ReadTemp, i - 1)
  1599.  
  1600. ReadTemp = Trim(ReadTemp) + Space(6)
  1601.  
  1602. ' Exit Sub
  1603.  
  1604. Dim GetLink As String
  1605. Dim FindLink As Boolean
  1606. Dim GetName As String
  1607. Dim FindName As Boolean
  1608.  
  1609. GamesList.Clear
  1610. GameNList.Clear
  1611.  
  1612. For i = 1 To Len(ReadTemp) - 5
  1613. x = Mid(ReadTemp, i, 5)
  1614.  
  1615. If FindLink = True Then
  1616. GetLink = GetLink + Mid(ReadTemp, i, 1)
  1617. End If
  1618.  
  1619. If FindName = True Then
  1620. GetName = GetName + Mid(ReadTemp, i, 1)
  1621. End If
  1622.  
  1623. If x = "href=" Then FindLink = True
  1624.  
  1625. If x = "</a><" Then
  1626. FindName = False
  1627. GameNList.AddItem Left(GetName, Len(GetName) - 1)
  1628. GetName = ""
  1629. End If
  1630.  
  1631. If Left(x, 1) = ">" And FindLink = True Then
  1632. FindLink = False
  1633. FindName = True
  1634. GetLink = Right(GetLink, Len(GetLink) - 5)
  1635. GetLink = Left(GetLink, Len(GetLink) - 2)
  1636. GamesList.AddItem GetLink
  1637. GetLink = ""
  1638. End If
  1639.  
  1640. Next
  1641.  
  1642. Stat(1).Caption = " Ready"
  1643. DoEvents
  1644.  
  1645. GamesCount.Caption = "All games : " + Format(GamesList.ListCount)
  1646. End Sub
  1647.  
  1648. Private Sub PlatformsLBL_Click(Index As Integer)
  1649. Dim i As Integer
  1650.  
  1651. For i = 0 To PlatBox.Count - 1
  1652. PlatBox(i).Picture = BtnEnbl(2).Picture
  1653. Next
  1654. PlatBox(Index).Picture = BtnEnbl(3).Picture
  1655.  
  1656. PlatformsDt(0).ListIndex = Index
  1657. PlatformsDt(1).ListIndex = Index
  1658.  
  1659. Letter_Click (0)
  1660. End Sub
  1661.  
  1662. Private Sub Stat_Change(Index As Integer)
  1663. If Stat(1).Caption = " Connecting ..." Then Label2(5).Visible = True
  1664. If Stat(1).Caption = " Ready" Then Label2(5).Visible = False
  1665. End Sub
  1666.