C# / VB.NET - Disegniare Picturebox richiamando sub

Ok, ho risolto al problema nel seguente modo:

 Public Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
        RimorchioUno(e)
    End Sub
    Public Sub RimorchioUno(ByVal e As System.Windows.Forms.PaintEventArgs)
        'RimorchioUno
        Dim antsin As New Rectangle(2, 10, 2, 5)
        Dim antdes As New Rectangle(34, 10, 2, 5)
        Dim possin As New Rectangle(2, 55, 2, 5)
        Dim posdes As New Rectangle(34, 55, 2, 5)
        Dim possin2 As New Rectangle(2, 61, 2, 5)
        Dim posdes2 As New Rectangle(34, 61, 2, 5)
        'Bordi Esterni
        e.Graphics.FillPolygon((Brushes.Blue), rimorchiounomuso)
        e.Graphics.DrawPolygon((Pens.Gray), rimorchiounomuso)
        'Apertura Posteriore
        Dim zx As New Point(8, 71)
        Dim xz As New Point(31, 71)
        e.Graphics.DrawLine((Pens.Red), zx, xz)
        'Cardini Portellone Posteriore
        Dim qw As New Rectangle(7, 70, 2, 2)
        Dim wq As New Rectangle(30, 70, 2, 2)
        e.Graphics.DrawEllipse(Pens.DarkRed, qw)
        e.Graphics.FillEllipse(Brushes.DarkRed, qw)
        e.Graphics.DrawEllipse(Pens.DarkRed, wq)
        e.Graphics.FillEllipse(Brushes.DarkRed, wq)
        'Ruota Anteriore Sinistra
        e.Graphics.DrawEllipse(Pens.Black, antsin)
        e.Graphics.FillEllipse(Brushes.Black, antsin)
        'Ruota Anteriore Destra
        e.Graphics.DrawEllipse(Pens.Black, antdes)
        e.Graphics.FillEllipse(Brushes.Black, antdes)
        'Ruota Posteriore Sinistra
        e.Graphics.DrawEllipse(Pens.Black, possin)
        e.Graphics.FillEllipse(Brushes.Black, possin)
        'Ruota Posteriore Destra
        e.Graphics.DrawEllipse(Pens.Black, posdes)
        e.Graphics.FillEllipse(Brushes.Black, posdes)
        'Seconda Ruota Posteriore Sinistra
        e.Graphics.DrawEllipse(Pens.Black, possin2)
        e.Graphics.FillEllipse(Brushes.Black, possin2)
        'Seconda Ruota Posteriore Destra
        e.Graphics.DrawEllipse(Pens.Black, posdes2)
        e.Graphics.FillEllipse(Brushes.Black, posdes2)
    End Sub

Ringrazio ancora Ale96 per la guida.

Forse esiste una soluzione migliore, ma dipende poi dal resto del codice:
Puoi sostituire la linea del codice che richiama la procedura con la procedura stessa (Senza sub(byval ...) ... end sub). Se la stessa procedura non viene richiamata in nessuna altra parte del codice fai così.

Purtroppo devo richiamare la procedura in 6 picturebox (o meglio, devo richiamare questa ed altre cinque procedure ["RimorchioDue" ecc...] in altre 5 picturebox).

La soluzione suddivisa in subroutines è la soluzione migliore.

Per farti felice con questo post chiedo a chi ne abbia la possibilità di togliere la i.