Private Function CreateGeometry() As Boolean
    Dim cube() As CustomVertex.PositionColored
    Try
            p_vbCube = New VertexBuffer(GetType(CustomVertex.PositionColored), _
              36, p_D3DDevice, 0, CustomVertex.PositionColored.Format, _
              Pool.Managed)
      cube = DirectCast(p_vbCube.Lock(0, LockFlags.None), _
      CustomVertex.PositionColored())
    Catch exp As Exception
      Return False
    End Try
 
        cube(0) = New CustomVertex.PositionColored(-1, 1, 1, Color.Blue.ToArgb)
        cube(1) = New CustomVertex.PositionColored(1, 1, 1, Color.Red.ToArgb) ' 
        cube(2) = New CustomVertex.PositionColored(-1, 1, -1, Color.Blue.ToArgb)
        cube(3) = New CustomVertex.PositionColored(1, 1, -1, Color.Red.ToArgb) '
        cube(4) = New CustomVertex.PositionColored(-1, 1, -1, Color.Blue.ToArgb)
        cube(5) = New CustomVertex.PositionColored(1, 1, 1, Color.Red.ToArgb) ' 
 
 
 
        cube(0) = New CustomVertex.PositionColored(-2, 1, 2, Color.Blue.ToArgb)
        cube(1) = New CustomVertex.PositionColored(2, 1, 2, Color.Blue.ToArgb)
        cube(2) = New CustomVertex.PositionColored(0, 4, 0, Color.Red.ToArgb)
 
        cube(3) = New CustomVertex.PositionColored(2, 1, 2, Color.Blue.ToArgb)
        cube(4) = New CustomVertex.PositionColored(2, 1, -2, Color.Blue.ToArgb)
        cube(5) = New CustomVertex.PositionColored(0, 4, 0, Color.Red.ToArgb)
 
        cube(6) = New CustomVertex.PositionColored(2, 1, -2, Color.Blue.ToArgb)
        cube(7) = New CustomVertex.PositionColored(-2, 1, -2, Color.Blue.ToArgb)
        cube(8) = New CustomVertex.PositionColored(0, 4, 0, Color.Red.ToArgb)
 
        cube(9) = New CustomVertex.PositionColored(-2, 1, -2, Color.Blue.ToArgb)
        cube(10) = New CustomVertex.PositionColored(-2, 1, 2, Color.Blue.ToArgb)
        cube(11) = New CustomVertex.PositionColored(0, 4, 0, Color.Red.ToArgb)
 
 p_vbCube.Unlock()
 
    Return True
  End Function