Code:
Dim isActive As Boolean = True
Dim tick As Integer = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If tick = 30 Then
            ChangeStatus()
        Else
            tick = tick + 1
        End If
    End Sub

    Private Sub ChangeStatus()

        If isActive = False Then
            isActive = True
            Timer1.Enabled = True
            Me.Opacity = 1
            tick = 0
        Else
            Timer1.Enabled = False
            isActive = False

            Me.Opacity = 0.25

        End If
    End Sub

'Two resetTicks sub for different control signatures
    Private Sub ResetTick(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        tick = 0
        If isActive = False Then
            ChangeStatus()
        End If
    End Sub

    Private Sub ResetTick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        tick = 0
        If isActive = False Then
            ChangeStatus()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.KeyPreview = True
        AddHandler Me.KeyPress, AddressOf ResetTick
        AddHandler Me.Click, AddressOf ResetTick

        For Each c As Control In Me.Controls
            AddHandler c.Click, AddressOf ResetTick
        Next
    End Sub
Thank you Penagate for teaching me something