Public Class TwentyBlinksLabel
    Inherits Label
    Private WithEvents BTmr As New Timer
    Public Sub New()
        BTmr.Interval = 500
        BTmr.Start()
        BTmr.Tag = "0"
    End Sub
    Private Sub DoBlick(ByVal sender As Object, ByVal e As EventArgs) Handles BTmr.Tick
        If BTmr.Tag.Contains("38") = False Then
            Visible = Not Visible
            BTmr.Tag = (CInt(BTmr.Tag) + 1).ToString()
        Else
            Visible = True
        End If
    End Sub
End Class