home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / My_ucContr2093141282007.psc / Form1.frm < prev    next >
Text File  |  2007-12-01  |  5KB  |  164 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3870
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4830
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3870
  10.    ScaleWidth      =   4830
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin Project1.GradButton GradButton1 
  13.       Height          =   375
  14.       Left            =   2805
  15.       TabIndex        =   6
  16.       Top             =   1665
  17.       Width           =   1485
  18.       _ExtentX        =   2619
  19.       _ExtentY        =   661
  20.       Caption         =   "EXIT"
  21.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   9.75
  24.          Charset         =   0
  25.          Weight          =   700
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       ColorOuter      =   255
  31.       ClkColor        =   33023
  32.       ClkForeColor    =   8421504
  33.       FontposX        =   32
  34.    End
  35.    Begin Project1.ucTextbox ucTextbox1 
  36.       Height          =   345
  37.       Left            =   90
  38.       TabIndex        =   5
  39.       Top             =   2895
  40.       Width           =   4515
  41.       _ExtentX        =   7964
  42.       _ExtentY        =   609
  43.       Caption         =   " Name"
  44.       Text            =   "Hello World"
  45.       PointerRight    =   -1  'True
  46.       BoldText        =   -1  'True
  47.    End
  48.    Begin Project1.ucSlider ucSlider1 
  49.       Height          =   855
  50.       Left            =   2460
  51.       TabIndex        =   4
  52.       Top             =   585
  53.       Width           =   2250
  54.       _ExtentX        =   3969
  55.       _ExtentY        =   1508
  56.       Caption         =   "ucSlider1"
  57.       Value           =   75
  58.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  59.          Name            =   "MS Sans Serif"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       BarColor        =   5
  68.    End
  69.    Begin Project1.msDial msDial1 
  70.       Height          =   1005
  71.       Left            =   210
  72.       TabIndex        =   0
  73.       Top             =   555
  74.       Width           =   675
  75.       _ExtentX        =   1191
  76.       _ExtentY        =   1773
  77.       Caption         =   "Volume"
  78.    End
  79.    Begin Project1.ThumbWheel TW1 
  80.       Height          =   420
  81.       Left            =   1320
  82.       TabIndex        =   3
  83.       Top             =   585
  84.       Width           =   885
  85.       _ExtentX        =   1561
  86.       _ExtentY        =   741
  87.       CustomBackColor =   0
  88.       CustomBorder    =   0   'False
  89.    End
  90.    Begin Project1.LEDDisplaySTO LED1 
  91.       Height          =   240
  92.       Left            =   1485
  93.       TabIndex        =   2
  94.       Top             =   1095
  95.       Width           =   495
  96.       _ExtentX        =   873
  97.       _ExtentY        =   423
  98.       DigitCount      =   3
  99.       LeadingZeros    =   -1  'True
  100.       BorderColor     =   0
  101.    End
  102.    Begin Project1.CkBx CkBx1 
  103.       Height          =   270
  104.       Left            =   1425
  105.       TabIndex        =   1
  106.       Top             =   1770
  107.       Width           =   1020
  108.       _ExtentX        =   1799
  109.       _ExtentY        =   476
  110.       Value           =   1
  111.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  112.          Name            =   "MS Sans Serif"
  113.          Size            =   9.75
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.    End
  121.    Begin Project1.StrokeText StrokeText1 
  122.       Height          =   525
  123.       Left            =   240
  124.       TabIndex        =   7
  125.       Top             =   2190
  126.       Width           =   2580
  127.       _ExtentX        =   4551
  128.       _ExtentY        =   926
  129.       Caption         =   "A Small Test"
  130.       Shadow          =   -1  'True
  131.       TStyle          =   2
  132.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  133.          Name            =   "Tahoma"
  134.          Size            =   21.75
  135.          Charset         =   0
  136.          Weight          =   400
  137.          Underline       =   0   'False
  138.          Italic          =   0   'False
  139.          Strikethrough   =   0   'False
  140.       EndProperty
  141.    End
  142.    Begin Project1.ucUpDown ucUpDown1 
  143.       Height          =   240
  144.       Left            =   225
  145.       TabIndex        =   8
  146.       Top             =   1815
  147.       Width           =   810
  148.       _ExtentX        =   1429
  149.       _ExtentY        =   423
  150.       Min             =   -100
  151.    End
  152. End
  153. Attribute VB_Name = "Form1"
  154. Attribute VB_GlobalNameSpace = False
  155. Attribute VB_Creatable = False
  156. Attribute VB_PredeclaredId = True
  157. Attribute VB_Exposed = False
  158. Option Explicit
  159.  
  160. Private Sub TW1_Change()
  161.    LED1.Value = TW1.Value
  162. End Sub
  163.  
  164.