Sub DarkBlue As GradientDrawable
Dim gd1 As GradientDrawable
Dim cols1(2) As Int
cols1(0) = Colors.ARGB(255,0,0,139)
cols1(1) = Colors.Black
gd1.Initialize("TOP_BOTTOM",cols1)
gd1.CornerRadius=0
Return gd1
End Sub
'from the activity module
Activity.Background = CodeModuleName.DarkBlue