عاجل لاصحاب الباساج 2011 كتابي

Public Class Triangle
    Implements Translation

    Public p1, p2, p3 As New point ' tu doit utiliser private et les property :)
    Public Couleur As Integer


    Public Sub Translation1(ByVal dx As Single, ByVal dy As Single) Implements Translation.Translation
        p1.X += dx : p1.Y += dy
        p2.X += dx : p2.Y += dy
        p3.X += dx : p3.Y += dy
    End Sub
End Class