Sub Globals
Dim btn(3) As Button
Dim lbl(3) As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
For i = 0 To btn.Length -1
btn(i).Initialize("Button")
btn(i).Tag = i
btn(i).Text = ""
Activity.AddView(btn(i),0,i*90dip,240dip,80dip)
bl(i).Initialize("")
lbl(i).Text = "Hello"
lbl(i).Tag = i
lbl(i).TextSize = 34
lbl(i).Gravity = Gravity.CENTER_HORIZONTAL
Activity.AddView(lbl(i),20dip,btn(i).Top + 15dip,200dip,60dip)
Next
End Sub
Sub Button_Click
Dim b As Button = Sender
Dim i As Int = b.Tag
If lbl(i).Visible = True Then
lbl(i).SetVisibleAnimated (1000, False) 'for test replace with lbl(i).Visible = False
Else
lbl(i).SetVisibleAnimated(1000, True) 'for test replace with lbl(i).Visible = True
End If
End Sub