Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
      If TextBox1.Text.StartsWith("http://", _
      StringComparison.OrdinalIgnoreCase) Then
         TextBox1.Font = New Font(TextBox1.Font, FontStyle.Underline)
         TextBox1.ForeColor = Color.Blue
         TextBox1.Cursor = Cursors.Hand
      Else
         TextBox1.Font = New Font(TextBox1.Font, FontStyle.Regular)
         TextBox1.ForeColor = Color.Black
         TextBox1.Cursor = Cursors.Default
      End If
   End Sub
 
   Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
      If TextBox1.Cursor = Cursors.Hand Then
         If MessageBox.Show("Link starten?", "Frage", MessageBoxButtons.YesNo, _
            MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
            Process.Start(TextBox1.Text.Trim)
         Else
            TextBox1.Focus()
         End If
      End If
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control