vb 2005 串口实时接收数据的问题 - .NET技术 / VB.NET

我是vb.net的菜鸟
现在需要通过串口接收一个电表的数据，该数据一帧共有14个字节，数据开始第一个字节为帧开始标志（是16进制的‘13’），剩下13个字节需要实时显示出来。
我找了个vb6.0的代码，自己改成vb2005的。
大家帮忙看一下对不对？
谢谢了


vb2005的代码

Public Class Form1
  Private ReadByte(12) As Byte
  Private AfByte(0) As Byte
  Private zahler As Integer
--------------------------------------------------------------------------------------------------------------
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  If SerialPort1.IsOpen Then
  SerialPort1.Close()
  End If
  Try
  With SerialPort1
  .PortName = ComboBox1.Text
  .ReceivedBytesThreshold = 1
  .DiscardInBuffer()
  .DiscardOutBuffer()
  zahler = 0
  '.BaudRate = 2400
  '.Parity = IO.Ports.Parity.None
  '.DataBits = 8
  '.StopBits = IO.Ports.StopBits.One
  ' .Encoding = System.Text.Encoding.Unicode
  End With
  SerialPort1.Open()
  Button1.Enabled = False
&nbs