Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Me.Label1.BackColor = Color.Transparent
        Me.Timer1.Interval = 2000
        Me.Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If Me.BackColor = Color.Blue Then
            Me.BackColor = Color.Pink
        Else
            Me.BackColor = Color.Blue
        End If
    End Sub
End Class