安装VB6里面的activeX控件就可以了

1,安装VB6
2,添加引用。
但版本高的操作系统好像不是很稳定！！

好象不行啊！

最好别用,我用过发现不太稳定,有一些错误在程序中会捕捉不到

不行，重新回答！！！

Imports MSCommLib.MSCommClass
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(103, 62)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(221, 21)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = "TextBox1"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(160, 27)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(86, 26)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Button1"
        '
        'Timer1
        '
        '
        'TextBox2
        '
        Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.TextBox2.Location = New System.Drawing.Point(174, 203)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(114, 14)
        Me.TextBox2.TabIndex = 2
        Me.TextBox2.Text = "TextBox2"
        '
        'CheckBox1
        '
        Me.CheckBox1.Location = New System.Drawing.Point(107, 284)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(142, 22)
        Me.CheckBox1.TabIndex = 3
        Me.CheckBox1.Text = "CheckBox1"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(56, 124)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(120, 24)
        Me.Button2.TabIndex = 4
        Me.Button2.Text = "备份"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(226, 121)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(147, 28)
        Me.Button3.TabIndex = 5
        Me.Button3.Text = "恢复"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(104, 87)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(219, 21)
        Me.TextBox3.TabIndex = 6
        Me.TextBox3.Text = "TextBox3"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(464, 390)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim buffer As Object
    Dim Mscomm As New MSCommLib.MSComm  ''先建立一个对象  在这里建立全局对象以后,在后面就不能够再建立对象了，否则会出错!

    Sub Communication(ByVal RString As String)
        'Dim Mscomm As New MSCommLib.MSComm  ''先建立一个对象

        Dim buffer As Object
        Dim aa As String
        Dim Dummy As Integer
        Dim SendData(2) As Byte
        Dim Arraya As Object
        Dim TT1 As String
        Dim TT2 As String
        Dim TT3 As String
        Dim p, m, n As Integer
        Dim i, J, K As Integer

        Mscomm.PortOpen = True
        Mscomm.InputLen = 14       '将接收的字节数

        Do                         '等待3秒
            Application.DoEvents() '调用DoEvents函数,使接收完成前Timer1起作用

        Loop Until Mscomm.InBufferCount >= 14 '是否收到全部字节

        If Mscomm.PortOpen = True Then
            '读取接收到的数据
            buffer = Mscomm.Input  '' 因为通讯协议写的是每次都传送上来两个字节
        End If
        Mscomm.PortOpen = False
        ''将收取上来的值转换成16进制(BCD码),并把格式换算成"00"的格式

        Dim b0 As String
        Dim b1 As String
        Dim b2 As String
        Dim b3 As String
        Dim b4 As String
        Dim b5 As String
        Dim b6 As String
        Dim b7 As String
        ''判断取上来的十六进制数位数为几位，1位则前面添0，否则全部显示
        b0 = Hex(buffer(0))
        If Len(b0) = 1 Then
            b0 = "0" + b0
        Else
            b0 = b0
        End If

        b1 = Hex(buffer(1))
        If Len(b1) = 1 Then
            b1 = "0" + b1
        Else
            b1 = b1
        End If

