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 =３ 
の方法で送ろうかと考えているんですけど、コネクトができても送れません 
どうしてでしょうか？ご教授お願いします