Cc(4).Initialize2 ( "" , "Campo4" , (Activity.Width/12)*2 , _
Gravity.CENTER_HORIZONTAL+Gravity.CENTER_VERTICAL)
Cc(4).HeaderGravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL
For j=1 To ultimo.Get("club")
Dim Escudo As Bitmap
Try'Compruebo que tenga escudo
Escudo.InitializeSample(File.DirAssets,"e"&j&".png",Activity.Width/12,Activity.Width/12)
Catch
Escudo.InitializeSample(File.dirassets,"e0.png",Activity.Width/12,Activity.Width/12)
End Try
Cc(4).RowIconPut(j,Escudo)
Next
Cc(4).SetTypeImage
cgrid.ColAppend ( Cc(4) )