home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
tool
/
various
/
scale
/
form2.frm
next >
Wrap
Text File
|
1995-02-27
|
2KB
|
63 lines
VERSION 2.00
Begin Form Form2
Caption = "Form2"
ClientHeight = 6105
ClientLeft = 915
ClientTop = 555
ClientWidth = 7905
Height = 6630
Left = 855
LinkTopic = "Form2"
ScaleHeight = 6105
ScaleWidth = 7905
Top = 90
Width = 8025
Begin SCALE Scale2
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Granularity = 144
HalfMark = 2
Height = 6570
InchMark = 3
Left = 0
MarkLength = 100
ScaleType = 1 'Vertical
Start = 0
Top = 795
Width = 705
End
Begin SCALE Scale1
Align = 1 'Align Top
BackColor = &H00FFFF00&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H000000FF&
Granularity = 144
HalfMark = 2
Height = 795
InchMark = 3
Index = 0
Left = 0
MarkLength = 144
ScaleType = 0 'Horizontal
Start = 0
Top = 0
Width = 7905
End
End
Sub Scale1_Click (index As Integer)
scale1(index).Refresh
End Sub
Sub Scale2_Click ()
scale2.Start = scale2.Start + 150
End Sub