Sub InitializeButton
Dim timg As Int
Dim index As Int = 5
For n=0 To 11
Mese(n).Initialize ("Mese")
If n=0 Then
Mese(n).SetBackgroundImage(img(0))
Else
Mese(n).SetBackgroundImage (img(1))
End If
Mese(n).Gravity =Bit.OR(Gravity.CENTER_HORIZONTAL, Gravity.CENTER_VERTICAL)
Mese(n).Typeface =Typeface.DEFAULT_BOLD
Mese(n).TextSize =20
Mese(n).TextColor =Colors.White
Mese(n).Tag =n
Pnl.AddView (Mese(n),index, 5dip, 100dip, 40dip)
index=index +105dip
Next
Mese().Text =Array As String("Gen", "Feb", "Mar", "Apr", "Mag", "Giu", "Lug", "Ago", "Set", "Ott", "Nov", "Dic")