Check For Illegal Cross Thread call in VB.Net

I am checking. I will get back to you soon.

Use Control.Invoke method.

 Refer below example.

Public Delegate Sub UpdateControlsDelegate()
Public Sub SomeMethod()
    InvokeUpdateControls()
End Sub

Public Sub InvokeUpdateControls()
    If Me.InvokeRequired Then
        Me.Invoke(New UpdateControlsDelegate(AddressOf LoadCPURAM))
    Else
        LoadCPURAM()
    End If
End Sub

Private Sub LoadCPURAM()
 ' Your code logic here.
End Sub

ok i try with this method here is results: 

- It works, but have issue now, the program application all features stop work or work like slowly slowly responce lets say i cannot click anywhere in form when using this method

Check with the below code.

Private Sub LoadCPURAM() 'Fix for CheckForIllegalCrossThreadCalls = False
    Try
        Dim CurrentRamUsage As Integer = SystemWatcher.TotalRam() - SystemWatcher.CurentPcRamUsage()
        'Start Global CPU & Memory
        PCResorcePbarRAM.Maximum = SystemWatcher.TotalRam()
        PCResorcePbarRAM.Value = CurrentRamUsage
        PCResorcePbarCPU.Value = SystemWatcher.MachineCpuUtilization()

        Dim xy = String.Format("{0} MB", Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)), 2).ToString 'ok
        Dim qq As String = String.Format("{0} MB", CurrentRamUsage).ToString.Replace(".", "") 'ok
        LabelRAMUsage.Text = qq + " / " + xy 'ok
        LabelCPUUsage.Text = String.Format("{0} %", SystemWatcher.MachineCpuUtilization()).ToString
        'Start World Server CPU & Memory
        PCWorldPbarRAM.Maximum = CurrentRamUsage
        PCWorldPbarRAM.Value = SystemWatcher.ApplicationRamUsage("worldserver")
        PCWorldPbarCPU.Value = SystemWatcher.ApplicationCPUUsage("worldserver")

        Dim aa = String.Format("{0} MB", Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)), 2).ToString 'ok
        Dim bb As String = String.Format("{0} MB", SystemWatcher.ApplicationRamUsage("worldserver")).ToString.Replace(".", "") 'ok
        LabelWorldRAMUsage.Text = bb + " / " + aa 'ok
        LabelWorldCPUUsage.Text = String.Format("{0} %", SystemWatcher.ApplicationCPUUsage("worldserver")).ToString

        'Start Auth Server CPU & Memory
        PCLoginPbarRAM.Maximum = CurrentRamUsage
        PCLoginPbarRAM.Value = SystemWatcher.ApplicationRamUsage("authserver")
        PCLoginPbarCPU.Value = SystemWatcher.ApplicationCPUUsage("authserver")

        Dim cc = String.Format("{0} MB", Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)), 2).ToString 'ok
        Dim dd As String = String.Format("{0} MB", SystemWatcher.ApplicationRamUsage("authserver")).ToString.Replace(".", "") 'ok
        LabelAuthRAMUsage.Text = dd + " / " + cc 'ok
        LabelAuthCPUUsage.Text = String.Format("{0} %", SystemWatcher.ApplicationCPUUsage("authserver")).ToString
    Catch ex As Exception
        Data.Message = ex.Message
    End Try
End Sub

Public Delegate Sub DataBindDelegate()
Public BindData As DataBindDelegate = New DataBindDelegate(AddressOf LoadCPURAM)

Public Sub DoDataBind()
    LoadCPURAM()
End Sub

Private Sub TimerWacher_Tick(sender As Object, e As EventArgs) Handles TimerWacher.Tick
    Try
        Dim PCResorceUsageThread = New System.Threading.ThreadStart(Sub()
                                                                        DoDataBind()
                                                                    End Sub)
        Dim thread2 = New System.Threading.Thread(PCResorceUsageThread)
        thread2.Start()
    Catch ex As Exception
        Data.Message = ex.Message
    End Try
End Sub