Visual Basic

''' <summary>
''' Check for download and if one, download it
''' </summary>
''' <param name="HTTPPath">that basepath where all files will be found on the internet</param>
''' <remarks></remarks>
Function sCheckUpdate(ByVal HTTPPath As String) As Boolean
    Dim wc As Net.WebClient = Nothing
    Dim bReturn As Boolean
    Try
        Dim fileProgram As String = New IO.FileInfo(Application.ExecutablePath).FullName
        Dim fi As New IO.FileInfo(fileProgram)
        Dim VerUri As String = Left(fi.Name, fi.Name.Length - fi.Extension.Length) & ".txt"
        VerUri = IO.Path.Combine(HTTPPath, VerUri).Replace("\", "/")
        Dim dest As String = Left(fi.FullName, fi.FullName.Length - fi.Extension.Length) & ".zip"
        If Not HTTPPath.EndsWith("/") Then HTTPPath &= "/"
        HTTPPath &= Left(fi.Name, fi.Name.Length - fi.Extension.Length) & ".zip"

        Dim png As New System.Net.NetworkInformation.Ping
        Dim rep As System.Net.NetworkInformation.PingReply
        rep = png.Send("74.125.47.118", 3000)   'google / 193.191.180.197=post
        If rep.Status = Net.NetworkInformation.IPStatus.Success Then
            wc = New Net.WebClient
            'Dim pProxy As Net.WebProxy = Net.HttpWebRequest.DefaultWebProxy
            'wc.Proxy = pProxy
            Dim version As Byte() = wc.DownloadData(VerUri)
            Dim sHTTPver As String = System.Text.ASCIIEncoding.ASCII.GetString(version)
  Dim vnCurrentVersion As System.Version = fVersionNumber()
            Dim nVersion As Double = Val(vnCurrentVersion.Build & "." & vnCurrentVersion.Revision.ToString("00000"))
            Dim nhttpVer As Double = Val(sHTTPver)
            If nhttpVer > nVersion Then
                If MessageBox.Show(LangSet.Update.NewExist, LangSet.Update.Available, _
                 MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                    wc.DownloadFile(HTTPPath, dest)
                    bReturn = True
                End If
            ElseIf nhttpVer < nVersion Then
                MessageBox.Show("Your version is better than on the internet", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show(LangSet.Update.NewestVersion, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Else
            MessageBox.Show(LangSet.Update.NetWorkError & Environment.NewLine & Environment.NewLine & rep.Status.ToString)
        End If
        png.Dispose()
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
    If Not wc Is Nothing Then
        wc.Dispose()
    End If
    Return bReturn
End Function

Dim Width1 As Integer = Screen.PrimaryScreen.Bounds.Width
Dim Height1 As Integer = Screen.PrimaryScreen.Bounds.Height
Dim X As Integer = Me.Location.X
Dim Y As Integer = Me.Location.Y
X = (Width1 - Me.Width)
Y = (Height1 - Me.Height)