[mostfa1995]

اشكر اخى hassan  على المجهود الرائع

كود :

Imports System.Net
Public Class Form1
   Dim ds As New Net.WebClient()

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       ds.Credentials = New Net.NetworkCredential("ftpالخاص بالاستضافه", "هنا باسورد الاستضافة")
       Label1.Text = ds.DownloadString("هنا رابط ملف التيكست")
       Label1.Text = Val(Label1.Text) + Val("1")
       ds.UploadString("هنا رابط ملف التيكست", Label1.Text)
   End Sub
End Class