Try:

.Fill.OneColorGradient Style:=4

RBS


"avi" wrote in message
...
Hello,

I have a a piece of code that works well in VBA

The same code works well in VB6 apart the
"fill.Fill.OneColorGradient ...." line

xlApp.ActiveChart.SeriesCollection(1).Select
With xlApp.Selection
.Interior.ColorIndex = 13
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 12
.Fill.OneColorGradient Style:=msoGradientDiagonalDown,
Variant:=3, Degree:=0.903
End With

Could be that vb6 does not support some vba commands?

Thanks a lot
Avi