home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / inabox / clip.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  2.0 KB  |  67 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Cursor-In-A-Box Demo"
  4.    ClientHeight    =   5280
  5.    ClientLeft      =   1155
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   5805
  9.    Left            =   1095
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5280
  12.    ScaleWidth      =   7365
  13.    Top             =   1020
  14.    Width           =   7485
  15.    Begin PictureBox Picture1 
  16.       BackColor       =   &H00FFFF00&
  17.       Height          =   3165
  18.       Left            =   1365
  19.       ScaleHeight     =   3135
  20.       ScaleWidth      =   4620
  21.       TabIndex        =   0
  22.       Top             =   1095
  23.       Width           =   4650
  24.       Begin Label Label1 
  25.          AutoSize        =   -1  'True
  26.          BackStyle       =   0  'Transparent
  27.          Caption         =   "Click Here to Exit"
  28.          Height          =   195
  29.          Index           =   2
  30.          Left            =   1470
  31.          TabIndex        =   3
  32.          Top             =   2385
  33.          Width           =   1500
  34.       End
  35.       Begin Label Label1 
  36.          AutoSize        =   -1  'True
  37.          BackStyle       =   0  'Transparent
  38.          Caption         =   "See the form Load, Unload events, && BAS file."
  39.          Height          =   195
  40.          Index           =   1
  41.          Left            =   330
  42.          TabIndex        =   2
  43.          Top             =   1515
  44.          Width           =   3945
  45.       End
  46.       Begin Label Label1 
  47.          AutoSize        =   -1  'True
  48.          BackStyle       =   0  'Transparent
  49.          Caption         =   "Mouse movement is restricted in this window."
  50.          Height          =   195
  51.          Index           =   0
  52.          Left            =   345
  53.          TabIndex        =   1
  54.          Top             =   1155
  55.          Width           =   3855
  56.       End
  57.    End
  58. Sub Form_Load ()
  59.     ClipMouseMovement
  60. End Sub
  61. Sub Form_Unload (Cancel As Integer)
  62.     UnClipMouseMovement
  63. End Sub
  64. Sub Label1_Click (Index As Integer)
  65.     If Index = 2 Then Unload Me
  66. End Sub
  67.