[LoveVb]

قم بجعل العناصر في ليست بوكس واحد هكذا
الرابط الاول ثم مسافة حتى المستخدم لا يستطيع رؤيته ثم علامة ~ ثم رابط الرابط الاولى 
هكذا
الرابط الاول                                                                            ~http://vb4arb.com

ضع هذا الكود

إقتباس :   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox2.Items.Add(New Net.WebClient().DownloadString(ListBox1.SelectedItem.ToString.Split("~")(1)))
    End Sub

او الطريقة الثانية وهي إنشاء مصفوفة عامة
 Dim Urls() As String = {"link1", "link2", "link3", "link4"}
ثم تضع الروابط بها
والكود يكون

إقتباس :    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox2.Items.Add(New Net.WebClient().DownloadString(Urls(ListBox1.SelectedIndex)))
    End Sub

اختر اي واحده

---

هل المحتوى في الرابط اكثر من سطر؟