Visual Basic

Imports System.Threading

Public Class Test
    Private Shared queue As ProducerConsumer

    Shared Sub Main()
        queue = New ProducerConsumer()
        CType(New Thread(New ThreadStart(AddressOf ConsumerJob)), Thread).Start()

        Dim rng As New Random(0)
        For i As Integer = 0 To 9
            Console.WriteLine("Producing {0} in thread {1}", i, Thread.CurrentThread.ManagedThreadId.ToString)
            queue.Produce(i)
            Thread.Sleep(rng.Next(1000))
        Next i
    End Sub

    Private Shared Sub ConsumerJob()
        ' Make sure we get a different random seed from the first thread
        Dim rng As New Random(1)
        ' We happen to know we've only got 10 items to receive
        For i As Integer = 0 To 9
            Dim o As Object = queue.Consume()
            Console.WriteLine(Constants.vbTab + Constants.vbTab + Constants.vbTab + Constants.vbTab & "Consuming {0} in thread {1}", o, Thread.CurrentThread.ManagedThreadId.ToString)
            Thread.Sleep(rng.Next(1000))
        Next i
    End Sub
End Class

Public Class ProducerConsumer
    Private ReadOnly listLock As Object = New Object()
    Private queue As New Queue()

    Public Sub Produce(ByVal o As Object)
        SyncLock listLock
            queue.Enqueue(o)
            ' We always need to pulse, even if the queue wasn't empty before. Otherwise, if we add several items
            ' in quick succession, we may only pulse once, waking a single thread up, even if there are multiple
            ' threads() waiting for items.            
            Monitor.Pulse(listLock)
        End SyncLock
    End Sub

    Public Function Consume() As Object
        SyncLock listLock
            ' If the queue is empty, wait for an item to be added. Note that this is a while loop, as we may 
            ' be(pulsed)but not wake up before another thread has come in and consumed the newly added object.
            ' In that case, we'll have to wait for another pulse.
            Do While queue.Count = 0
                ' This releases listLock, only reacquiring it after being woken up by a call to Pulse
                Monitor.Wait(listLock)
            Loop
            Return queue.Dequeue()
        End SyncLock
    End Function
End Class

using sr as stringreader = new stringreader("MyFile)
   dim inLine as string = sr.readline() 'assumes first line has tag
   while sr.peek >=0
      dim s as string = sr.readline
      if s.startwith(":")
         'write inLine as db record
         inLine = s
      else
         inline = inLine & s
      end if
   end while
end using

using sr as stringreader = new stringreader("MyFile)
   dim inLine as string = sr.readline() 'assumes first line has tag
   while sr.peek >=0
      dim s as string = sr.readline
      if s.startwith(":")
         'Might be possible to use Select Case instead of multiple Ifs
         If inline.Startswith(":61:") then
             'do 61 stuff
         End if

         If inline.Startswith(":86:") then
             'do 86 stuff
         End if

         inLine = s
      else
         inline = inLine & s
      end if
   end while
end using

Dim g As Graphics = Graphics.FromHwnd(Me.Handle)
     MsgBox("DPI Value: " & g.DpiX.ToString())