Patch-Matcher/frmSelect.frm at master · PCipolle/Patch-Matcher · GitHub

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
53
54
55
56
57
58
59
60
61
62
63
64
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelect
   Caption         =   "Pocket Type"
   ClientHeight    =   3360
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   4560
   OleObjectBlob   =   "frmSelect.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdTop_Click()
Dim flag As Integer

flag = 1

frmSelect.Hide

    patchMatcher flag

End Sub

Private Sub cmdBottom_Click()
Dim flag As Integer
flag = 2

frmSelect.Hide

    patchMatcher flag

End Sub

Private Sub cmdWood_Click()

Dim flag As Integer
flag = 3

frmSelect.Hide

    patchMatcher flag

End Sub

Private Sub cmdBronze_Click()
Dim flag As Integer

'MsgBox ("This feature is not yet available")
'Exit Sub

flag = 4

frmSelect.Hide

    patchMatcher flag

End Sub