[محمد العبيدي]

على حسب علمي يجب ان تستخدم دالة الReplace وتستبدل حروف أ و إ بحرف ا ويجب ان تعمل هذه الطريقة عند الاضافة ايضاً لغرض توحيد عملية الادخال

او انك تضع الكود التالي في الاداة Text لمنع المستخدم من ادخال الحروف أ و إ 

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = Asc("أ") Or KeyAscii = Asc("إ") Then KeyAscii = Asc("ا")
End Sub