[Ahmed_Mansoor]

أهلا بك أخي الكريم ، كل عام وأنت بخير والأمه الإسلاميه ، هذا الكود لعمل ذلك :

PHP كود :

Dim zChars(1 To 4) As String
Dim zText As String
Dim I As Integer
Dim H As Integer
Dim zCounter(1 To 4) As Integer

zChars(1) = "اهطمفشذ"
zChars(2) = "بيونصتض"
zChars(3) = "جزكسقثظ"
zChars(4) = "دحلعرخغ"


For I = 1 To 4

    For H = 1 To Len(zChars(I))
        zText = Text1.Text
        zText = Replace$(zText, "أ", "ا")
        zText = Replace$(zText, "إ", "ا")
        zPos = InStr(1, zText, Mid$(zChars(I), H, 1))
        Do While zPos > 0
           zCounter(I) = zCounter(I) + 1
           zText = Mid$(zText, zPos + 1)
           zPos = InStr(1, zText, Mid$(zChars(I), H, 1))
        Loop
   Next

Next

Text2.Text = zCounter(1)
Text3.Text = zCounter(2)
Text4.Text = zCounter(3)
Text5.Text = zCounter(4)