Dim ImageView1 As ImageView
ImageView1.Initialize("")
ImageView1.SetBackgroundImage(legend)
If stats.NumberOfViews > 0 Then 'KC
stats.RemoveViewAt(0) 'KC
End If 'KC
stats.AddView(ImageView1, 10dip, 10dip, legend.Width, legend.Height)
PieDatanb = 0
ProgressDialogHide
End Sub