أريد كود فحص حالة النت بشكل متكرر ودائم وبمسار (Thread) آخر

السلام وعليكم اخي

هذا هو الكود للتحقق من اتصالك بالنت

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Integer) As Integer
Dim sConnType As String = 255
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
Dim Ret As Integer
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
MsgBox("You are connected to Internet via a " & sConnType, vbInformation)
Else
MsgBox("You are not connected to internet", vbInformation)
End If
End Sub

ولكن كيف يمكنني كتابته بـ Thread لفحص الحالة بمسار آخر لكي لاتعطل وتيرة عمل البرنامج

شكراً جزيلاً لك