home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / scale / form2.frm next >
Text File  |  1995-02-27  |  2KB  |  63 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   6105
  5.    ClientLeft      =   915
  6.    ClientTop       =   555
  7.    ClientWidth     =   7905
  8.    Height          =   6630
  9.    Left            =   855
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   6105
  12.    ScaleWidth      =   7905
  13.    Top             =   90
  14.    Width           =   8025
  15.    Begin SCALE Scale2 
  16.       BackColor       =   &H00FF0000&
  17.       ForeColor       =   &H00FFFFFF&
  18.       Granularity     =   144
  19.       HalfMark        =   2
  20.       Height          =   6570
  21.       InchMark        =   3
  22.       Left            =   0
  23.       MarkLength      =   100
  24.       ScaleType       =   1  'Vertical
  25.       Start           =   0
  26.       Top             =   795
  27.       Width           =   705
  28.    End
  29.    Begin SCALE Scale1 
  30.       Align           =   1  'Align Top
  31.       BackColor       =   &H00FFFF00&
  32.       FontBold        =   -1  'True
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   12
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       ForeColor       =   &H000000FF&
  39.       Granularity     =   144
  40.       HalfMark        =   2
  41.       Height          =   795
  42.       InchMark        =   3
  43.       Index           =   0
  44.       Left            =   0
  45.       MarkLength      =   144
  46.       ScaleType       =   0  'Horizontal
  47.       Start           =   0
  48.       Top             =   0
  49.       Width           =   7905
  50.    End
  51. End
  52.  
  53. Sub Scale1_Click (index As Integer)
  54.     scale1(index).Refresh
  55. End Sub
  56.  
  57. Sub Scale2_Click ()
  58. scale2.Start = scale2.Start + 150
  59.  
  60.  
  61. End Sub
  62.  
  63.