Sub Tile_Click
Dim b As ImageView
b=Sender
If TileA<>"" Then
TileB=b.Tag
ValueInitB
If am<>bm Then
TileB=""
ClrSel
End If
End If
If FirstTile=True Then
sounds.Play(sel1,1,1,1,0,1)
ta=Sender 'Should be ta=b
tile1.SetLayout(ta.Left,ta.Top,ta.Width,ta.Height)
tile1.Visible=True
tile1.BringToFront
ani2.Start(tile1)
TileA=b.Tag
FirstTile=False
ValueInitA
Else If SecondTile=True Then
sounds.Play(sel2,1,1,1,0,1)
tb=Sender 'Should be tb=b
SecondTile=False
tile2.SetLayout(tb.Left,tb.Top,tb.Width,tb.Height)
tile2.Visible=True
tile2.BringToFront
ani3.Start(tile2)
MatchCheck
If match=True Then
DrawLink
ClrTile
skorlbl.Text="Score" & CRLF & NumberFormat(skor,0,0)
End If
End If
End Sub