Dim Target as ImageView = Sender
Dim targetLabel As Label
MySelection = target.Tag
Select MySelection
Case "xpto"
targetLabel = Label1
Case ..."
End Select
y=target.Top
yl=targetLabel.Top - 5
target.SetLayoutAnimated(300,x,y,80,80)
targetLabel.SetLayoutAnimated(300,xl,yl,55,30)
targetLabel.TextSize = 14