Dim GradBk As GradientDrawable
Dim Gb As GradientDrawable
'
GradBk.Initialize("LEFT_RIGHT", Array As Int (Colors.RGB(238,232,170), Colors.RGB(238,221,130)))
ProgressPanel.Initialize("Progress")
ProgressPanel.Background = GradBk
ProgressPanel.BringToFront
ProgressPanel.Visible = True
Activity.AddView(ProgressPanel, 0, (100%y/2)-40dip,100%x,60dip)
'
Prog.Initialize("Progress")
Gb.Initialize("TOP_BOTTOM", Array As Int (Colors.Yellow , Colors.RGB(184,134,11)))
Gb.CornerRadius = 3dip
SetProgressDrawable(Prog,Gb)
Prog.Progress = 0
ProgressPanel.AddView(Prog, 10dip, (100%y/2), 100%x-20dip, 5dip)
'
ProgLbl.Initialize("Progress")
ProgLbl.Text = "One Moment Please..."
ProgLbl.TextColor = Colors.Black
ProgressPanel.AddView (ProgLbl, 30, (100%y/2)-20dip, 240dip, 30dip)