dessiner un polygone

bonjour,
je cherche à dessiner un polygone, pour cela, j'ai créer cette procédure qui marche bien tant que le point de départ est (0,0) mais si je veux le placer ailleurs, le point (0,0) est rajouter au tableau de points servant à dessiner la figure. Si vous avez une idée, merci.

Sub dessine_baseB(ByVal g As Graphics, ByVal fond As Color, ByVal x0 As Integer, ByVal y0 As Integer, ByVal cote As Integer)
        Dim br As New SolidBrush(fond)

        Dim tab(6) As Point
        tab(0) = New Point(x0, y0)
        tab(1) = New Point(x0 + cote, y0)
        tab(2) = New Point(x0 + cote, y0 + cote)
        tab(3) = New Point(x0 + 2 * (cote / 3), y0 + cote)
        tab(4) = New Point(x0 + 2 * (cote / 3), y0 + 2 * (cote / 3))
        tab(5) = New Point(x0, y0 + (cote / 3))

        g.FillPolygon(br, tab)
        br.Dispose()

End Sub



dans le load :
Dim bitmap As New System.Drawing.Bitmap(90, 200)
       
Dim g As Graphics = Graphics.FromImage(bitmap)

dessine_baseB(g, System.Drawing.Color.SpringGreen, 0, 0, 40) : pas de pb
dessine_baseB(g, System.Drawing.Color.SpringGreen, 30, 30, 40) : insère le point (0;0) comme origine du polygone

ok. merci