home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD13443162001.psc / smProgress / Test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-28  |  1.6 KB  |  57 lines
  1. VERSION 5.00
  2. Object = "*\AsmLabel3d.vbp"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5355
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   9660
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5355
  11.    ScaleWidth      =   9660
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin smLabel3d.smLabel smlbl3d1 
  14.       Height          =   555
  15.       Left            =   840
  16.       Top             =   420
  17.       Width           =   3855
  18.       _ExtentX        =   6800
  19.       _ExtentY        =   979
  20.       Style           =   1
  21.    End
  22.    Begin VB.CommandButton Command2 
  23.       Caption         =   "Command2"
  24.       Height          =   375
  25.       Left            =   2520
  26.       TabIndex        =   1
  27.       Top             =   2820
  28.       Width           =   1995
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Command1"
  32.       Height          =   435
  33.       Left            =   720
  34.       TabIndex        =   0
  35.       Top             =   1860
  36.       Width           =   1935
  37.    End
  38. Attribute VB_Name = "Form1"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Option Explicit
  44. Private Sub Command1_Click()
  45.     smlbl3d1.Caption = "Style 0"
  46.     smlbl3d1.Style = 0
  47.     Me.Refresh
  48. End Sub
  49. Private Sub Command2_Click()
  50.     smlbl3d1.Caption = "Style 1"
  51.     smlbl3d1.Style = 1
  52.     Me.Refresh
  53. End Sub
  54. Private Sub Form_Load()
  55.     smlbl3d1.Caption = "Style is " & smlbl3d1.Style
  56. End Sub
  57.