Public Class Form1
  Inherits System.Windows.Forms.Form
 
  #Region " Vom Windows Form Designer generierter Code "
    Public Sub New()
      MyBase.New()
 
      ' Dieser Aufruf ist für den Windows Form-Designer 
      ' erforderlich.
      InitializeComponent()
 
      ' Initialisierungen nach dem Aufruf InitializeComponent()
      ' hinzufügen
      TextBox1.Text = "http"
      TextBox2.Text = "www.jolanrieger.de"
      TextBox3.Text = "80"
      TextBox4.Text = "/gallery.php"
    End Sub
 
    '...
  #End Region
 
  Private Sub URI_Create()
    Dim uBuilder As UriBuilder = New UriBuilder
    With uBuilder
      .Scheme = TextBox1.Text
      .Host = TextBox2.Text
      .Port = CInt(TextBox3.Text)
      .Path = TextBox4.Text
    End With
 
    Dim u As Uri = uBuilder.Uri
    LinkLabel1.Text = u.AbsoluteUri
  End Sub
 
  Private Sub URI_Analyze()
    Dim sUri As Uri = New Uri(LinkLabel1.Text)
    MessageBox.Show(sUri.AbsoluteUri, "AbsoluteUri")
    MessageBox.Show(sUri.Scheme, "Scheme")
    MessageBox.Show(sUri.Host, "Host")
    MessageBox.Show(sUri.Port.ToString, "Port")
    MessageBox.Show(sUri.AbsolutePath, "AbsolutePath")
  End Sub
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    URI_Create()
    Button3.Enabled = True
  End Sub
 
  Private Sub Button3_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button3.Click
    URI_Analyze()
  End Sub
 
  Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
 
  Private Sub LinkLabel1_LinkClicked(ByVal sender As Object, _
        ByVal e As System.Windows.Forms. _
        LinkLabelLinkClickedEventArgs) Handles _
        LinkLabel1.LinkClicked
    Process.Start(LinkLabel1.Text)
  End Sub
End Class