Private Sub SquareVertices(ByVal vertices As  _
      Direct3D.CustomVertex.TransformedTextured(), ByVal X As Single, ByVal Y _
      As Single, _
           ByVal Width As Integer, ByVal Height As Integer, ByVal ProzX1 As _
           Single, _
           ByVal ProzY1 As Single, ByVal ProzX2 As Single, ByVal ProzY2 As _
           Single)
        'ProzX1 = 0
        'ProzY1 = 0
        'ProzX2 = 1
        'ProzY2 = 1
 
        vertices(0) = CreateVertex(X, Y, 0, 1, ProzX1, ProzY1)            ' 
        ' Left-Top
        vertices(1) = CreateVertex(X + Width, Y, 0, 1, ProzX2, ProzY1)     ' 
        ' Right-Top
        vertices(2) = CreateVertex(X, Y + Height, 0, 1, ProzX1, ProzY2)     ' 
        ' Bottom-Left
        vertices(3) = CreateVertex(X + Width, Y + Height, 0, 1, ProzX2, ProzY2) _
          ' Bottom-Right
    End Sub   ' SquareVertices
 
    Private Function CreateVertex(ByRef X As Single, ByRef Y As Single, ByRef Z _
      As Single, _
                 ByVal rhw As Single, ByRef tu As Single, ByRef tv As Single) _
                 As Direct3D.CustomVertex.TransformedTextured
        CreateVertex.X = X
        CreateVertex.Y = Y
        CreateVertex.Z = Z
        CreateVertex.Rhw = rhw
        CreateVertex.Tu = tu
        CreateVertex.Tv = tv
    End Function   ' CreateFlexVertex