Sub keywordsCloud
Dim lst As List
lst.Initialize
lst.AddAll(Array As String("Erel","B4X","Hamied","Newyork","Sana'a","Dubai","ykucuk","toby","Egypt","Frankfourt","Erel","B4X","Hamied","Newyork","Sana'a","Dubai","ykucuk","toby","Egypt","Frankfourt"))
For i=0 To lst.Size-1
Dim lbl As Label
lbl.Initialize("")
lbl.TextColor=Colors.Green
lbl.Text=lst.Get(i)
lbl.TextSize=Rnd(8,30)
Panel1.AddView(lbl,Rnd(0,Panel1.Width),Rnd(0,Panel1.Height),100dip,40dip)
Next
End Sub