Private Sub m_objSpielfeld_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles m_objSpielfeld.Paint
        If IsNothing(m_objObjekt) Then Exit Sub
 
        Dim shoZähler As Short
 
        For shoZähler = 0 To CShort(m_objObjekt.GetUpperBound(0))
            With CType(m_objObjekt(shoZähler), Figur)
                'Hier wird die Figur an seiner aktuellen Position eingezeichnet:
                e.Graphics.DrawImage(m_objLevelliste.Level( _
                  m_shoAktuelle_Levelnummer).Objektset.Bitmaps( _
                  .BitmapsetPosition.Höhe, .BitmapsetPosition.Breite), _
                  .Position.Breite, .Position.Höhe, m_objLevelliste.Level( _
                  m_shoAktuelle_Levelnummer).BitmapInfos.Bitmap_Breite, _
                  m_objLevelliste.Level( _
                  m_shoAktuelle_Levelnummer).BitmapInfos.Bitmap_Höhe)
            End With
        Next shoZähler
    End Sub

m_bitSpielfeld = GetSpielfeld(m_objLevelliste.Level(m_shoAktuelle_Levelnummer))
m_objSpielfeld.Image = New Bitmap(m_bitSpielfeld)

m_objSpielfeld.Invalidate()