Attribute VB_Name = "Mod_DessineMaillage"
Public Sub AfficheUneGrille(Pct_Child As PictureBox)
'======================================================================================
'Affiche une grille
'======================================================================================
    'Cette exemple est la uniquement pour montrer comment on dessine
    'une grille sur ces fenetres avec la propriete AutoRedraw
    'Cette Sub sera appellee par la fonction Zoom quand son flag DrawGrid sera
    'egal a true

    'La grille doit etre permanente, on met la propriete autoredraw a True
    Pct_Child.AutoRedraw = True
    
    'Draw line Vertically
    For I = 1 To Pct_Child.Width Step Pct_Child.Width / 10
       For J = 1 To Pct_Child.Height Step Pct_Child.Height / 10
       
           'Dessine ligne verticalement
           Pct_Child.Line (I, 0)-(I, Pct_Child.ScaleHeight), vbBlack
            
           'Dessine ligne horizontalement
           Pct_Child.Line (0, J)-(Pct_Child.ScaleWidth, J), vbBlack
    
       Next J
    Next I
    
    'on remet autoredraw a False une fois la grille dessinee
    Pct_Child.AutoRedraw = False
End Sub


