Sub gradient(av As Page)
Dim cv As Canvas
Dim pane As Panel
pane.Initialize("")
pane.Color = Colors.White
av.RootPanel.AddView(pane,0,0,100%x,100%y)
Dim Colours(3) As Int
Colours(0) = Colors.Green
Colours(1) = Colors.White
Colours(2) = Colors.Blue
cv.Initialize(pane)
cv.FillGradient(0,0,100%x,100%y,Colours)
cv.ro
cv.Refresh
End Sub