Sub Activity_Create(FirstTime As Boolean)
Dim label(10) As Label
Dim y As Int
y=0
For i=0 To 2
label(i).Initialize("label")
label(i).Text = "label "& i
label(i).tag = i
Activity.AddView(label(i),0,y,50dip,50dip)
y=y+60
Next
End Sub
Sub label_Click
Dim label As Label
label = Sender
If label.Tag = 0 Then
label.Text = "Clicked "&0
Else If label.Tag = 1 Then
label.Text = "Clicked "&1
Else If label.Tag = 2 Then
label.Text = "Clicked "&2
End If
End Sub
I assume above code explains how sender and tag works.