Serial Port not getting data

[bminaeff]

I have a requirment to read in data from a serial port. This seems to be a pretty standard thing but for some reason I do not seem to get any data from the serial port. I placed a break on the SetText(myserialport.ReadExisting()) line but when the device sends data it doesnt seem to see anything. Any ideas why?

Thanks

Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.IO.Ports

Public Class Form1
    Dim WithEvents myserialport As SerialPort = New System.IO.Ports.SerialPort
    Delegate Sub SetTextCallback(ByVal [text] As String)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With myserialport
            .PortName = "COM1"
            .BaudRate = 9600
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
        End With
        myserialport.Open()
    End Sub
    Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles myserialport.DataReceived
        SetText(myserialport.ReadExisting())
        Console.Write(myserialport.ReadExisting())
    End Sub

    Private Sub SetText(ByVal [text] As String)
        ' InvokeRequired required compares the thread ID of the
        ' calling thread to the thread ID of the creating thread.
        ' If these threads are different, it returns true.
        If Me.Label1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {[text]})
        Else
            Me.Label1.Text &= [text]
        End If
    End Sub
End Class

 

[TheVampire]

What is your ReceivedBytesThreshold property for the COM port set at?