int redPinOne = 12;
int redPinTwo = 13;
int greenPinTwo = 11;
int greenPinOne = 10;
int readValue;

void setup()
{
  pinMode(redPinOne, OUTPUT);
  pinMode(redPinTwo, OUTPUT);
  pinMode(greenPinOne, OUTPUT);
  pinMode(greenPinTwo, OUTPUT);
  Serial.begin(9600);
}

void loop()
{
  if(Serial.available())
  {
    readValue = Serial.read();
    if(readValue == '1')      // LED ON
    {
     digitalWrite(greenPinOne, HIGH);
    }
    if(readValue == '2')      // LED ON
    {
     digitalWrite(greenPinOne, LOW);
    }
    if(readValue == '3')      // LED ON
    {
     digitalWrite(greenPinTwo, HIGH); 
    }
    if(readValue == '4')      // LED ON
    {
     digitalWrite(greenPinTwo, LOW); 
    }
    if(readValue == '5')      // LED ON
    {
     digitalWrite(redPinOne, HIGH); 
    }
    if(readValue == '6')      // LED ON
    {
     digitalWrite(redPinOne, LOW); 
    }
    if(readValue == '7')      // LED ON
    {
     digitalWrite(redPinTwo, HIGH);
    }
    if(readValue == '8')      // LED ON
    {
     digitalWrite(redPinTwo, LOW);
    }
  }
}

Imports System.IO.Ports

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If SerialPort1.IsOpen() = True Then
            SerialPort1.Close()
        End If

        ledGrOne.Text = \"Green LED #1 ON\"
        ledGrTwo.Text = \"Green LED #2 ON\"
        ledReOne.Text = \"Red LED #1 ON\"
        ledReTwo.Text = \"Red LED #2 ON\"
    End Sub

    Private Sub ledGrOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledGrOne.Click
        If ledGrOne.Text = \"Green LED #1 ON\" Then
            SerialPort1.Write(\"1\")
            ledGrOne.Text = \"Green LED #1 OFF\"
        Else
            SerialPort1.Write(\"2\")
            ledGrOne.Text = \"Green LED #1 ON\"
        End If
    End Sub

    Private Sub ledGrTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledGrTwo.Click
        If ledGrTwo.Text = \"Green LED #2 ON\" Then
            SerialPort1.Write(\"3\")
            ledGrTwo.Text = \"Green LED #2 OFF\"
        Else
            SerialPort1.Write(\"4\")
            ledGrTwo.Text = \"Green LED #2 ON\"
        End If
    End Sub

    Private Sub ledReOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledReOne.Click
        If ledReOne.Text = \"Red LED #1 ON\" Then
            SerialPort1.Write(\"5\")
            ledReOne.Text = \"Red LED #1 OFF\"
        Else
            SerialPort1.Write(\"6\")
            ledReOne.Text = \"Red LED #1 ON\"
        End If
    End Sub

    Private Sub ledReTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledReTwo.Click
        If ledReTwo.Text = \"Red LED #2 ON\" Then
            SerialPort1.Write(\"7\")
            ledReTwo.Text = \"Red LED #2 OFF\"
        Else
            SerialPort1.Write(\"8\")
            ledReTwo.Text = \"Red LED #2 ON\"
        End If
    End Sub

    Private Sub InitSerial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InitSerial.Click
        SerialPort1.PortName = TextBox2.Text
        SerialPort1.BaudRate = Val(TextBox1.Text)
        SerialPort1.Open()
        InitSerial.Enabled = False
    End Sub
End Class