Threading with Network.Ping

[SyGC]

Hi Guys,

I have used Threading for Network.Ping to continuously ping an IP address if ping is successful Image A is displayed if not Image B. The code is as follows:

Imports System
Imports System.Diagnostics
Imports System.Threading
 
Public Class Form1
 
    Dim PingThread As Thread
    Dim PRes
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        PingThread = New Thread(AddressOf Me.BackgroundProcess)
        PingThread.Start()
 
    End Sub
 
    Private Sub BackgroundProcess()
 
        Dim IPAddress As String = "192.168.1.121"
 
        Do
            If My.Computer.Network.Ping(IPAddress) = True Then
 
                PRes = True
            Else
                PRes = False
            End If
 
            Application.DoEvents()
            Thread.Sleep(1000)
 
        Loop
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If PRes = True Then
            PictureBox1.Visible = True
            PictureBox2.Visible = False
        Else
            If PRes = False Then
                PictureBox1.Visible = False
                PictureBox2.Visible = True
            End If
        End If
 
 
    End Sub
 
End Class
 

However i have only been able to change the images on a button click. What i want to do is just run my app and for the Images to change automatically without any input. The code below (Not using Threading) allows this to happen, although it is first initiated by a button click.

Imports System
Imports System.Diagnostics
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim IPAddress As String = "192.168.1.121"
 
        Do
 
            If My.Computer.Network.Ping(IPAddress) = True Then
 
                PictureBox1.Visible = False
                PictureBox2.Visible = True
            Else
                PictureBox1.Visible = True
                PictureBox2.Visible = False
 
            End If
 
            Application.DoEvents()
            System.Threading.Thread.Sleep(10)
 
 
        Loop
    End Sub
 
End Class
 

Ive been looking at my code for hours...i know it must be obvious!!! Thanks in advance guys


Sy