Sub Activity_Create(FirstTime As Boolean)
For i = 0 To 15
Dim b As Button
b.Initialize("btn")
b.Text = "btn" & i
b.Tag = i
Dim row, col As Int
col = i Mod 4
row = Floor(i / 4)
Activity.AddView(b, 20dip + col * 70dip, 20dip + row * 70dip, 65dip, 65dip)
Next
End Sub
Sub btn_Click
Dim btn As Button
btn = Sender
Msgbox("You pressed on button: " & btn.Tag, "")
End Sub