you did create a sub
Code:
Sub lbl_Click
lblSelected = Sender
End Sub
but the labels you defined in designer does not have the eventname "lbl"... they had lbldata1 and lbldata2... I changed oth to lbl
THEN in your
Code:
Sub btnEvent_Click
End Sub
sub you used always lablSelected instead of lblSelected