Postato originariamente da Ale96:
Non ho capito molto bene, prova ad inviare un codice. da quello che hai detto ho capito che hai inserito delle immagini in una procedura (di solito si inseriscono nelle risorse del programma).
Si ma più che immagini li definirei disegni
Public Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
[b]RimorchioUno()[/b]
End Sub
Public Sub RimorchioUno(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
'RimorchioUno
[b][/b]
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
Scusatemi ancora se non sono esperto