Public Class MartiWEB
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim s As String = ComboBox1.Text
        If Not s.StartsWith("http://") Then
            WebBrowser1.Url = New Uri("http://" & s)
        Else
            WebBrowser1.Url = New Uri(s)
        End If
        WebBrowser1.Url = New Uri(ComboBox1.Text)
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
      Handles WebBrowser1.DocumentCompleted
        ComboBox1.Items.Add(WebBrowser1.Document.Url)
        ComboBox1.Text = WebBrowser1.Document.Url
    End Sub
End Class