Foro de elhacker.net

Saludos, modifiqué un fragmento de código bajado de la web que me permite en VB.NET verificar el estado de conexión a Internet con un formulario pequeño, el cual envía un dato a través de puerto serial (USB) a una tarjeta Arduino UNO R3 para que actúe en consecuencia. El código lo ejecuto dentro de un timer con un intervalo de 10 minutos, pero al correrlo (lo puse en segundos para probar su funcionamiento) cada vez que transcurre el tiempo fijado, obviamente ejecuta la acción y la tarjeta actúa, ya que recibe el dato. Lo que necesito es que evalúe el estado cada cierto tiempo y solo si se altera el estado de la conexión que envíe el dato. ¿Qué me sugieren hacer? Anexo el código para que puedan ver lo que actualmente hace:

Imports System.Net.NetworkInformation
Imports System.Threading
Public Class Form1
    Private Sub InitializeTimer()
        Timer1.Interval = 10000
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If My.Computer.Network.IsAvailable() Then
            Try
                If My.Computer.Network.Ping("8.8.8.8", 1000) Then
                    Label1.Text = "Conectado."
                    Label1.Location = New Point(131, 65)
                    Label1.ForeColor = Color.White
                    Me.BackColor = Color.Green
                    SerialPort1.Open()
                    SerialPort1.Write("1")
                    System.Threading.Thread.Sleep(3000)
                    SerialPort1.Write("2")
                    SerialPort1.Close()
                Else
                    Label1.Text = "Error de conexión."
                    Label1.Location = New Point(95, 65)
                    Label1.ForeColor = Color.White
                    Me.BackColor = Color.Red
                    SerialPort1.Open()
                    SerialPort1.Write("0")
                    System.Threading.Thread.Sleep(3000)
                    SerialPort1.Write("2")
                    SerialPort1.Close()
                End If
            Catch ex As PingException
                Label1.Text = "Error de conexión."
                Label1.Location = New Point(95, 65)
                Label1.ForeColor = Color.White
                Me.BackColor = Color.Red
                SerialPort1.Open()
                SerialPort1.Write("0")
                System.Threading.Thread.Sleep(3000)
                SerialPort1.Write("2")
                SerialPort1.Close()
            End Try
        Else
            Label1.Text = "Error de conexión."
            Label1.Location = New Point(95, 65)
            Label1.ForeColor = Color.White
            Me.BackColor = Color.Red
            SerialPort1.Open()
            SerialPort1.Write("0")
            System.Threading.Thread.Sleep(3000)
            SerialPort1.Write("2")
            SerialPort1.Close()
        End If
    End Sub