[سؤال] عمل برنامج تجريبي بالتاريخ والوقت من موقع

كود :
Imports System.Text

Imports System.Threading

Public Class Form1

    Dim End_d As String = "31/12/2013"

    Dim worl_D As String

    Dim W_req As WebRequest

    Dim W_resp As WebResponse

    Dim D_str As Stream

    Dim S_read As StreamReader

    Dim Th_1 As Thread

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

        Th_1 = New Thread(AddressOf _Load_Bage_)

        Th_1.Start()

    End Sub

    Private Sub _Load_Bage_()

        Try

            W_req = WebRequest.Create("http://cocoo.orgfree.com/xtest.php")

            W_resp = W_req.GetResponse()

            D_str = W_resp.GetResponseStream()

            S_read = New StreamReader(D_str)

            worl_D = S_read.ReadToEnd

            If worl_D = End_d Then

                MsgBox("انتهي الاصدار التجريبى جاري اغلاق البرنامج", MsgBoxStyle.Critical)

                End

            Else

                MsgBox("لم ينتهي الاصدار التجريبى")

            End If

        Catch ex As Exception

            MsgBox("فشل الاتصال بصفحة التاريخ جاري اغلاق البرنامج", MsgBoxStyle.Critical)

            End

        End Try

    End Sub

End Class