 OLE_COLOR, _
      ByVal topRightColor As OLE_COLOR, _
      ByVal bottomLeftColor As OLE_COLOR, _
      ByVal bottomRightColor As OLE_COLOR _
   )
Dim hBrush As Long
Dim lTopLeftColor As Long
Dim lTopRightColor As Long
Dim lBottomLeftColor As Long
Dim lBottomRightColor As Long
Dim lR As Long
   
   ' Use GradientFill:
   OleTranslateColor topLeftColor, 0, lTopLeftColor
   OleTranslateColor topRightColor, 0, lTopRightColor
   OleTranslateColor bottomLeftColor, 0, lBottomLeftColor
   OleTranslateColor botto