mRightColor, 0, lBottomRightColor

   Dim tTV(0 To 3) As TRIVERTEX
   Dim tGR(0 To 1)  As GRADIENT_TRIANGLE
   
   setTriVertexColor tTV(0), lTopLeftColor
   tTV(0).x = tR.left
   tTV(0).y = tR.top
   
   setTriVertexColor tTV(1), lTopRightColor
   tTV(1).x = tR.right
   tTV(1).y = tR.top
   
   setTriVertexColor tTV(2), lBottomRightColor
   tTV(2).x = tR.right
   tTV(2).y = tR.bottom
   
   setTriVertexColor tTV(3), lBottomLeftColor
   tTV(3).x = tR.left
   tTV(3).y = tR.bottom
   
   tGR(0).Vertex1 = 0
  