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 / ch14 / watch.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-02-16  |  3.3 KB  |  113 lines

  1. VERSION 4.00
  2. Begin VB.Form frmWatcher 
  3.    Caption         =   "dwWatcher"
  4.    ClientHeight    =   2505
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4395
  8.    Height          =   2910
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2505
  12.    ScaleWidth      =   4395
  13.    Top             =   1170
  14.    Visible         =   0   'False
  15.    Width           =   4515
  16.    Begin VB.Timer Timer1 
  17.       Interval        =   100
  18.       Left            =   3780
  19.       Top             =   180
  20.    End
  21.    Begin VB.Label Label4 
  22.       Caption         =   "www.desaware.com"
  23.       Height          =   195
  24.       Index           =   3
  25.       Left            =   120
  26.       TabIndex        =   6
  27.       Top             =   2220
  28.       Width           =   4215
  29.    End
  30.    Begin VB.Label Label4 
  31.       Caption         =   "(408) 377-4770, fax: (408) 371-3530"
  32.       Height          =   195
  33.       Index           =   2
  34.       Left            =   120
  35.       TabIndex        =   5
  36.       Top             =   1980
  37.       Width           =   4215
  38.    End
  39.    Begin VB.Label Label4 
  40.       Caption         =   "1100 E. Hamilton Ave. #4, Campbell, CA 95008"
  41.       Height          =   195
  42.       Index           =   1
  43.       Left            =   120
  44.       TabIndex        =   4
  45.       Top             =   1740
  46.       Width           =   4215
  47.    End
  48.    Begin VB.Label Label4 
  49.       Caption         =   "Desaware"
  50.       Height          =   195
  51.       Index           =   0
  52.       Left            =   120
  53.       TabIndex        =   3
  54.       Top             =   1500
  55.       Width           =   4215
  56.    End
  57.    Begin VB.Label Label3 
  58.       Caption         =   "Copyright (c) 1997, by Desaware - All Rights Reserved"
  59.       Height          =   255
  60.       Left            =   120
  61.       TabIndex        =   2
  62.       Top             =   1080
  63.       Width           =   4215
  64.    End
  65.    Begin VB.Label Label2 
  66.       Caption         =   "General purpose state machine for background operations."
  67.       Height          =   255
  68.       Left            =   120
  69.       TabIndex        =   1
  70.       Top             =   780
  71.       Width           =   4215
  72.    End
  73.    Begin VB.Line Line1 
  74.       BorderWidth     =   3
  75.       X1              =   120
  76.       X2              =   4260
  77.       Y1              =   660
  78.       Y2              =   660
  79.    End
  80.    Begin VB.Label Label1 
  81.       Caption         =   "Desaware"
  82.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  83.          Name            =   "Arial"
  84.          Size            =   21.75
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   -1  'True
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   435
  92.       Left            =   120
  93.       TabIndex        =   0
  94.       Top             =   180
  95.       Width           =   3135
  96.    End
  97. Attribute VB_Name = "frmWatcher"
  98. Attribute VB_Creatable = False
  99. Attribute VB_Exposed = False
  100. Option Explicit
  101. ' Copyright 
  102.  1997 by Desaware Inc. All Rights Reserved
  103. Private Sub Form_Unload(Cancel As Integer)
  104.     Set frmptr = Nothing    ' Free object
  105. End Sub
  106. ' Call the timer event for each object
  107. Private Sub Timer1_Timer()
  108.     Dim obj As Object
  109.     For Each obj In WatchCollection
  110.         obj.TimerEvent
  111.     Next obj
  112. End Sub
  113.