Sub Activity_Create(FirstTime As Boolean)
Dim GD As GradientDrawable
GD.Initialize("TOP_BOTTOM", Array As Int(Colors.White, Colors.Black))
Activity.Background = GD
SetRadialGradient(GD, Activity.Height/2)
End Sub
Sub SetRadialGradient(GD As GradientDrawable, radius As Float)
Dim r As Reflector
r.Target = GD
r.RunMethod2("setGradientType", 1, "java.lang.int")
r.RunMethod2("setGradientRadius", radius, "java.lang.float")
End Sub