Sub loadRadioButtons
Dim aw As Int, ph As Int
aw=Activity.Width-50dip: ph=0
Dim txtSize
Dim spacing
Dim s As String
txtSize=12dip
spacing=20dip
s="":For l=0 To 99:s=s & "x" :Next
For k=0 To 3
Dim rbtxt As String
Dim rbh
Dim rb As RadioButton
Dim rbL As Int
rb.Initialize("radioButtons")
rb.text =s.SubString (Rnd(0,100))
rb.TextSize =txtSize
Dim cnv As Canvas
cnv.Initialize(Activity)
Dim wdth As Float,hght As Float
wdth=cnv.MeasureStringWidth (rb.Text,Typeface.DEFAULT ,txtSize)
hght=cnv.MeasureStringheight (rb.Text,Typeface.DEFAULT ,txtSize)
rbL=wdth/aw+1
rbh=rbL*hght+spacing
Activity.AddView (rb,0,ph,aw,rbh)
ph=ph+rbh
Next
End Sub