Error in the application, lors du Rendu

J'ai une erreur lors du rendu de mes éléments, voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        '[------------------------------------]
        '   3. RENDER LAYERS
        '[------------------------------------]
 
        If bRenderLayer Then
            D3DDev.SetStreamSource(0, vbLayer, 0)
            Dim i As Long
            For i = 0 To iLayer - 1 Step 18
                D3DDev.SetStreamSource(0, vbLayer, 0)
                D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i, 8)
                D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i + 10, 2)
                D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i + 14, 2)
            Next i
        End If
 
        '[------------------------------------]
        '   4. RENDER ELEMENTS
        '[------------------------------------]
        D3DDev.SetStreamSource(0, vbElem, 0)
        D3DDev.VertexFormat = CustomVertex.PositionColoredTextured.Format
        D3DDev.DrawPrimitives(PrimitiveType.LineList, 0, iElem / 2)

L'erreur est située lors de

Code:

D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i, 8)

et ça me dit Error in the application.

Pourtant, si je ne fait qu'inverser la partie RENDER LAYERS avec la partie RENDER ELEMENTS, je n'ai plus d'erreur et ça fonctionne... Je pourrais bien le changer de place, mais j'aimerais comprendre pourquoi ça fonctionne pas.

Merci
[/code]