[3booody]

السلام عليكم ورحمة الله وبركاته

الخطأ الي عندك بسبب ال Regex

على العموم هذه فكرة افضل لك

اولآ استخدم الاداة FlowLayoutPanel هي ترتبلك الازرار ماتحتاج ترتبهم عن طريق الكود

وضع هذا الكود

كود :

Dim trakktour As String = "Google#Youtube#facebook#vb4arb"
   Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
       Dim btn As Button = Nothing
       For i As Integer = 0 To trakktour.Split("#").Count - 1
           btn = New Button
           btn.Text = trakktour.Split("#")(i)
           FlowLayoutPanel1.Controls.Add(btn)
           AddHandler btn.Click, AddressOf trakk
       Next
   End Sub
   Sub trakk(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox("www." & sender.text & ".com")
   End Sub

لاحظ اختصرتلك الروابط
بالتوفيق