home *** CD-ROM | disk | FTP | other *** search
/ Building OCXs / Building_OCXs_Que_1995.iso / code / ch10 / timer.frm < prev    next >
Text File  |  1995-01-04  |  1KB  |  55 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4950
  5.    ClientLeft      =   1635
  6.    ClientTop       =   1680
  7.    ClientWidth     =   6720
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   1
  11.       weight          =   400
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   5355
  18.    Left            =   1575
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   4950
  21.    ScaleWidth      =   6720
  22.    Top             =   1335
  23.    Width           =   6840
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Command1"
  26.       Height          =   1095
  27.       Left            =   1440
  28.       TabIndex        =   0
  29.       Top             =   120
  30.       Width           =   3495
  31.    End
  32.    Begin TimerLib.Timer Timer1 
  33.       Left            =   2520
  34.       Top             =   1320
  35.       _version        =   65536
  36.       _extentx        =   2143
  37.       _extenty        =   2355
  38.       _stockprops     =   64
  39.    End
  40. End
  41. Attribute VB_Name = "Form1"
  42. Attribute VB_Creatable = False
  43. Attribute VB_Exposed = False
  44. Private Sub Command1_Click()
  45.     Timer1.AboutBox
  46. End Sub
  47.  
  48.  
  49.  
  50. Private Sub Timer1_Timer()
  51.     MsgBox "Timer Fire"
  52. End Sub
  53.  
  54.  
  55.