b2 = Hex(buffer(2))
        If Len(b2) = 1 Then
            b2 = "0" + b2
        Else
            b2 = b2
        End If

        b3 = Hex(buffer(3))
        If Len(b3) = 1 Then
            b3 = "0" + b3
        Else
            b3 = b3
        End If

        b4 = Hex(buffer(4))
        If Len(b4) = 1 Then
            b4 = "0" + b4
        Else
            b4 = b4
        End If

        b5 = Hex(buffer(5))
        If Len(b5) = 1 Then
            b5 = "0" + b5
        Else
            b5 = b5
        End If

        b6 = Hex(buffer(6))
        If Len(b6) = 1 Then
            b6 = "0" + b6
        Else
            b6 = b6
        End If

        b7 = Hex(buffer(7))
        If Len(b7) = 1 Then
            b7 = "0" + b7
        Else
            b7 = b7
        End If
        RString = b0 + b1 + b2 + b3 + b4 + b5 + b6 + b7
        If Microsoft.VisualBasic.Left(RString, 2) = "EB" Then
            RString = Microsoft.VisualBasic.Left(RString, 10)  '''将所有位数取上来
        Else
            Call Communication(RString)    ''判断如果起始两位不是EB,则重新取数据
        End If

        TT1 = Mid(RString, 3, 2)                 ''将高两位取出,并付给一个字符变量
        TT2 = Mid(RString, 5, 2)                 ''将中两位取出,并付给一个字符变量
        TT3 = Mid(RString, 7, 2)                  ''将第两位取出,并付给一个字符变量

        p = CInt(TT1)
        m = CInt(TT2)
        'n = CInt(TT3)
        TextBox3.Text = RString


        TextBox1.Text = CStr(p) + CStr(m) + "." + CStr(TT3)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RString
        Timer1.Enabled = True
        Call Communication(RString)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'CheckBox1.BackColor = Color.FromArgb(0, CheckBox1.BackColor)
        Mscomm.CommPort = 1
        Mscomm.Settings = "4800,n,8,1"
        Mscomm.InputMode = Mscomm.InputMode.comInputModeBinary  '(采用二进制方式进行输入)
        Mscomm.InputLen = 0

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim g As Graphics = e.Graphics
        Dim rpen As New Pen(Color.Black)
        g.DrawLine(rpen, 152, 195 + 30, 152 + 114, 195 + 30)
    End Sub

End Class


'很久以前写的。写的不是很好，但是用到了MScomm控件，你可以看一下！

to  njhyh(小辉) :
  Imports MSCommLib.MSCommClass
  怎么倒入到内部去。关键是这里。若能倒入就行了！

只有 
  imports system
          Mircrosoft
          VBNET

微软的例子，参考一下
Option Strict On

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading

' This class provides all the necessary support for communicating
'   with the Comm Port (otherwise known as the Serial Port, or 
'   RS232 port).
Public Class Rs232
    ' Declare the necessary class variables, and their initial values.
    Private mhRS As Integer = -1   ' Handle to Com Port
    Private miPort As Integer = 1   ' Default is COM1
    Private miTimeout As Integer = 70   ' Timeout in ms
    Private miBaudRate As Integer = 9600
    Private meParity As DataParity = 0
    Private meStopBit As DataStopBit = 0
    Private miDataBit As Integer = 8
    Private miBufferSize As Integer = 512   ' Buffers size default to 512 bytes
    Private mabtRxBuf As Byte()   ' Receive buffer
    Private meMode As Mode  ' Class working mode
    Private mbWaitOnRead As Boolean
    Private mbWaitOnWrite As Boolean
    Private mbWriteErr As Boolean
    Private muOverlapped As OVERLAPPED
    Private muOverlappedW As OVERLAPPED
    Private muOverlappedE As OVERLAPPED
    Private mabtTmpTxBuf As Byte()  ' Temporary buffer used by Async Tx
    Private moThreadTx As Thread
    Private moThreadRx As Thread
    Private miTmpBytes2Read As Integer
    Private meMask As EventMasks

#Region "Enums"

    ' This enumeration provides Data Parity values.
    Public Enum DataParity
        Parity_None = 0
        Pariti_Odd
        Parity_Even
        Parity_Mark
    End Enum

    ' This enumeration provides Data Stop Bit values.
    '   It is set to begin with a one, so that the enumeration values
    '   match the actual values.
    Public Enum DataStopBit
        StopBit_1 = 1
        StopBit_2
    End Enum

    ' This enumeration contains values used to purge the various buffers.
    Private Enum PurgeBuffers
        RXAbort = &H2
        RXClear = &H8
        TxAbort = &H1
        TxClear = &H4
    End Enum

    ' This enumeration provides values for the lines sent to the Comm Port
    Private Enum Lines
        SetRts = 3
        ClearRts = 4
        SetDtr = 5
        ClearDtr = 6
        ResetDev = 7   '  Reset device if possible
        SetBreak = 8   '  Set the device break line.
        ClearBreak = 9   '  Clear the device break line.
    End Enum
    ' This enumeration provides values for the Modem Status, since
    '   we'll be communicating primarily with a modem.
    ' Note that the Flags() attribute is set to allow for a bitwise
    '   combination of values.
    <Flags()> Public Enum ModemStatusBits
        ClearToSendOn = &H10
        DataSetReadyOn = &H20
        RingIndicatorOn = &H40
        CarrierDetect = &H80
    End Enum

    ' This enumeration provides values for the Working mode
    Public Enum Mode
        NonOverlapped
        Overlapped
    End Enum

    ' This enumeration provides values for the Comm Masks used.
    ' Note that the Flags() attribute is set to allow for a bitwise
    '   combination of values.
    <Flags()> Public Enum EventMasks
        RxChar = &H1
        RXFlag = &H2
        TxBufferEmpty = &H4
        ClearToSend = &H8
        DataSetReady = &H10
        ReceiveLine = &H20
        Break = &H40
        StatusError = &H80
        Ring = &H100
    End Enum
#End Region