RÉCUPÉRER LA VALEUR RGB D'UN POINT ET ZOOM

Function CoulPoint(PB As PictureBox, X, Y, rd, vd, bd)
    Dim r As Long
    Dim v As Long
    Dim b As Long
    Dim Couleur1
    Dim Couleur2
    Couleur1 = PB.Point(X * 14.99, Y * 14.99)
    Couleur2 = Couleur1
    bd = ((((Couleur2 \ &H10000) And &HFF) * 50) + (((Couleur1 \ &H10000) And &HFF) * 50)) \ 100
    vd = ((((Couleur2 \ &H100) And &HFF) * 50) + (((Couleur1 \ &H100) And &HFF) * 50)) \ 100
    rd = (((Couleur2 And &HFF) * 50) + ((Couleur1 And &HFF) * 50)) \ 100
    CoulPoint = RGB(rd, vd, bd) 'pour avoir la couleur directement !
End Function