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