[trakktour]

السلام عليكم ان شاء الله تكونو بألف خير

عندي مشكل احبابي في الله
و هو بعد اضافتي ل مجموعة button
عند الضغط على واحد منهم لا يظهر msgbox المطلوب بل يظهر اخر واحد
ممكن تعديل على الكود و شكرا

كود :

   Dim trakktour As String = "Google%www.google.com#Youtube%www.youtube.com#facebook%www.facebook.coom#vb4arb%www.vb4arb.com"
   Dim array As String() = trakktour.Split(New String() {"#"}, StringSplitOptions.None)


   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

       For i As Integer = 0 To array.Count - "1"
           Dim bt As Button = New Button
           bt.Text = System.Text.RegularExpressions.Regex.Match(array(i), "(.+?.+)%").Groups.Item(1).Value
           ff = System.Text.RegularExpressions.Regex.Match(array(i), "%(.+?.+)").Groups.Item(1).Value
           bt.Location = New Point(6, i * (bt.Height + "7"))
           Panel1.Controls.Add(bt)
           AddHandler bt.Click, AddressOf trakk

       Next

   End Sub

   Public Sub trakk()

       MsgBox(ff)

   End Sub