อยากให้โปรแกรมมีการเช็คค่าการเชื่อมต่อหรือสาย lan อ่ะครับ หากมีการเชื่อมต่อหรือขาดการเชื่อมต่อ ให้มีข้อความแจ้งเตือน

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If My.Computer.Network.IsAvailable Then
            num = num + 1

            If num = 1 Then
                Label1.ForeColor = Color.Red
            End If
            If num = 2 Then
                Label1.ForeColor = Color.Blue
            End If
            If num = 3 Then
                num = 0
            End If
        Else
            fail("โปรแกรมขาดการเชื่อมต่อ กรุณาเช็คสาย Lan")

        End If
    End Sub