Private EinheitenBild As Image = My.Resources.Rekruten
    Public Sub Paint(ByVal g As Graphics)
        g.DrawImage(EinheitenBild, Position)
 
    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        For i As Integer = 0 To einheiten.Length - 1
            einheiten(i).Paint(e.Graphics)
        Next
    End Sub