home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dragan1r / frmtest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-14  |  1.0 KB  |  37 lines
  1. VERSION 5.00
  2. Object = "{AA36F3B6-38AA-11D3-80D9-444553540001}#2.0#0"; "STATBAR.OCX"
  3. Begin VB.Form frmTest 
  4.    Caption         =   "StatBar Control"
  5.    ClientHeight    =   1485
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6105
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   99
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   407
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin StatBar.StatusBar StatusBar1 
  15.       Height          =   765
  16.       Left            =   675
  17.       Top             =   375
  18.       Width           =   4815
  19.       _extentx        =   8493
  20.       _extenty        =   1349
  21.       value           =   5000
  22.    End
  23. Attribute VB_Name = "frmTest"
  24. Attribute VB_GlobalNameSpace = False
  25. Attribute VB_Creatable = False
  26. Attribute VB_PredeclaredId = True
  27. Attribute VB_Exposed = False
  28. Option Explicit
  29. Const MAX = 10000
  30. Private Sub Form_DblClick()
  31. Dim i As Long
  32.     StatusBar1.Maximum = MAX
  33.     For i = 0 To MAX
  34.         StatusBar1.Value = i
  35.     Next i
  36. End Sub
  37.