Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
            Dim f As Form3 = CType(Me.FindForm(), Form3)
            Dim cl As UCStpl = CType(Me.Parent, UCStpl)
            If Not cl.currentLabel Is Nothing Then
                cl.currentLabel.Unhilite()
            End If
            Hilite()
            cl.currentLabel = Me
            cl.currentLabel.Text = f.L_ABC.Text
        End Sub