home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch34code / 34proj04 / status.frm < prev   
Text File  |  1995-07-25  |  2KB  |  73 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Chapter 34 Project 4"
  6.    ClientHeight    =   1545
  7.    ClientLeft      =   1890
  8.    ClientTop       =   2205
  9.    ClientWidth     =   4680
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    Height          =   1980
  21.    Left            =   1830
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   1545
  26.    ScaleWidth      =   4680
  27.    Top             =   1830
  28.    Width           =   4800
  29.    Begin Threed.SSPanel Panel3D1 
  30.       Height          =   495
  31.       Left            =   240
  32.       TabIndex        =   1
  33.       Top             =   840
  34.       Width           =   4215
  35.       _Version        =   65536
  36.       _ExtentX        =   7435
  37.       _ExtentY        =   873
  38.       _StockProps     =   15
  39.       Caption         =   "Panel3D1"
  40.       FloodType       =   1
  41.    End
  42.    Begin VB.Label Label1 
  43.       BackColor       =   &H00C0C0C0&
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "Processing - Please Wait"
  46.       BeginProperty Font 
  47.          name            =   "MS Sans Serif"
  48.          charset         =   0
  49.          weight          =   700
  50.          size            =   13.5
  51.          underline       =   0   'False
  52.          italic          =   0   'False
  53.          strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   495
  56.       Left            =   360
  57.       TabIndex        =   0
  58.       Top             =   240
  59.       Width           =   3615
  60.    End
  61. End
  62. Attribute VB_Name = "Form1"
  63. Attribute VB_Creatable = False
  64. Attribute VB_Exposed = False
  65. Option Explicit
  66.  
  67. Private Sub Form_Load()
  68.  
  69.   panel3D1.FloodPercent = 55
  70.  
  71. End Sub
  72.  
  73.