home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form frmWatcher
- Caption = "dwWatcher"
- ClientHeight = 2505
- ClientLeft = 1095
- ClientTop = 1515
- ClientWidth = 4395
- Height = 2910
- Left = 1035
- LinkTopic = "Form1"
- ScaleHeight = 2505
- ScaleWidth = 4395
- Top = 1170
- Visible = 0 'False
- Width = 4515
- Begin VB.Timer Timer1
- Interval = 100
- Left = 3780
- Top = 180
- End
- Begin VB.Label Label4
- Caption = "www.desaware.com"
- Height = 195
- Index = 3
- Left = 120
- TabIndex = 6
- Top = 2220
- Width = 4215
- End
- Begin VB.Label Label4
- Caption = "(408) 377-4770, fax: (408) 371-3530"
- Height = 195
- Index = 2
- Left = 120
- TabIndex = 5
- Top = 1980
- Width = 4215
- End
- Begin VB.Label Label4
- Caption = "1100 E. Hamilton Ave. #4, Campbell, CA 95008"
- Height = 195
- Index = 1
- Left = 120
- TabIndex = 4
- Top = 1740
- Width = 4215
- End
- Begin VB.Label Label4
- Caption = "Desaware"
- Height = 195
- Index = 0
- Left = 120
- TabIndex = 3
- Top = 1500
- Width = 4215
- End
- Begin VB.Label Label3
- Caption = "Copyright (c) 1997, by Desaware - All Rights Reserved"
- Height = 255
- Left = 120
- TabIndex = 2
- Top = 1080
- Width = 4215
- End
- Begin VB.Label Label2
- Caption = "General purpose state machine for background operations."
- Height = 255
- Left = 120
- TabIndex = 1
- Top = 780
- Width = 4215
- End
- Begin VB.Line Line1
- BorderWidth = 3
- X1 = 120
- X2 = 4260
- Y1 = 660
- Y2 = 660
- End
- Begin VB.Label Label1
- Caption = "Desaware"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Arial"
- Size = 21.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 435
- Left = 120
- TabIndex = 0
- Top = 180
- Width = 3135
- End
- Attribute VB_Name = "frmWatcher"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- ' Copyright
- 1997 by Desaware Inc. All Rights Reserved
- Private Sub Form_Unload(Cancel As Integer)
- Set frmptr = Nothing ' Free object
- End Sub
- ' Call the timer event for each object
- Private Sub Timer1_Timer()
- Dim obj As Object
- For Each obj In WatchCollection
- obj.TimerEvent
- Next obj
- End Sub
-