[سؤال] طلب تصحيح كود - نسخة قابلة للطباعة

قمت بوضع الكود التالي في TIMER الهدف منه التحقق من وجود الأنترنيت بشكل مستمر، الكود شغال بشكل جيد في حالة وجود النت أما في غياب الأنترنيت فيشتغل لاكن يتسبب في تشنج البرنامج بشكل كبير

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '======================بسملــــــــــــــة ===========================

        My.Computer.Audio.Play(My.Resources.bismallah, AudioPlayMode.Background)

        '========================================================================

        '===========================التحقق من النت ===========================

        Timer2.Start()

'=====================التححق من وجود النت======================

    Public Shared Function CheckInternetConnection() As Boolean

        Try

            Return My.Computer.Network.Ping("www.google.com")

            Return True

        Catch

            Return False

        End Try

    End Function

    '===============================================================

    '===============================================================

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        If CheckInternetConnection() = True Then

            Label6.Text = "متصل بالأنترنيت"

            Label6.BackColor = Color.Lime

        Else

            Label6.Text = " غير متصل بالأنترنيت"

            Label6.BackColor = Color.Red

        End If

    End Sub