home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1090.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-28  |  4.4 KB  |  146 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3150
  5.    ClientLeft      =   45
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    ControlBox      =   0   'False
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3150
  14.    ScaleWidth      =   4680
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Timer Timer2 
  17.       Interval        =   3000
  18.       Left            =   3720
  19.       Top             =   0
  20.    End
  21.    Begin VB.PictureBox Picture1 
  22.       BorderStyle     =   0  'None
  23.       ClipControls    =   0   'False
  24.       Enabled         =   0   'False
  25.       Height          =   735
  26.       Left            =   1590
  27.       Picture         =   "Form1.frx":030A
  28.       ScaleHeight     =   735
  29.       ScaleWidth      =   1500
  30.       TabIndex        =   1
  31.       Top             =   2280
  32.       Width           =   1500
  33.       Begin VB.Image Skin 
  34.          Height          =   735
  35.          Left            =   0
  36.          Picture         =   "Form1.frx":0A63
  37.          Top             =   0
  38.          Width           =   1455
  39.       End
  40.       Begin VB.Image Pupil 
  41.          Height          =   375
  42.          Index           =   0
  43.          Left            =   240
  44.          Picture         =   "Form1.frx":135F
  45.          Top             =   240
  46.          Width           =   375
  47.       End
  48.       Begin VB.Image Pupil 
  49.          Height          =   375
  50.          Index           =   1
  51.          Left            =   960
  52.          Picture         =   "Form1.frx":17A4
  53.          Top             =   240
  54.          Width           =   375
  55.       End
  56.    End
  57.    Begin VB.Timer Timer1 
  58.       Interval        =   100
  59.       Left            =   4200
  60.       Top             =   0
  61.    End
  62.    Begin VB.Image Image1 
  63.       Height          =   735
  64.       Index           =   3
  65.       Left            =   0
  66.       Picture         =   "Form1.frx":1BE9
  67.       Top             =   2280
  68.       Visible         =   0   'False
  69.       Width           =   1455
  70.    End
  71.    Begin VB.Image Image1 
  72.       Height          =   735
  73.       Index           =   2
  74.       Left            =   0
  75.       Picture         =   "Form1.frx":266A
  76.       Top             =   2040
  77.       Visible         =   0   'False
  78.       Width           =   1455
  79.    End
  80.    Begin VB.Image Image1 
  81.       Height          =   735
  82.       Index           =   1
  83.       Left            =   0
  84.       Picture         =   "Form1.frx":306E
  85.       Top             =   1800
  86.       Visible         =   0   'False
  87.       Width           =   1455
  88.    End
  89.    Begin VB.Image Image1 
  90.       Height          =   735
  91.       Index           =   0
  92.       Left            =   0
  93.       Picture         =   "Form1.frx":39D8
  94.       Top             =   1560
  95.       Visible         =   0   'False
  96.       Width           =   1455
  97.    End
  98.    Begin VB.Label Window 
  99.       Alignment       =   2  'Center
  100.       BackColor       =   &H00FFFFFF&
  101.       Height          =   435
  102.       Left            =   330
  103.       TabIndex        =   3
  104.       Top             =   1200
  105.       Width           =   4005
  106.    End
  107.    Begin VB.Label Label2 
  108.       AutoSize        =   -1  'True
  109.       BackColor       =   &H00FFFFFF&
  110.       Caption         =   "Window under cursor:"
  111.       BeginProperty Font 
  112.          Name            =   "MS Sans Serif"
  113.          Size            =   8.25
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       Height          =   195
  121.       Left            =   1560
  122.       TabIndex        =   2
  123.       Top             =   960
  124.       Width           =   1875
  125.    End
  126.    Begin VB.Shape Shape4 
  127.       BorderColor     =   &H00FFFFFF&
  128.       FillColor       =   &H00FFFFFF&
  129.       FillStyle       =   0  'Solid
  130.       Height          =   495
  131.       Left            =   3360
  132.       Shape           =   3  'Circle
  133.       Top             =   1880
  134.       Width           =   495
  135.    End
  136.    Begin VB.Shape Shape3   End
  137.    Begin VB.Shape Shape4 
  138.       BorderColor     =   &H00FFFFFF&
  139.       FillColor       =   &H00FFFFFF&
  140.       FillStyle       =   0  'S     Left4 =   &H00FFFFFP(     =   0
  141.                                    1N6e0  'Sml&H00FFFFFP( 3  'Circle
  142.   )2piFFFFFP( 3  'b    SPrif"
  143.          Size         'Circle
  144.   SizdPgba
  145. SPrif I_i0FFFFFP(          =   & r_Is
  146.