Mobile

<br />
Public Class FormMain<br />
    Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    Friend WithEvents inputTimer As System.Windows.Forms.Timer<br />
    Friend WithEvents outputTimer As System.Windows.Forms.Timer<br />
<br />
    Private Sub InitializeComponent()<br />
        Me.inputTimer = New System.Windows.Forms.Timer<br />
        Me.outputTimer = New System.Windows.Forms.Timer<br />
        '<br />
        'inputTimer<br />
        '<br />
        Me.inputTimer.Enabled = True<br />
        '<br />
        'outputTimer<br />
        '<br />
        Me.outputTimer.Enabled = True<br />
        Me.outputTimer.Interval = 500<br />
<br />
        Me.Text = "Threads"<br />
<br />
    End Sub<br />
<br />
    Public Shared Sub Main()<br />
        Application.Run(New FormMain)<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Private _inputs As Integer = 0<br />
<br />
    Private Sub inputTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inputTimer.Tick<br />
        Try<br />
            Threading.Monitor.Enter(_inputs)<br />
<br />
            _inputs += 1<br />
<br />
            Threading.Monitor.Exit(_inputs)<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
    End Sub<br />
<br />
    Private Sub outputTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outputTimer.Tick<br />
        Try<br />
            Threading.Monitor.Enter(_inputs)<br />
<br />
            _inputs = 0<br />
<br />
            Threading.Monitor.Exit(_inputs)<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
    End Sub<br />
End Class<br />