EDITEUR DE PERSONNAGE

'Ici nous nommons toutes les variables
Option Explicit
'L'apparence
Dim a As Integer
Dim b As Integer
'Les statistiques
Dim Force As Integer
Dim Intel As Integer
Dim Vital As Integer
Dim Dex As Integer
Dim Agi As Integer
'Les points
Dim total As Integer

Private Sub Form_Load()
'Afficher la tête
imgtete = frmgarcon.imgtete(a)
'Afficher le corps
Imgcorps = frmgarcon.Imgcorps(a)
'Mettre lbltotal à 20 points
lbltotal = total + 20
total = total + 20
'Mettre les points de à 1 pour toutes les catégories
'Force = 1
    Force = 1
    lblfor = Force
'Intelligence = 1
    Intel = 1
    lblint = Intel
'Vitalité = 1
    Vital = 1
    lblvit = Vital
'Dextérité = 1
    Dex = 1
    lbldex = Dex
'Agilité = 1
    Agi = 1
    lblagi = Agi

End Sub

' ils manque environs 250 lignes de codes