home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples4 / ch05 / timwaste.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-15  |  798 b   |  33 lines
  1. VERSION 2.00
  2. Begin Form frmWaste 
  3.    Caption         =   "Time Waster"
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   3675
  8.    Height          =   2475
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2070
  12.    ScaleWidth      =   3675
  13.    Top             =   1140
  14.    Width           =   3795
  15.    Begin TextBox Text1 
  16.       Height          =   315
  17.       Left            =   540
  18.       TabIndex        =   0
  19.       Text            =   "Text1"
  20.       Top             =   600
  21.       Width           =   2235
  22.    End
  23. Option Explicit
  24. Sub Text1_Change ()
  25.     Static z%
  26.     Dim l&
  27.     If z% = 0 Then
  28.         For l& = 1 To 10000000
  29.         Next l&
  30.         z% = 1
  31.     End If
  32. End Sub
  33.