Как организовать непрерывный опрос Com-порта? - Visual Basic .NET

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        'запись сообщения в порт
        Dim n As Integer
        Dim s As String = Format(Now, "hh:mm:ss") 'Это передаваемый текст
        Dim SPnt As IntPtr = Marshal.StringToCoTaskMemAnsi(s)
        FlushFileBuffers(portHandle)   'очищаем буфер порта
        WriteFile(portHandle, SPnt, Len(s), n, lpOVERLAPPED)
        If GetLastError <> ERROR_IO_PENDING Then
            MsgBox("Ошибка")
        Else
            Timer1.Start()
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim n As Integer
        If GetOverlappedResult(portHandle, lpOVERLAPPED, n, False) Then
            Label3.Text = "Получены/переданы новые данные - " & n.ToString & " байт"
            Dim V As New System.Text.UTF8Encoding()
            Label4.Text = V.GetString(buf)
            Timer1.Stop()
        Else
            Label3.Text = "Новых данных нет"
        End If
    End Sub
    Private Sub btnReceived_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReceived.Click
        'чтение сообщения из порта
        Dim n As Integer
        Dim mPnt As IntPtr = GCHandle.Alloc(buf, GCHandleType.Pinned).AddrOfPinnedObject()
        FlushFileBuffers(portHandle) 'очищаем буфер порта
        ReadFile(portHandle, mPnt, 128, n, lpOVERLAPPED)
        'проверяем отсутствие ошибки
        If GetLastError <> ERROR_IO_PENDING Then
            MsgBox("Ошибка")
        Else
            Timer1.Start()
        End If
    End Sub