Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim value As String = My.Application.Info.DirectoryPath
 
        My.Computer.Network.DownloadFile _
    ("http://acid1.ac.funpic.de/update/HostsChanger.exe", _
    My.Application.Info.DirectoryPath & "\" & "HostsChanger.exe")
 
        My.Computer.Network.DownloadFile _
    ("http://acid1.ac.funpic.de/update/HostsChanger.pdb", _
    My.Application.Info.DirectoryPath & "\" & "HostsChanger.pdb")
 
        My.Computer.Network.DownloadFile _
    ("http://acid1.ac.funpic.de/update/HostsChanger.xml", _
    My.Application.Info.DirectoryPath & "\" & "HostsChanger.xml")
 
        My.Computer.Network.DownloadFile _
    ("http://acid1.ac.funpic.de/update/HostsChanger.exe.config", _
    My.Application.Info.DirectoryPath & "\" & "HostsChanger.exe.config")
 
 
    End Sub
End Class