home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / thrmde / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-02  |  1.0 KB  |  40 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3135
  5.    ClientLeft      =   2925
  6.    ClientTop       =   3690
  7.    ClientWidth     =   6825
  8.    Height          =   3540
  9.    Left            =   2865
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   3135
  13.    ScaleWidth      =   6825
  14.    Top             =   3345
  15.    Width           =   6945
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Press for Thermometer"
  18.       Height          =   465
  19.       Left            =   1905
  20.       TabIndex        =   0
  21.       Top             =   1335
  22.       Width           =   3030
  23.    End
  24. Option Explicit
  25. Sub Command1_Click ()
  26.     Dim i, j As Integer
  27.     Call ThermInitPercent(100, "Converting Invoice Table" + Chr(10) + Chr(10) + "Please wait...")
  28.     For i = 1 To 100
  29.         For j = 1 To 1000
  30.             DoEvents
  31.         Next j
  32.         Call ThermTick
  33.         DoEvents
  34.     Next i
  35.     Call ThermClose
  36. End Sub
  37. Sub Form_Load ()
  38.     Show
  39. End Sub
  40.