[سعود]

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

اكتب الكود التالي في حدث النقر لزر الامر

كود :

Dim p() As String = TextBox1.Text.Split(" ")
        Try



            Dim t As String = p(Val(TextBox2.Text))
            If Array.IndexOf(p, t) > 2 Then
                MsgBox("هذا الاسم بعد الفراغ الثالث", MsgBoxStyle.Critical, "")
                Exit Sub
            End If

            MsgBox(t)



        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try