سؤال حول تحديث برنامج - نسخة قابلة للطباعة

هلا وغلا بسميي سعود

سأفتح معك ومع اخواننا الأعزاء موضوع لمناقشة هذا الأمر وبعض الأمور الأخرى ( تصحيح برنامج )
برنامج جداً جميل ( يخدم مأمور السنترال في المستشفيات والمراكز الكبيره )

راح أغلبكم معي , بارك الله فيكم

أعتذر من صاحب الموضوع لاخذ مساحه من موضوعك والنقاش خارج إطار الموضوع

PHP كود :

Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1
    Dim localver As String
    Dim remotver As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        curver.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\curver.txt")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If b1.IsBusy = False Then
            localver = curver.Text
            b1.RunWorkerAsync()
            Button1.Enabled = False
            Button1.Text = "كشف احدث نسخة"
            lastver.Text = "شوي واعرف"
        End If
    End Sub
    Private Sub setlbl(ByVal l As String)
        If lastver.InvokeRequired Then
            lastver.Invoke(New Action(Of String)(AddressOf setlbl), l)
        Else
            lastver.Text = l
        End If
    End Sub

    Private Sub setbtn(ByVal l As String)
        If Button2.InvokeRequired Then
            Button2.Invoke(New Action(Of String)(AddressOf setbtn), l)
        Else
            Button2.Text = l
        End If
    End Sub

    Private Sub setbtnen(ByVal l As Boolean)
        If Button1.InvokeRequired Then
            Button1.Invoke(New Action(Of Boolean)(AddressOf setbtnen), l)
        Else
            Button1.Enabled = l
        End If
    End Sub

    Private Sub b1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b1.DoWork
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        Dim html As String = wc.DownloadString("http://saud.somee.com/Default.aspx")
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        remotver = doc.DocumentNode.SelectSingleNode("//lastver").InnerText.Trim
    End Sub

    Private Sub b1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles b1.RunWorkerCompleted
        setbtnen(True)
        setlbl(remotver)
        If Val(remotver) > Val(localver) Then
            setbtn("توجد نسخة احدث")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("مثال على السريع فقط", MsgBoxStyle.Information, "")
    End Sub
End Class