-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmParingType.frm
52 lines (51 loc) · 1.35 KB
/
frmParingType.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
VERSION 5.00
Begin VB.Form frmParingType
Caption = "Paring type"
ClientHeight = 1155
ClientLeft = 60
ClientTop = 345
ClientWidth = 2670
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 1155
ScaleWidth = 2670
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command2
Caption = "Type 2"
Height = 375
Left = 1440
TabIndex = 2
Top = 600
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Type 1"
Height = 375
Left = 240
TabIndex = 1
Top = 600
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "Give the type of Paring U want"
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 2415
End
End
Attribute VB_Name = "frmParingType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
ParingType = 0
Me.Hide
End Sub
Private Sub Command2_Click()
ParingType = 1
Me.Hide
End Sub