Private Sub finalcountdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles finalcountdown.Tick
        If NYTimer > Date.Now Then
            Dim remainingTime As TimeSpan = Me.NYTimer.Subtract(Date.Now)
            Dim countdowncolor As Integer = remainingTime.Seconds
            countdown.Text = String.Format(remainingTime.Seconds)
            If colourvariant(countdowncolor, 3) = True Then
                Dim alpha As Integer = CInt(Int((254 * Rnd()) + 0)), R As Integer = CInt(Int((254 * Rnd()) + 0)), G As Integer = CInt(Int((254 * Rnd()) + 0)), B As Integer = CInt(Int((254 * Rnd()) + 0))
                countdown.BackColor = Color.FromArgb(alpha, R, G, B)
            End If
        Else
            Me.finalcountdown.Stop()
            MsgBox("HAPPY NEW YEAR!")
        End If
    End Sub