Public Class frmRich
 
    Dim WithEvents btnLink As New Button With _
          {.Parent = Me, .Dock = DockStyle.Top, .Enabled = False}
    Dim WithEvents rtb As New RichTextBox With _
          {.Parent = Me, .Dock = DockStyle.Bottom, _
           .DetectUrls = True, .Text = " www.vbarchiv.de"}
 
    Private Sub rtb_LinkClicked(sender As Object, _
        e As System.Windows.Forms.LinkClickedEventArgs) Handles rtb.LinkClicked
        btnLink.Text = e.LinkText
        btnLink.Enabled = True
    End Sub
 
    Private Sub btnLink_Click(sender As Object, _
        e As System.EventArgs) Handles btnLink.Click
        With btnLink
            Diagnostics.Process.Start(.Text)
            .Text = "" : .Enabled = False
        End With
    End Sub
End Class