Sub Globals
Private pnlTest As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
pnlTest.Initialize("")
Activity.AddView(pnlTest, 20dip, 20dip, 256dip, 50dip)
Private gdb As GradientDrawable
Private GradColors(3) As Int = Array As Int(Colors.White, Colors.Red , Colors.Black)
gdb.Initialize("LEFT_RIGHT", GradColors)
pnlTest.Background= gdb
End Sub