Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles B1.Click
        ID = ID + 1
        If ID = 1 Then
            Unit(ID) = New Unit
            Unit(ID).LoadUnit(ID, "Rekruten", 1)
            Unit(ID).Move(200, 200)
            PictureBox1.Refresh()
        End If
        If ID = 2 Then
            Unit(ID) = New Unit
            Unit(ID).LoadUnit(ID, "Paladin", 1)
            Unit(ID).Move(150, 150)
            PictureBox1.Refresh()
        End If
    End Sub
 
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        For i As Integer = 1 To ID
            Unit(i).Paint(e.Graphics)
        Next
    End Sub