VB.Net by API/System.IO.Ports/SerialPort

SerialPort.WriteLine

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim com1Port As IO.Ports.SerialPort = Nothing
       Try
           com1Port = My.ruputer.Ports.OpenSerialPort("COM1")
           com1Port.WriteLine("serialData")
           com1Port.Write("serialData")
           com1Port.Close()
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       Finally
           If (com1Port IsNot Nothing) Then com1Port.Dispose()
           com1Port = Nothing
       End Try
   End Sub

End Class

 </source>