Imports System

Imports System.IO.Ports

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim SerialPort1 As New SerialPort

        dim y as integer

        y = 0

        SerialPort1.PortName = "COM5"

        SerialPort1.Open()

        SerialPort1.Write("0")

    End Sub

End Module

​