[2005] How to set applications opacity to 75% after application is inactive for 30sec

[penagate]

Can you please expand on that code a little penagate? I dont understand what is happening.

The KeyPreview property of the form allows it to receive keyboard events before its controls do.
AddHandler is a VB.NET statement used to attach an event handler to a particular event.

[zalez]

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