[معاند الحظ]

ضع على الفورم Label1 
 اذا كان الرابط يبدأ بـ https://www.dropbox.com  قم بتعديل dl=0 الى dl=1 في اخر الرابط

استخدم الكود التالي اذا كان الفيجوال ستوديو يدعم  الفريموورك اصدار 4.5 او كنت تستخدم فيجوال ستوديو اصدار اكبر من 2010

كود :

Imports System.Net

Public Class Form1

    Dim WithEvents wc As New WebClient
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'ServicePointManager.Expect100Continue = True
        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
        Try
            wc.DownloadStringAsync(New Uri("https://dl.dropboxusercontent.com/s/k0yxsla1ixlvffv/Version.txt?dl=0"))
        Catch ex As Exception
            Label1.Text = ex.Message.ToString
        End Try

    End Sub

    Private Sub wc_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs) Handles wc.DownloadStringCompleted
        Try
            Label1.Text = e.Result
        Catch ex As Exception
            Label1.Text = ex.Message.ToString
        End Try
    End Sub
End Class

استخدم الكود التالي اذا كان الفيجوال ستوديو لايدعم فريموورك اصدار 4.5 يعني اذا كنت تستخدم فيجوال ستوديو 2010 او اقل

كود :

Imports System.Net

Public Class Form1
    Dim WithEvents wc As New WebClient
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'ServicePointManager.Expect100Continue = True
        ServicePointManager.SecurityProtocol = CType(3072, SecurityProtocolType)
        Try
            wc.DownloadStringAsync(New Uri("https://dl.dropboxusercontent.com/s/k0yxsla1ixlvffv/Version.txt?dl=0"))

        Catch ex As Exception
            Label1.Text = ex.Message.ToString
        End Try

    End Sub

    Private Sub wc_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs) Handles wc.DownloadStringCompleted
        Try
            Label1.Text = e.Result
        Catch ex As Exception
            Label1.Text = ex.Message.ToString
        End Try
    End Sub

يقوم الكود بتحميل وعرض النص الموجود في الرابط الذي ارفقته داخل اداة Label1