Sub Activity_Create(FirstTime As Boolean)
Activity.Color=Colors.Gray
Dim cls As ColorDrawable
cls.Initialize(Colors.White,15dip)
For i = 1 To 5
Dim pnl As Panel
pnl.Initialize("pnl")
pnl.Background=cls
Activity.AddView(pnl,10dip,(i*80dip),100%x-20dip,70dip)
Dim adb1 As ArrowDownloadButton
adb1.Initialize("adb")
adb1.RingColor = Colors.Blue
adb1.ProgressColor = Colors.yellow
adb1.ProgressTextColor = Colors.white
adb1.ArcWidth = 30
adb1.ProgressTextSize = 60
pnl.AddView(adb1,0,0,0,0)
adb1.Height=60dip
adb1.Width=adb1.Height
adb1.Left=(pnl.Width-adb1.Width)/2
adb1.Top=5dip
If i = 3 Then
adb1.startAnimating 'it works
End If
Next
End Sub
Sub pnl_Click
Dim panel As Panel
panel=Sender
Dim adb2 As ArrowDownloadButton
adb2=panel.GetView(0)
adb2.startAnimating 'it not works
adb2.Top=0 'it not works
End Sub