Download from machine

download.vb

             'make form  . 2 labels  , 2 button  the copyright  if  you wont do !!
                     put this code to  button1 (get ip) 
                    
                        If TextBox1.Text = " " Then
                        MessageBox.Show("please Enter WebSite")
                    End If
                    
                    Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
                    
                    Dim ip As IPAddress() = Hostname.AddressList
                    
                    TextBox2.Text = ip(0).ToString
                    
                    ' put this code to clearer the textboxs 
                    
                        TextBox1.Clear()
                        TextBox2.Clear() 
                    
                    ' if  you ave  webSite you can yous lablslinks  
                    
                        Dim url As String = "your webSite"
                      
                            Process.Start(url)