Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
2422 lines (2386 sloc) 74.3 KB
VERSION 5.00
Begin VB.Form frmTrade
BackColor = &H00404040&
BorderStyle = 0 'None
Caption = "Trade"
ClientHeight = 5670
ClientLeft = 30
ClientTop = -90
ClientWidth = 10815
ControlBox = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmTrade.frx":0000
ScaleHeight = 378
ScaleMode = 3 'Pixel
ScaleWidth = 721
StartUpPosition = 2 'CenterScreen
Begin VB.Timer ActuShop
Enabled = 0 'False
Interval = 500
Left = 0
Top = 0
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 66
Left = 300
Negotiate = -1 'True
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 74
Top = 4980
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 65
Left = 7020
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 72
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 64
Left = 6345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 71
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 63
Left = 5670
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 70
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 62
Left = 4995
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 69
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 61
Left = 4320
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 68
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 60
Left = 3645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 67
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 59
Left = 2970
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 66
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 58
Left = 2295
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 65
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 57
Left = 1620
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 64
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 56
Left = 945
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 63
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 55
Left = 270
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 62
Top = 4230
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 54
Left = 7020
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 61
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 53
Left = 6345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 60
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 52
Left = 5670
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 59
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 51
Left = 4995
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 58
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 50
Left = 4320
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 57
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 49
Left = 3645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 56
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 48
Left = 2970
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 55
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 47
Left = 2295
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 54
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 46
Left = 1620
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 53
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 45
Left = 945
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 52
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 44
Left = 270
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 51
Top = 3585
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 43
Left = 7020
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 50
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 42
Left = 6345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 49
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 41
Left = 5670
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 48
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 40
Left = 4995
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 47
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 39
Left = 4320
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 46
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 38
Left = 3645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 45
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 37
Left = 2970
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 44
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 36
Left = 2295
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 43
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 35
Left = 1620
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 42
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 34
Left = 945
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 41
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 33
Left = 270
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 40
Top = 2940
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 32
Left = 7020
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 39
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 31
Left = 6345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 38
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 30
Left = 5670
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 37
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 29
Left = 4995
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 36
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 28
Left = 4320
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 35
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 27
Left = 3645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 34
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 26
Left = 2970
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 33
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 25
Left = 2295
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 32
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 24
Left = 1620
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 31
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 23
Left = 945
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 30
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 22
Left = 270
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 29
Top = 2295
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 21
Left = 7020
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 28
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 20
Left = 6345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 27
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 19
Left = 5670
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 26
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 18
Left = 4995
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 25
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 17
Left = 4320
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 24
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 16
Left = 3645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 23
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 15
Left = 2970
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 22
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 14
Left = 2295
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 21
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 13
Left = 1620
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 20
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 12
Left = 945
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 19
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 11
Left = 270
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 18
Top = 1650
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 10
Left = 7020
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 17
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 9
Left = 6345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 16
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 8
Left = 5670
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 15
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 7
Left = 4995
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 14
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 6
Left = 4320
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 13
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 5
Left = 3645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 12
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 4
Left = 2970
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 11
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 3
Left = 2295
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 10
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 2
Left = 1620
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 9
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 1
Left = 945
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 8
Top = 1005
Width = 480
End
Begin VB.PictureBox picItem
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 0
Left = 270
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 1
Top = 1005
Width = 480
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"frmTrade.frx":C83FE
Height = 615
Left = 3960
TabIndex = 95
Top = 5040
Width = 3735
End
Begin VB.Label lblVendre
BackStyle = 0 'Transparent
Height = 255
Left = 4920
TabIndex = 94
Top = 4800
Width = 735
End
Begin VB.Label picFixItems
BackStyle = 0 'Transparent
Height = 300
Left = 5640
TabIndex = 93
Top = 4800
Width = 735
End
Begin VB.Label descClasse
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Classe"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 92
Top = 2430
Width = 465
End
Begin VB.Label descStr
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Strength"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 91
Top = 1725
Width = 630
End
Begin VB.Label descDef
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Defence"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 90
Top = 1950
Width = 600
End
Begin VB.Label descSpeed
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Speed"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 89
Top = 2175
Width = 450
End
Begin VB.Label descHp
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 88
Top = 2925
Width = 360
End
Begin VB.Label descSp
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 87
Top = 3405
Width = 360
End
Begin VB.Label descMp
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 86
Top = 3165
Width = 360
End
Begin VB.Label descAStr
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 85
Top = 3885
Width = 375
End
Begin VB.Label descADef
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 84
Top = 4125
Width = 375
End
Begin VB.Label descAMagi
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 83
Top = 4365
Width = 375
End
Begin VB.Label descASpeed
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 82
Top = 4605
Width = 375
End
Begin VB.Label desc
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 615
Left = 7920
TabIndex = 81
Top = 4995
Width = 2730
End
Begin VB.Label descAExp
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXX%"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 80
Top = 3645
Width = 435
End
Begin VB.Label descName
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Name"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 79
Top = 1005
Width = 405
End
Begin VB.Label descQuantity
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Quantity"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 9240
TabIndex = 78
Top = 1245
Width = 630
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Height = 375
Left = 10440
TabIndex = 77
Top = 0
Width = 375
End
Begin VB.Label lblQuantity
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXX"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1920
TabIndex = 76
Top = 5235
Width = 270
End
Begin VB.Label lblTradeFor
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "XXX"
ForeColor = &H00000000&
Height = 210
Left = 1920
TabIndex = 75
Top = 4995
Width = 315
End
Begin VB.Shape shopType
BorderColor = &H00FF8080&
Height = 255
Left = 240
Top = 720
Width = 1095
End
Begin VB.Label lblDeal
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 6360
TabIndex = 73
Top = 4800
Width = 765
End
Begin VB.Shape shpSelect
BorderColor = &H000000FF&
BorderWidth = 2
Height = 525
Left = 255
Top = 990
Width = 525
End
Begin VB.Label label
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 6
Left = 3600
TabIndex = 7
Top = 720
Width = 600
End
Begin VB.Label label
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 5
Left = 3030
TabIndex = 6
Top = 750
Width = 570
End
Begin VB.Label label
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 4
Left = 1470
TabIndex = 5
Top = 750
Width = 885
End
Begin VB.Label label
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 2310
TabIndex = 4
Top = 750
Width = 750
End
Begin VB.Label label
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 2
Left = 750
TabIndex = 3
Top = 750
Width = 780
End
Begin VB.Label label
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Index = 1
Left = 150
TabIndex = 2
Top = 750
Width = 600
End
Begin VB.Label picCancel
BackStyle = 0 'Transparent
Height = 300
Left = 7080
TabIndex = 0
Top = 4800
Width = 615
End
End
Attribute VB_Name = "frmTrade"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub ActuShop_Timer()
Call AffObj
End Sub
Private Sub Form_Load()
Dim i As Long
Dim Ending As String
For i = 1 To 4
If i = 1 Then Ending = ".gif"
If i = 2 Then Ending = ".jpg"
If i = 3 Then Ending = ".png"
If i = 4 Then Ending = ".bmp"
If FileExiste(Rep_Theme & "\Jeu\magasin" & Ending) Then Me.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\magasin" & Ending)
Next i
Dim R1 As Long, G1 As Long, B1 As Long
R1 = Val(ReadINI("BARE", "R", App.Path & "\Config\Ecriture.ini"))
G1 = Val(ReadINI("BARE", "G", App.Path & "\Config\Ecriture.ini"))
B1 = Val(ReadINI("BARE", "B", App.Path & "\Config\Ecriture.ini"))
shopType.BorderColor = RGB(R1, G1, B1)
Call AffObj
ActuShop.Enabled = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
dr = True
drx = x
dry = y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If dr Then DoEvents: If dr Then Call Me.Move(Me.Left + (x - drx), Me.Top + (y - dry))
If Me.Left > Screen.Width Or Me.Top > Screen.Height Then Me.Top = Screen.Height \ 2: Me.Left = Screen.Width \ 2
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
dr = False
drx = 0
dry = 0
End Sub
Private Sub label_Click(Index As Integer)
Dim xx As Long
For xx = 1 To 6
Trade(xx).Selected = NO
Next xx
Trade(Index).Selected = YES
shopType.Left = label(Index).Left
shopType.Height = label(Index).Height
shopType.Width = label(Index).Width
shopType.Top = label(Index).Top
Trade(Index).SelectedItem = 1
Call ItemSelected(1, Index)
Call AffObj
End Sub
Private Sub Label7_Click()
If frmFixItem.Visible Then Call Unload(frmFixItem)
Call SendData("LEAVESHOP" & SEP_CHAR & NumShop & END_CHAR)
Unload Me
End Sub
Private Sub lblDeal_Click()
Dim i As Long
Dim Selected As Long
For i = 1 To 6
If Trade(i).Selected = YES Then Selected = i: Exit For
Next i
If Trade(Selected).Items(Trade(Selected).SelectedItem).ItemGetNum > 0 Then Call SendData("traderequest" & SEP_CHAR & Selected & SEP_CHAR & Trade(Selected).SelectedItem & END_CHAR)
End Sub
Private Sub lblVendre_Click()
Dim i As Long
Dim Selected As Long
For i = 1 To 6
If Trade(i).Selected = YES Then Selected = i: Exit For
Next i
If Trade(Selected).Items(Trade(Selected).SelectedItem).ItemGetNum > 0 Then Call SendData("vendrerequest" & SEP_CHAR & Selected & SEP_CHAR & Trade(Selected).SelectedItem & END_CHAR)
End Sub
Private Sub picFixItems_Click()
Dim i As Long
If picFixItems.Tag >= 1 And picFixItems.Tag <= MAX_ITEMS Then
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 Then
frmFixItem.cmbItem.AddItem i & ": " & Trim$(Item(GetPlayerInvItemNum(MyIndex, i)).name)
Else
frmFixItem.cmbItem.AddItem "Slot inutiliser"
End If
Next i
frmFixItem.cmbItem.ListIndex = 0
If GetPlayerInvItemNum(MyIndex, 1) > 0 Then
i = ((Item(GetPlayerInvItemNum(MyIndex, 1)).Data1 - GetPlayerInvItemDur(MyIndex, 1)) * (Item(GetPlayerInvItemNum(MyIndex, 1)).Data2 / 5)) \ 2
If i <= 0 Then i = 1
frmFixItem.Label2.Caption = "Prix : " & i & " " & Trim$(Item(picFixItems.Tag).name)
Else
frmFixItem.Label2.Caption = "Prix : ??? " & Trim$(Item(picFixItems.Tag).name)
End If
frmFixItem.Show vbModeless
Else
Call MsgBox("Ce magasin ne répare pas les objets")
End If
End Sub
Private Sub picCancel_Click()
If frmFixItem.Visible Then Call Unload(frmFixItem)
If NumShop > 0 And NumShop < MAX_SHOPS Then Call SendData("LEAVESHOP" & SEP_CHAR & NumShop & END_CHAR)
ActuShop.Enabled = False
Unload Me
End Sub
Private Sub picItem_Click(Index As Integer)
Dim i As Long
Dim Selected As Long
If Index = 66 Then Exit Sub
For i = 1 To 6
If Trade(i).Selected = YES Then Selected = i: Exit For
Next i
Trade(Selected).SelectedItem = Index + 1
Call ItemSelected(Index + 1, Selected)
Call AffObj
End Sub
Private Sub AffObj()
On Error GoTo er:
Dim i As Long
Dim Selected As Byte
Dim Pic As Long
Selected = 0
For i = 1 To 6
If Trade(i).Selected = YES Then Selected = i: Exit For
Next i
If Selected = 0 Then Exit Sub
For i = 1 To MAX_TRADES
picItem(i - 1).Picture = LoadPicture()
If Trade(Selected).Items(i).ItemGetNum > 0 Then
Pic = STR$(Item(Trade(Selected).Items(i).ItemGetNum).Pic)
Call AffSurfPic(DD_ItemSurf, picItem(i - 1), (Pic - (Pic \ 6) * 6) * PIC_X, (Pic \ 6) * PIC_Y)
End If
Next i
picItem(66).Picture = LoadPicture()
If Trade(Selected).SelectedItem > 0 And Trade(Selected).Items(Trade(Selected).SelectedItem).ItemGiveNum > 0 Then
Pic = STR$(Item(Trade(Selected).Items(Trade(Selected).SelectedItem).ItemGiveNum).Pic)
Call AffSurfPic(DD_ItemSurf, picItem(66), (Pic - (Pic \ 6) * 6) * PIC_X, (Pic \ 6) * PIC_Y)
End If
Exit Sub
er:
picItem(66).Picture = LoadPicture()
End Sub
Private Sub picItem_DblClick(Index As Integer)
Call lblDeal_Click
End Sub
Something went wrong with that request. Please try again.