Sub Button1_Click
Dim iv As ImageView
Dim c As Canvas
Dim rect1 As Rect
Dim tf As Typeface
Dim rx1,ry1,rw,rh As Int
Dim r_,g_,b_,clr As Int
Dim Height_, Width_,fs As Int
Dim lbl As Label
Dim obj As Reflector
fs=23 ' Font size
tf=Typeface.DEFAULT
lbl.Initialize("lbl")
Activity.AddView(lbl,0,0,1,1)
lbl.Typeface=tf
lbl.TextSize=fs
lbl.Text=Rnd(1,99)
lbl.Width=-2
lbl.Height=-2
DoEvents
obj.Target = lbl
Width_ = obj.RunMethod("getWidth")
Height_ = obj.RunMethod("getHeight")
iv.Initialize("iv")
rx1=Rnd(0,90%x)
ry1=Rnd(0,80%y)
rw=10%x
rh=10%x
r_=Rnd(0,255)
g_=Rnd(0,255)
b_=Rnd(0,255)
Activity.AddView(iv,rx1,ry1,rw,rh)
c.Initialize(iv)
rect1.Initialize(0,0,rw,rh)
c.DrawOval(rect1,Colors.RGB(r_,g_,b_),True,5dip)
c.DrawText(lbl.Text,(rw-Width_)/2,(rh+fs)/2,tf,fs, Colors.Black,"LEFT")
End Sub