Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
6026 lines (5823 sloc) 218 KB
VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Begin VB.Form frmMirage
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
ClientHeight = 10020
ClientLeft = 1275
ClientTop = 1140
ClientWidth = 12000
FillColor = &H00FFFFFF&
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontTransparent = 0 'False
Icon = "frmMirage.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MousePointer = 99 'Custom
ScaleHeight = 660
ScaleMode = 0 'User
ScaleWidth = 800
Visible = 0 'False
Begin VB.PictureBox picOptions
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 5745
Left = 9000
ScaleHeight = 381
ScaleMode = 3 'Pixel
ScaleWidth = 173
TabIndex = 143
Top = 3240
Visible = 0 'False
Width = 2625
Begin VB.TextBox txtTempsBulles
Appearance = 0 'Flat
Height = 285
Left = 120
TabIndex = 251
Top = 3600
Width = 2295
End
Begin VB.CommandButton Command1
Caption = "Ok"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 144
Top = 5400
Width = 2415
End
Begin VB.CommandButton CmdoptTouche
Caption = "Configurer les touches"
Height = 255
Left = 120
TabIndex = 145
Top = 5160
Width = 2415
End
Begin VB.CheckBox chknobj
BackColor = &H00FFFFFF&
Caption = "Nom des objets aux sol (quand la souris le survole)"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 159
ToolTipText = "Petite barre affichée au dessus de vous"
Top = 960
Value = 1 'Checked
Width = 2400
End
Begin VB.CheckBox chkplayerbar
BackColor = &H00FFFFFF&
Caption = "Mini barre de vie"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 158
Top = 720
Value = 1 'Checked
Width = 1440
End
Begin VB.CheckBox chkplayername
BackColor = &H00FFFFFF&
Caption = "Nom"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 157
Top = 240
Value = 1 'Checked
Width = 765
End
Begin VB.CheckBox chknpcname
BackColor = &H00FFFFFF&
Caption = "Noms"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 156
Top = 1440
Value = 1 'Checked
Width = 765
End
Begin VB.CheckBox chkbubblebar
BackColor = &H00FFFFFF&
Caption = "Bulles de dialogue"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 155
Top = 3120
Value = 1 'Checked
Width = 1725
End
Begin VB.CheckBox chknpcbar
BackColor = &H00FFFFFF&
Caption = "Affichés leur mini barre de vie"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 154
Top = 1920
Value = 1 'Checked
Width = 2400
End
Begin VB.CheckBox chkplayerdamage
BackColor = &H00FFFFFF&
Caption = "Dégâts affichés au dessus de la tête"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 153
Top = 480
Value = 1 'Checked
Width = 2565
End
Begin VB.CheckBox chknpcdamage
BackColor = &H00FFFFFF&
Caption = "Dégâts affichés au dessus de la tête"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 152
Top = 1680
Value = 1 'Checked
Width = 2595
End
Begin VB.CheckBox chkmusic
BackColor = &H00FFFFFF&
Caption = "Musique"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 151
Top = 2400
Value = 1 'Checked
Width = 1335
End
Begin VB.CheckBox chksound
BackColor = &H00FFFFFF&
Caption = "Effets sonores"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 150
Top = 2640
Value = 1 'Checked
Width = 1365
End
Begin VB.CheckBox chkAutoScroll
BackColor = &H00FFFFFF&
Caption = "Défilement automatique"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 149
Top = 4440
Value = 1 'Checked
Width = 1845
End
Begin VB.CommandButton Command2
Caption = "Actualiser le thème"
Height = 255
Left = 120
TabIndex = 148
Top = 4920
Visible = 0 'False
Width = 2415
End
Begin VB.HScrollBar scrlBltText
Height = 255
Left = 240
Max = 20
Min = 4
TabIndex = 147
Top = 4125
Value = 6
Width = 2055
End
Begin VB.CheckBox chkLowEffect
BackColor = &H00FFFFFF&
Caption = "Désactiver les effets avancés"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 146
Top = 4680
Width = 2325
End
Begin VB.Label lblBulle
BackStyle = 0 'Transparent
Caption = "Temps d'affichage des bulles:"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 250
Top = 3360
Width = 2175
End
Begin VB.Label lblLines
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nombre de ligne écrite sur l'écran: 6"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = 120
TabIndex = 164
Top = 3960
Width = 2220
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Affichage du Joueur-"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = -120
TabIndex = 163
Top = 0
Width = 2655
End
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Musique/Sons-"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = -120
TabIndex = 162
Top = 2160
Width = 2655
End
Begin VB.Label Label18
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Affichage du Chat-"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 0
TabIndex = 161
Top = 2880
Width = 2655
End
Begin VB.Label Label9
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Affichage des NPCs-"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 0
TabIndex = 160
Top = 1275
Width = 2655
End
End
Begin VB.PictureBox pictMetier
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1995
Left = 3960
Picture = "frmMirage.frx":74F2
ScaleHeight = 1965
ScaleWidth = 3600
TabIndex = 241
Top = 600
Visible = 0 'False
Width = 3630
Begin VB.Label lblmetier
BackStyle = 0 'Transparent
Caption = "Label41"
Height = 615
Index = 3
Left = 120
TabIndex = 249
Top = 1080
Width = 3375
End
Begin VB.Label lblOublierMetier
BackStyle = 0 'Transparent
Caption = "Oublier le Metier"
Height = 255
Left = 1440
TabIndex = 248
Top = 1680
Width = 1335
End
Begin VB.Label lblendmetier
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Left = 3390
TabIndex = 247
Top = 1935
Width = 375
End
Begin VB.Label lblmetierEnd
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Fermer"
Height = 255
Left = 2760
TabIndex = 245
Top = 1680
Width = 735
End
Begin VB.Label lblmetier
BackStyle = 0 'Transparent
Caption = "Label41"
Height = 255
Index = 2
Left = 120
TabIndex = 244
Top = 840
Width = 3255
End
Begin VB.Label lblmetier
BackStyle = 0 'Transparent
Caption = "Label41"
Height = 255
Index = 1
Left = 120
TabIndex = 243
Top = 600
Width = 3375
End
Begin VB.Label lblmetier
BackStyle = 0 'Transparent
Caption = "Label41"
Height = 255
Index = 0
Left = 120
TabIndex = 242
Top = 360
Width = 3375
End
End
Begin VB.PictureBox PicMenuQuitter
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1965
Left = 3480
Picture = "frmMirage.frx":1E5A4
ScaleHeight = 1965
ScaleWidth = 3600
TabIndex = 212
Top = 2640
Visible = 0 'False
Width = 3600
Begin VB.Label lblCdP
BackStyle = 0 'Transparent
Height = 495
Left = 0
TabIndex = 216
Top = 360
Width = 3615
End
Begin VB.Label lblDeco
BackStyle = 0 'Transparent
Height = 495
Left = 0
TabIndex = 215
Top = 840
Width = 3615
End
Begin VB.Label lblQuitter
BackStyle = 0 'Transparent
Height = 495
Left = 0
TabIndex = 214
Top = 1320
Width = 3615
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Height = 255
Left = 3360
TabIndex = 213
Top = 0
Width = 255
End
End
Begin VB.PictureBox pictTouche
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4035
Left = 3120
ScaleHeight = 267
ScaleMode = 3 'Pixel
ScaleWidth = 511
TabIndex = 165
Top = 960
Visible = 0 'False
Width = 7695
Begin VB.CommandButton cmdOTA
Caption = "Annuler"
Height = 255
Left = 6840
TabIndex = 185
Top = 3720
Width = 735
End
Begin VB.ComboBox cbth
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 184
Text = "Combo1"
Top = 240
Width = 2775
End
Begin VB.ComboBox cbtb
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 183
Text = "Combo1"
Top = 480
Width = 2775
End
Begin VB.ComboBox cbtg
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 182
Text = "Combo1"
Top = 720
Width = 2775
End
Begin VB.ComboBox cbtd
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 181
Text = "Combo1"
Top = 960
Width = 2775
End
Begin VB.ComboBox cbta
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 180
Text = "Combo1"
Top = 1200
Width = 2775
End
Begin VB.ComboBox cbtc
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 209
Text = "Combo1"
Top = 1440
Width = 2775
End
Begin VB.CommandButton cmdOTO
Caption = "Ok"
Height = 255
Left = 6120
TabIndex = 186
Top = 3720
Width = 735
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 4905
TabIndex = 179
Text = "Combo1"
Top = 225
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 4905
TabIndex = 178
Text = "Combo1"
Top = 480
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 4905
TabIndex = 177
Text = "Combo1"
Top = 720
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 4905
TabIndex = 176
Text = "Combo1"
Top = 960
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 4905
TabIndex = 175
Text = "Combo1"
Top = 1200
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 5
Left = 4905
TabIndex = 174
Text = "Combo1"
Top = 1440
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 6
Left = 4905
TabIndex = 173
Text = "Combo1"
Top = 1695
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 7
Left = 4905
TabIndex = 172
Text = "Combo1"
Top = 1935
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 8
Left = 4905
TabIndex = 171
Text = "Combo1"
Top = 2175
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 9
Left = 4905
TabIndex = 170
Text = "Combo1"
Top = 2415
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 10
Left = 4905
TabIndex = 169
Text = "Combo1"
Top = 2640
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 11
Left = 4905
TabIndex = 168
Text = "Combo1"
Top = 2895
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 12
Left = 4905
TabIndex = 167
Text = "Combo1"
Top = 3135
Width = 2655
End
Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 13
Left = 4905
TabIndex = 166
Text = "Combo1"
Top = 3375
Width = 2655
End
Begin VB.ComboBox cbtra
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 211
Text = "Combo1"
Top = 1680
Width = 2775
End
Begin VB.ComboBox cbtac
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 930
TabIndex = 218
Text = "Combo1"
Top = 1920
Width = 2775
End
Begin VB.Label Label40
BackStyle = 0 'Transparent
Caption = "Action :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 217
Top = 1950
Width = 735
End
Begin VB.Label Label39
BackStyle = 0 'Transparent
Caption = "Ramasser :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 210
Top = 1710
Width = 735
End
Begin VB.Label Label38
BackStyle = 0 'Transparent
Caption = "Courir :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 208
Top = 1470
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "- Touche de Jeu -"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 0
TabIndex = 207
Top = 0
Width = 3735
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "- Touche de Racourci -"
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 3960
TabIndex = 206
Top = 0
Width = 3735
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Haut :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 205
Top = 270
Width = 735
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "Bas :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 204
Top = 510
Width = 735
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "Gauche :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 203
Top = 750
Width = 735
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "Droite :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 202
Top = 990
Width = 735
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "Attaque :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 201
Top = 1230
Width = 735
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "Raccourci 1 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 200
Top = 270
Width = 855
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "Raccourci 2 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 199
Top = 510
Width = 855
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "Raccourci 3 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 198
Top = 750
Width = 855
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "Raccourci 4 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 197
Top = 990
Width = 855
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = "Raccourci 8 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 196
Top = 1950
Width = 855
End
Begin VB.Label Label29
BackStyle = 0 'Transparent
Caption = "Raccourci 7 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 195
Top = 1710
Width = 855
End
Begin VB.Label Label30
BackStyle = 0 'Transparent
Caption = "Raccourci 6 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 194
Top = 1470
Width = 855
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Caption = "Raccourci 5 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 193
Top = 1230
Width = 855
End
Begin VB.Label Label32
BackStyle = 0 'Transparent
Caption = "Raccourci 12 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 192
Top = 2910
Width = 855
End
Begin VB.Label Label33
BackStyle = 0 'Transparent
Caption = "Raccourci 11 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 191
Top = 2670
Width = 855
End
Begin VB.Label Label34
BackStyle = 0 'Transparent
Caption = "Raccourci 10 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 190
Top = 2430
Width = 855
End
Begin VB.Label Label35
BackStyle = 0 'Transparent
Caption = "Raccourci 9 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 189
Top = 2190
Width = 855
End
Begin VB.Label Label36
BackStyle = 0 'Transparent
Caption = "Raccourci 14 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 188
Top = 3390
Width = 855
End
Begin VB.Label Label37
BackStyle = 0 'Transparent
Caption = "Raccourci 13 :"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 187
Top = 3150
Width = 855
End
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 13
Left = 7125
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 141
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 12
Left = 6585
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 140
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 11
Left = 6045
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 139
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 10
Left = 5505
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 138
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 9
Left = 4965
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 137
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 8
Left = 4425
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 136
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 7
Left = 3885
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 135
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 6
Left = 3345
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 134
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 5
Left = 2805
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 133
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 4
Left = 2265
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 132
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 3
Left = 1725
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 131
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 2
Left = 1185
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 130
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 1
Left = 645
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 129
Top = 9315
Width = 480
End
Begin VB.PictureBox picRac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 0
Left = 105
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 128
Top = 9315
Width = 480
End
Begin VB.ComboBox Canal
Appearance = 0 'Flat
Height = 315
ItemData = "frmMirage.frx":21156
Left = 120
List = "frmMirage.frx":21166
Locked = -1 'True
TabIndex = 120
Text = "Carte"
Top = 8760
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox txtMyTextBox
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Segoe UI"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
IMEMode = 3 'DISABLE
Left = 1335
Locked = -1 'True
MaxLength = 255
TabIndex = 111
Top = 8760
Visible = 0 'False
Width = 5325
End
Begin VB.PictureBox itmDesc
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 3735
Left = 9360
ScaleHeight = 247
ScaleMode = 3 'Pixel
ScaleWidth = 175
TabIndex = 98
Top = 0
Visible = 0 'False
Width = 2655
Begin VB.Label descName
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Nom"
ForeColor = &H00000000&
Height = 210
Left = 360
TabIndex = 110
ToolTipText = "Nom de l'objet"
Top = 0
Width = 1815
End
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Requière-"
ForeColor = &H00000080&
Height = 210
Left = 360
TabIndex = 109
ToolTipText = "Force/défense/vitesse requise pour équipper l'objet"
Top = 240
Width = 1815
End
Begin VB.Label descStr
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Strength"
ForeColor = &H00000000&
Height = 210
Left = 360
TabIndex = 108
Top = 480
Width = 1815
End
Begin VB.Label descDef
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Defence"
ForeColor = &H00000000&
Height = 210
Left = 360
TabIndex = 107
Top = 720
Width = 1815
End
Begin VB.Label descSpeed
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Speed"
ForeColor = &H00000000&
Height = 210
Left = 360
TabIndex = 106
Top = 960
Width = 1815
End
Begin VB.Label Label15
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Donne-"
ForeColor = &H00000080&
Height = 210
Left = 360
TabIndex = 105
ToolTipText = "Se que vous apporte l'objet"
Top = 1200
Width = 1815
End
Begin VB.Label descHpMp
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "HP: XXXX MP: XXXX SP: XXXX"
ForeColor = &H00000000&
Height = 210
Left = 0
TabIndex = 104
Top = 1440
Width = 2655
End
Begin VB.Label descSD
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Str: XXXX Def: XXXXX"
ForeColor = &H00000000&
Height = 210
Left = 0
TabIndex = 103
Top = 1680
Width = 2655
End
Begin VB.Label desc
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 975
Left = 120
TabIndex = 102
ToolTipText = "Description de l'objet"
Top = 2640
Width = 2415
End
Begin VB.Label Label10
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "-Description-"
ForeColor = &H00000080&
Height = 210
Left = 360
TabIndex = 101
Top = 2400
Width = 1815
End
Begin VB.Label descMS
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Magi: XXXXX Speed: XXXX"
ForeColor = &H00000000&
Height = 210
Left = 0
TabIndex = 100
Top = 1920
Width = 2655
End
Begin VB.Label Usure
Alignment = 2 'Center
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Usure : XXXX/XXXX"
ForeColor = &H00000000&
Height = 195
Left = 0
TabIndex = 99
Top = 2160
Width = 2655
End
End
Begin VB.Timer quetetimersec
Enabled = 0 'False
Left = 9240
Top = 0
End
Begin MSWinsockLib.Winsock Socket
Left = 7800
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.PictureBox Picturesprite
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 0
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 68
Top = 0
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox picScreen
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 7380
Left = 0
ScaleHeight = 492
ScaleMode = 3 'Pixel
ScaleWidth = 736
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 11040
Begin VB.Timer sync
Interval = 250
Left = 6720
Top = 0
End
Begin VB.Frame fra_fenetre
BackColor = &H00004080&
BorderStyle = 0 'None
Height = 2985
Left = 8400
TabIndex = 2
Top = 4320
Width = 2595
Begin VB.PictureBox tmpsquete
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 465
Left = 720
ScaleHeight = 31
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 62
Top = 1560
Visible = 0 'False
Width = 1215
Begin VB.Label seconde
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Segoe UI"
Size = 20.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 64
ToolTipText = "Secondes restante avant la fin de la quête en cour"
Top = 0
Width = 450
End
Begin VB.Label minute
BackStyle = 0 'Transparent
Caption = "00:"
BeginProperty Font
Name = "Segoe UI"
Size = 20.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
TabIndex = 63
ToolTipText = "Minutes restante avant la fin de la quête en cour"
Top = 0
Width = 600
End
End
Begin VB.PictureBox picInv3
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2535
Left = 120
ScaleHeight = 169
ScaleMode = 3 'Pixel
ScaleWidth = 161
TabIndex = 47
Top = 360
Visible = 0 'False
Width = 2415
Begin VB.PictureBox Up
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 720
Picture = "frmMirage.frx":21186
ScaleHeight = 270
ScaleWidth = 270
TabIndex = 51
Top = 2235
Width = 270
End
Begin VB.PictureBox Down
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1080
Picture = "frmMirage.frx":2141E
ScaleHeight = 270
ScaleWidth = 270
TabIndex = 50
Top = 2235
Width = 270
End
Begin VB.VScrollBar VScroll1
Height = 330
Left = 2640
Max = 100
TabIndex = 49
Top = 2400
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox Picture8
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1935
Left = 120
ScaleHeight = 129
ScaleMode = 3 'Pixel
ScaleWidth = 137
TabIndex = 48
Top = 120
Width = 2055
Begin VB.PictureBox Picture9
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 7935
Left = 120
ScaleHeight = 529
ScaleMode = 3 'Pixel
ScaleWidth = 126
TabIndex = 59
Top = 0
Width = 1890
Begin VB.PictureBox picInv
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 0
Left = 120
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 60
Top = 120
Width = 480
End
Begin VB.Shape IDAD
BorderColor = &H00008000&
BorderWidth = 3
Height = 510
Left = 0
Top = 0
Visible = 0 'False
Width = 510
End
Begin VB.Shape EquipS
BorderColor = &H0000FFFF&
BorderWidth = 3
Height = 540
Index = 4
Left = 0
Top = 0
Width = 540
End
Begin VB.Shape EquipS
BorderColor = &H0000FFFF&
BorderWidth = 3
Height = 540
Index = 0
Left = 0
Top = 0
Width = 540
End
Begin VB.Shape EquipS
BorderColor = &H0000FFFF&
BorderWidth = 3
Height = 540
Index = 1
Left = -360
Top = 120
Width = 540
End
Begin VB.Shape EquipS
BorderColor = &H0000FFFF&
BorderWidth = 3
Height = 540
Index = 2
Left = 0
Top = 120
Width = 540
End
Begin VB.Shape EquipS
BorderColor = &H0000FFFF&
BorderWidth = 3
Height = 540
Index = 3
Left = 0
Top = 0
Width = 540
End
Begin VB.Shape SelectedItem
BorderColor = &H000000FF&
BorderWidth = 2
Height = 525
Left = 105
Top = 105
Width = 525
End
End
End
Begin VB.Line Line2
X1 = 4
X2 = 171
Y1 = 144
Y2 = 144
End
Begin VB.Line Line1
X1 = 0
X2 = 160
Y1 = 144
Y2 = 144
End
Begin VB.Label lblDropItem
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Jeter"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 1320
TabIndex = 53
Top = 2265
Width = 555
End
Begin VB.Label lblUseItem
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Utiliser"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 15
TabIndex = 52
Top = 2265
Width = 690
End
End
Begin VB.PictureBox picPlayerSpells
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
CausesValidation= 0 'False
ForeColor = &H80000008&
Height = 2505
Left = 120
ScaleHeight = 167
ScaleMode = 3 'Pixel
ScaleWidth = 161
TabIndex = 46
TabStop = 0 'False
Top = 360
Visible = 0 'False
Width = 2415
Begin VB.PictureBox Picture18
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1200
Picture = "frmMirage.frx":216A9
ScaleHeight = 270
ScaleWidth = 270
TabIndex = 127
Top = 2250
Width = 270
End
Begin VB.PictureBox Picture17
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 840
Picture = "frmMirage.frx":21934
ScaleHeight = 270
ScaleWidth = 270
TabIndex = 126
Top = 2250
Width = 270
End
Begin VB.PictureBox Picture13
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2175
Left = 0
ScaleHeight = 2175
ScaleWidth = 2415
TabIndex = 123
Top = 0
Width = 2415
Begin VB.PictureBox Picture11
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 7935
Left = 240
ScaleHeight = 529
ScaleMode = 3 'Pixel
ScaleWidth = 126
TabIndex = 124
Top = 0
Width = 1890
Begin VB.PictureBox picspell
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Index = 0
Left = 120
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 125
Top = 120
Width = 480
End
Begin VB.Shape SDAD
BorderColor = &H00008000&
BorderWidth = 3
Height = 510
Left = 105
Top = 105
Visible = 0 'False
Width = 510
End
End
End
End
Begin VB.PictureBox picWhosOnline
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
CausesValidation= 0 'False
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2505
Left = 120
ScaleHeight = 2505
ScaleWidth = 2385
TabIndex = 44
TabStop = 0 'False
Top = 360
Visible = 0 'False
Width = 2385
Begin VB.ListBox lstOnline
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2190
ItemData = "frmMirage.frx":21BCC
Left = 75
List = "frmMirage.frx":21BCE
TabIndex = 45
Top = 75
Width = 2220
End
End
Begin VB.Frame fraCarte
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 2415
Left = 120
TabIndex = 54
Top = 360
Visible = 0 'False
Width = 2295
Begin VB.Image imgCarte
Height = 2295
Left = 420
Top = 0
Width = 2295
End
End
Begin VB.PictureBox picEquip
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
CausesValidation= 0 'False
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2505
Left = 120
ScaleHeight = 167
ScaleMode = 3 'Pixel
ScaleWidth = 159
TabIndex = 15
TabStop = 0 'False
Top = 360
Visible = 0 'False
Width = 2385
Begin VB.PictureBox AmuletImage2
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 555
Left = 1680
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 35
TabIndex = 27
Top = 120
Visible = 0 'False
Width = 555
Begin VB.PictureBox AmuletImage
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 15
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 28
Top = 15
Width = 495
End
End
Begin VB.PictureBox Picture14
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 555
Left = 480
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 35
TabIndex = 25
Top = 1920
Visible = 0 'False
Width = 555
Begin VB.PictureBox GlovesImage
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 15
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 26
Top = 15
Width = 495
End
End
Begin VB.PictureBox Picture12
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 555
Left = 480
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 35
TabIndex = 23
Top = 1320
Visible = 0 'False
Width = 555
Begin VB.PictureBox Ring1Image
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 15
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 24
Top = 15
Width = 495
End
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 555
Left = 1680
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 35
TabIndex = 21
Top = 1320
Visible = 0 'False
Width = 555
Begin VB.PictureBox Ring2Image
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 15
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 22
Top = 15
Width = 495
End
End
Begin VB.PictureBox Picture10
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 555
Left = 1680
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 35
TabIndex = 19
Top = 1920
Visible = 0 'False
Width = 555
Begin VB.PictureBox BootsImage
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 15
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 20
Top = 15
Width = 495
End
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 555
Left = 1080
ScaleHeight = 35
ScaleMode = 3 'Pixel
ScaleWidth = 35
TabIndex = 17
Top = 1320
Visible = 0 'False
Width = 555
Begin VB.PictureBox LegsImage
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 15
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 18
Top = 15
Width = 495
End
End
Begin VB.PictureBox picItems
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2.25000e5
Left = 2400
Picture = "frmMirage.frx":21BD0
ScaleHeight = 2.23636e5
ScaleMode = 0 'User
ScaleWidth = 477.091
TabIndex = 16
Top = 2760
Visible = 0 'False
Width = 480
End
End
Begin VB.PictureBox picGuildAdmin
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2505
Left = 120
ScaleHeight = 2505
ScaleWidth = 2385
TabIndex = 35
Top = 360
Visible = 0 'False
Width = 2385
Begin VB.TextBox txtAccess
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 720
MaxLength = 2
TabIndex = 41
Top = 585
Width = 1575
End
Begin VB.TextBox txtName
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 720
TabIndex = 40
Top = 345
Width = 1575
End
Begin VB.CommandButton cmdTrainee
Appearance = 0 'Flat
BackColor = &H80000016&
Caption = "Recruter"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 420
Style = 1 'Graphical
TabIndex = 39
Top = 975
Width = 1815
End
Begin VB.CommandButton cmdMember
Appearance = 0 'Flat
BackColor = &H80000016&
Caption = "Recruter (comme recruteur)"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 420
Style = 1 'Graphical
TabIndex = 38
Top = 1305
Width = 1815
End
Begin VB.CommandButton cmdDisown
Appearance = 0 'Flat
BackColor = &H80000016&
Caption = "Faire quitter la Guilde"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 420
Style = 1 'Graphical
TabIndex = 37
Top = 1650
Width = 1815
End
Begin VB.CommandButton cmdAccess
Appearance = 0 'Flat
BackColor = &H80000016&
Caption = "Changer l'Access"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 420
Style = 1 'Graphical
TabIndex = 36
Top = 1980
Width = 1815
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Access:"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = 150
TabIndex = 43
Top = 615
Width = 465
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nom:"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = 180
TabIndex = 42
Top = 360
Width = 345
End
End
Begin VB.PictureBox picGuild
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2505
Left = 120
ScaleHeight = 2505
ScaleWidth = 2385
TabIndex = 29
Top = 360
Visible = 0 'False
Width = 2385
Begin VB.Label lblRank
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rank"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = 1425
TabIndex = 33
Top = 975
Width = 1080
End
Begin VB.Label lblGuild
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Guild"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = 1425
TabIndex = 32
Top = 660
Width = 1065
End
Begin VB.Label Label17
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Votre access:"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 165
Left = 480
TabIndex = 31
Top = 960
Width = 825
End
Begin VB.Label Label16
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Nom de la Guilde:"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 165
Left = 240
TabIndex = 30
Top = 645
Width = 1050
End
Begin VB.Label cmdLeave
BackStyle = 0 'Transparent
Caption = "Quitter la Guilde"
BeginProperty Font
Name = "Segoe UI"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 720
TabIndex = 34
Top = 2280
Width = 1110
End
End
Begin VB.Label lblmaskinvferm
BackStyle = 0 'Transparent
Caption = " "
Height = 375
Left = 2280
TabIndex = 91
Top = 0
Width = 255
End
Begin VB.Label lblmaskinvmin
BackStyle = 0 'Transparent
Caption = " "
Height = 375
Left = 2040
TabIndex = 90
Top = 0
Width = 255
End
Begin VB.Label lblmaskinv
BackStyle = 0 'Transparent
Caption = " "
Height = 375
Left = 0
MousePointer = 5 'Size
TabIndex = 61
Top = 0
Width = 2655
End
Begin VB.Label ffermer
BackStyle = 0 'Transparent
Caption = " "
Height = 375
Left = 2280
TabIndex = 87
Top = 0
Width = 375
End
Begin VB.Label freduire
BackStyle = 0 'Transparent
Caption = " "
Height = 375
Left = 1920
TabIndex = 86
Top = 0
Width = 375
End
Begin VB.Image Image3
Height = 2985
Left = 0
Picture = "frmMirage.frx":181512
Top = 0
Width = 2595
End
End
Begin VB.Frame picParty
BackColor = &H00004080&
BorderStyle = 0 'None
Height = 2985
Left = 120
TabIndex = 219
Top = 4440
Visible = 0 'False
Width = 2595
Begin VB.PictureBox backPPLife
BackColor = &H0080FF80&
BorderStyle = 0 'None
Height = 170
Index = 0
Left = 240
ScaleHeight = 165
ScaleWidth = 2175
TabIndex = 232
Top = 600
Width = 2175
Begin VB.Shape shpPPLife
BackColor = &H0000C000&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 165
Index = 0
Left = 0
Top = 0
Width = 2175
End
Begin VB.Label lblPPLife
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "PV : "
BeginProperty Font
Name = "Segoe UI"
Size = 5.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 165
Index = 0
Left = 0
TabIndex = 233
Top = 0
Width = 2175
End
End
Begin VB.PictureBox backPPMana
BackColor = &H00FF8080&
BorderStyle = 0 'None
Height = 170
Index = 0
Left = 240
ScaleHeight = 165
ScaleWidth = 2175
TabIndex = 230
Top = 800
Width = 2175
Begin VB.Shape shpPPMana
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 165
Index = 0
Left = 0
Top = 0
Width = 2175
End
Begin VB.Label lblPPMana
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "PM : "
BeginProperty Font
Name = "Segoe UI"
Size = 5.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 165
Index = 0
Left = 0
TabIndex = 231
Top = 0
Width = 2175
End
End
Begin VB.PictureBox Picture15
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1320
Picture = "frmMirage.frx":19A98C
ScaleHeight = 270
ScaleWidth = 270
TabIndex = 229
Top = 2400
Width = 270
End
Begin VB.PictureBox Picture16
BorderStyle = 0 'None
BeginProperty Font
Name = "Segoe UI"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 960
Picture = "frmMirage.frx":19AC24
ScaleHeight = 270
ScaleWidth = 270
TabIndex = 228
Top = 2400
Width = 270
End
Begin VB.PictureBox backPPLife
BackColor = &H0080FF80&
BorderStyle = 0 'None
Height = 170
Index = 1
Left = 240
ScaleHeight = 165
ScaleWidth = 2175
TabIndex = 226
Top = 1275
Width = 2175
Begin VB.Shape shpPPLife
BackColor = &H0000C000&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 165
Index = 1
Left = 0
Top = 0
Width = 2175
End
Begin VB.Label lblPPLife
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "PV : "
BeginProperty Font
Name = "Segoe UI"
Size = 5.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 165
Index = 1
Left = 0
TabIndex = 227
Top = 0
Width = 2175
End
End
Begin VB.PictureBox backPPMana
BackColor = &H00FF8080&
BorderStyle = 0 'None
Height = 170
Index = 1
Left = 240
ScaleHeight = 165
ScaleWidth = 2175
TabIndex = 224
Top = 1485
Width = 2175
Begin VB.Shape shpPPMana
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 165
Index = 1
Left = 0
Top = 0
Width = 2175
End
Begin VB.Label lblPPMana
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "PM : "
BeginProperty Font
Name = "Segoe UI"
Size = 5.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 165
Index = 1
Left = 0
TabIndex = 225
Top = 0
Width = 2175
End
End
Begin VB.PictureBox backPPLife
BackColor = &H0080FF80&
BorderStyle = 0 'None
Height = 170
Index = 2
Left = 240
ScaleHeight = 165
ScaleWidth = 2175
TabIndex = 222
Top = 1995
Width = 2175
Begin VB.Shape shpPPLife
BackColor = &H0000C000&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 165
Index = 2
Left = 0
Top = 0
Width