Visual Basic - puerto para visual basic

Private Sub Form_Load()

MSComm1.RThreshold = 3

MSComm1.Settings = "9600,n,8,1"

MSComm1.CommPort = 2 // (Write Port Number on which your Arduino Board is available).

MSComm1.PortOpen = True

MSComm1.DTREnable = False

Text1.Text = ""

Shape1.FillColor = vbRed

End Sub

Private Sub TURNOFF_Click()

MSComm1.Output = "b"

Text1.Text = "LED IS OFF"

Shape1.FillColor = vbRed

End Sub

Private Sub TURNON_Click()

MSComm1.Output = "a"

Text1.Text = "LED IS ON"

Shape1.FillColor = vbGreen

End Sub