シリアルポートについて

Public Class Form1 
    Dim WithEvents serialPort As New IO.Ports.SerialPort 
 
    Private Sub Form1_Load( _ 
       ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) _ 
       Handles MyBase.Load 
 
        For i As Integer = 0 To _ 
           My.Computer.Ports.SerialPortNames.Count - 1 
            cbbCOMPorts.Items.Add( _ 
               My.Computer.Ports.SerialPortNames(i)) 
        Next 
        btnDisconnect.Enabled = False 
    End Sub 
 
   
 
    Private Sub btnConnect_Click( _ 
       ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) _ 
       Handles btnConnect.Click 
        If serialPort.IsOpen Then 
            serialPort.Close() 
        End If 
        Try 
            With serialPort 
                .PortName = cbbCOMPorts.Text 
                .BaudRate = 96000 
                .Parity = IO.Ports.Parity.None 
                .DataBits = 8 
                .StopBits = IO.Ports.StopBits.One 
                ' .Encoding = System.Text.Encoding.Unicode 
            End With 
            serialPort.Open() 
 
            lblMessage.Text = cbbCOMPorts.Text & " connected." 
            btnConnect.Enabled = False 
            btnDisconnect.Enabled = True 
        Catch ex As Exception 
            MsgBox(ex.ToString) 
        End Try 
    End Sub 
 
コネクトの部分は完成しました 
後はradio buttonでdim as integer =1 
dim as integer =２ 
dim as integer =３ 
の方法で送ろうかと考えているんですけど、コネクトができても送れません 
どうしてでしょうか？ご教授お願いします

中国サイトで見つけたVB6のプログラムです 
これをVB2005に直したいんですけど上手くいきません 
 
圖8と書いてあるところです

>>1 
http://designer.mech.yzu.edu.tw/article/articles/technical/(2001-06-21)%20%E5%96%AE%E6%99%B6%E7%89%87%E5%AF%A6%E7%BF%92%EF%BC%8DVB%E8%88%87RS232%E4%B9%8B%E6%87%89%E7%94%A8.htm 
 
これがそのサイトです

>>2 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        MScomm.output = Chr(1) 
 
    End Sub 
 
これをVB2005にしたいんですけど 
 
教えてください