home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 32
/
hot34.iso
/
ficheros
/
LVB
/
SODRESZR.ZIP
/
SAMPLE
/
FRMTEST.FRM
next >
Wrap
Text File
|
1998-05-03
|
4KB
|
136 lines
VERSION 5.00
Object = "{6D068CD3-8E9F-11D1-B58A-000000000000}#39.0#0"; "SODRESZR.OCX"
Begin VB.Form frmTest
Caption = "Form1"
ClientHeight = 1890
ClientLeft = 60
ClientTop = 345
ClientWidth = 5625
LinkTopic = "Form1"
ScaleHeight = 1890
ScaleWidth = 5625
StartUpPosition = 3 'Windows Default
Begin SODResizer.Resizer Resizer1
Height = 1635
Left = 0
Top = 0
Width = 5415
_ExtentX = 9551
_ExtentY = 2884
Controls = $"frmTest.frx":0000
Begin SODResizer.Resizer Resizer2
Height = 1395
Left = 4200
Top = 120
Width = 1095
_ExtentX = 1931
_ExtentY = 2461
Controls = $"frmTest.frx":0159
SpecialEffect = 4
Begin VB.CommandButton Command5
Caption = "2"
Height = 315
Index = 1
Left = 480
TabIndex = 10
Top = 540
Width = 495
End
Begin VB.CommandButton Command5
Caption = "1"
Height = 315
Index = 0
Left = 480
TabIndex = 9
Top = 120
Width = 495
End
Begin VB.TextBox Text3
Height = 315
Left = 120
TabIndex = 8
Text = "Text3"
Top = 960
Width = 855
End
Begin VB.TextBox Text2
Height = 315
Index = 1
Left = 120
TabIndex = 7
Text = "Text2"
Top = 540
Width = 255
End
Begin VB.TextBox Text2
Height = 315
Index = 0
Left = 120
TabIndex = 6
Text = "Text2"
Top = 120
Width = 255
End
End
Begin VB.TextBox Text1
Height = 1395
Index = 1
Left = 2160
TabIndex = 5
Text = "Text1"
Top = 120
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "<<"
Height = 315
Left = 3360
TabIndex = 4
Top = 840
Width = 735
End
Begin VB.CommandButton Command3
Caption = ">>"
Height = 315
Left = 3360
TabIndex = 3
Top = 420
Width = 735
End
Begin VB.CommandButton Command2
Caption = "<<"
Height = 315
Left = 1320
TabIndex = 2
Top = 840
Width = 735
End
Begin VB.CommandButton Command1
Caption = ">>"
Height = 315
Left = 1320
TabIndex = 1
Top = 420
Width = 735
End
Begin VB.TextBox Text1
Height = 1395
Index = 0
Left = 120
TabIndex = 0
Text = "Text1"
Top = 120
Width = 1095
End
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
Resizer1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub