Dim b As IconButton
Dim rad As Int = 40dip
b.initialize ("touchbtn")
b.tag=no
Dim c As Int
c=Main.a100color
Dim cd As ColorDrawable
cd.Initialize (c,rad)
b.Background=cd
bd.Initialize(Basis.CreateScaledBitmap2(LoadBitmap(File.DirAssets, "ic_microphone_black_48dp.png"), 40dip, 40dip, True))
b.setIcon(False, bd)
pnlDrawing.addview (b,x-rad/2,y-rad/2,rad,rad)
Dim m As Map
m.Initialize
m.Put("no",no)
m.Put("x",x)
m.Put("y",y)
m.Put ("IconButton",b)
...
[Code]