Dim GifThread As Thread
        GifThread = New Thread(AddressOf Me.backgroundprocess)
        GifThread.Start()

        GifPicBox.Visible = True

        If GIf = True Then

    Private Sub backgroundprocess()

        Dim Results As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        System.Diagnostics.Process.Start("Shutdown", "/r")

   End Sub

 Dim SQLConnection As OleDbConnection
        Dim SQLInsertCMD As OleDbCommand

        Dim sConnString

Dim sConnString As String = _
      [U][B]  "Provider=OleMySql.MySqlSource.1;"[/B][/U] & _
        "Datasource=wampmysqld;" & _

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim

ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=192.168.1.121;Port=3306;Database=airproductsipdb;User=[B]USERNAME[/B];Password=[B]PASSWORD[/B];Option=3;"

Imports System.Data.OleDb

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim SQLConnection As OleDbConnection
        Dim SQLInsertCMD As OleDbCommand
        Dim sConnString As String

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,

Dim IPAddress As String = "192.168.1.122"