VB.Net Application Idle timer

[Polymorpher]

Hi, I built an event timer for my application, but I keep getting errors when i try to run it...bellow is my code, and then the error...If you have any sugestions please let me know...There error occurs durring the call to GetLastInputInfo():

Imports System.Windows.Forms
Imports system.Runtime.InteropServices
 
Public Class IdleTimmer
 
#Region " InputInfo "
    Private Declare Function GetLastInputInfo Lib "User32.dll" (ByRef lii As LASTINPUTINFO) As Boolean
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure LASTINPUTINFO
        Public cbSize As UInteger
        Public dwTime As UInteger
    End Structure
#End Region
 
#Region " Events "
    Public Event UserIdleTimeExpired()
#End Region
 
#Region " Variables "
    Private WithEvents mTimmer As Timers.Timer
    Private mTimeOut As UInteger
#End Region
 
#Region " Events "
    Private Sub mTimmer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles mTimmer.Elapsed
        If GetIdleTimeInSeconds() >= mTimeOut Then
            Me.Stop()
            RaiseEvent UserIdleTimeExpired()
        End If
    End Sub
#End Region
 
#Region " Functions "
    Private Function GetIdleTimeInSeconds() As UInteger
        Return (Environment.TickCount - GetLastInputTime()) / 1000
    End Function
 
    Private Function GetLastInputTime() As UInteger
        Dim lii As New LASTINPUTINFO
        lii.cbSize = Marshal.SizeOf(lii)
 
        If GetLastInputInfo(lii) Then
            Return Environment.TickCount - lii.dwTime
        End If
    End Function
#End Region
 
#Region " Subs "
    Public Sub Start(ByVal timeoutTime As UInteger)
        If mTimmer Is Nothing Then mTimmer = New Timers.Timer
 
        mTimeOut = timeoutTime
        mTimmer.AutoReset = True
        mTimmer.Interval = 1000UI
        mTimmer.Start()
    End Sub
 
    Public Sub [Stop]()
        If Not mTimmer Is Nothing Then mTimmer.Stop()
    End Sub
#End Region
 
End Class
 

A first chance exception of type 'System.NotSupportedException' occurred in mscorlib.dll

[marcothy]

maybe its the SizeOf which can't convert from Integer to UInteger when assigning cbSize. do like... CUInt(Marshal.SizeOf(lii))