[dametucorazon]

اكيد طبعا الحل بسيط جدا الكود تبعي شغال 100 %
فقط عدلت السطر التالي للكود
من

كود :

                       TextBox2.Text = Element1.InnerText

الي

كود :

TextBox2.Text &= vbCrLf & Element1.InnerText

ليصبح الكود النهائي

كود :

For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
          If Element.GetAttribute("className") = "hprt-price-block " Then
              For Each Element1 As HtmlElement In Element.GetElementsByTagName("div")
                  If Element1.GetAttribute("className") = "bui-price-display__value prco-ltr-center-align-helper prco-font16-helper" Then
                      Dim Variable1 As String = Element1.InnerText
                     TextBox2.Text &= vbCrLf & Element1.InnerText



                  End If
              Next
          End If

      Next

مع التاكد من ان خاصية TextBox2.MultiLine = True

وبما ان القيم الناتجه ثابته فاستخرجت من textbox2 كل القيم اللي محتاجه في تيكست بوكس مستقل لتظهر بشكل مباشر في التيكست
بمعني

[b]TextBox2[/b]
[b]هيرجع بالقيم[/b]

كود :

100 $$
200 $$
300 $$

بدات اخد السطر الاول احطه في تيكست اللي عايزه يظهر فيه مع استبدال علامة $$
لتظهر فقط التيكست الخاص به كسعر بدون عملة كالتالي

كود :

100
200
300

من خلال كود لاستبدال علامة الدولار كالتالي

كود :

PricesDetails.stkr.Text = TextBox2.Lines(1).Replace("$$", "")
       PricesDetails.STKB.Text = TextBox2.Lines(2).Replace("$$", "")
       PricesDetails.STKHB.Text = TextBox2.Lines(3).Replace("$$", "")
      

واعتذر عن التاخير في الرد