[MSDOS]

3booody كتب :[COLOR="#0000CD"]السلام عليكم ورحمة الله وبركاته
بعد اذنكم اخواني..

تفضل أول شي ضع اداة RichTextBox واكتب الكود التالي[/COLOR]

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Link As New LinkLabel
        Link.Text = "اضغط هنا"
        Link.AutoSize = True
        Link.Location = RichTextBox1.GetPositionFromCharIndex(RichTextBox1.TextLength)
        RichTextBox1.Controls.Add(Link)
        RichTextBox1.AppendText(Link.Text & "  ")
        AddHandler Link.LinkClicked, AddressOf link_LinkClicked
    End Sub
    Private Sub Link_LinkClicked(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs)
        Process.Start("www.vb4arb.com")
    End Sub

محاولة جميلة بس ما هي عملية لأنه لو يبي يحذف الرابط لا يستطيع اثناء الكتابة، ننتظر طريقة أخرى من ابداعتك وابداعات الآخوة.