Adding Tag data to Label error

Type Harry(col As Byte, row As Byte)
Dim pos as Harry
Dim Tom, snd as Label
...
pos.col = x : pos.row = y
...
Tom(pos, "abc")
...

Sub Tom(loc as Harry, sEvent as String)
    Dim Dick As Label
    Dick.Initialize(sEvent)
    Dick.Tag = loc         '[I]save label's position as col and row[/I]
    pnl.AddView(Dick, ... ...)
End Sub

Sub abc_Click
    snd = Sender
    pos = snd.Tag   '[I]Retrieve the label's position as col and row[/I]
    ...
End Sub