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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
       For Each line As String In RichTextBox1.Lines
           If Not line.StartsWith("http://") Then
               line = "http://" & line
           End If
           Process.Start(line)
       Next
   End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist