home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / status_1 / frmtest.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-07-15  |  1.1 KB  |  38 lines
  1. VERSION 5.00
  2. Object = "{AA36F3B6-38AA-11D3-80D9-444553540001}#4.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           =   4740
  19.       _ExtentX        =   8361
  20.       _ExtentY        =   1349
  21.       Minimum         =   -100
  22.       Value           =   -100
  23.    End
  24. Attribute VB_Name = "frmTest"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = False
  27. Attribute VB_PredeclaredId = True
  28. Attribute VB_Exposed = False
  29. Option Explicit
  30. Const MAX = 10000
  31. Private Sub Form_DblClick()
  32. Dim i As Long
  33.     StatusBar1.Maximum = MAX
  34.     For i = 0 To MAX
  35.         StatusBar1.Value = i
  36.     Next i
  37. End Sub
  38.