Imports System.Net
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim webServer As New WebClient
        Dim TEXT As String = webServer.DownloadString("https://dl.dropbox.com/u/92212199/settings.ini")

        lblClient.Text = "Version: " & My.Application.Info.Version.ToString
        lblServer.Text = "Update: " & TEXT
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TEMPPATH As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim TEMPFILES = My.Computer.FileSystem.GetFiles(TEMPPATH)

        For Each TMPfile In TEMPFILES
            On Error Resume Next
            My.Computer.FileSystem.DeleteFile(TMPfile)
            On Error Resume Next
        Next
        MessageBox.Show("Temp folder cleaned!", "Cleaned", MessageBoxButtons.OK)
    End Sub
End Class