Android Question Strange bug when using GradientDrawable

Sub Globals
    Dim clrs(2) As Int
    Dim background As Int
    
    Private Label1 As Label
    Private Label2 As Label
    Private Panel1 As Panel
    Private EditText1 As EditText
    Private Panel2 As Panel
    Private Label3 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
    Panel1.Width=GetDeviceLayoutValues.Width
    Label1.Width=GetDeviceLayoutValues.Width
    Label3.Width=GetDeviceLayoutValues.Width
    colorsetting1
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub colorsetting1
    clrs(0) = 0xFF00008B
    clrs(1) = 0xFF282828
    background=0xff4c434d
    Panel1.Color=background
    Panel2.Color=background
    Label1.Background=CreateGradientDrawable
    Label2.Background=CreateGradientDrawable
End Sub

Sub CreateGradientDrawable As GradientDrawable
    Dim grdr As GradientDrawable
    grdr.Initialize("LEFT_RIGHT",clrs)
    Return grdr
End Sub

Sub Button1_Click
    Dim kb As Phone
    kb.HideKeyboard(Activity)
    Panel2.Visible=False
End Sub

Sub button_popup_Click
    EditText1.Text=""
    Panel2.Visible=True
End Sub

Sub button_fix_Click
    Label1.Background = CreateGradientDrawable
End Sub