[ناجي إبراهيم]

السلام عليكم...

في الواقع المفتاح Enter يرسل قيمتين متتاليتين هما ASCII 13 (المعروف بـ Carriage Return أو CR) متبوعاً بـ ASCII 10 (المعروف بـ Line Feed أو LF)، و لهذا تجد اسم الثابت الذي يمثل مفتاح Enter في VB6 هو vbCrLf.

و بالتالي يمكنك البحث عن هذين الرمزين و استبدالهما بما تشاء. المثال التالي يضع الرمز > في كل الأماكن التي يجد فيها رمز المفتاح Enter (الانتقال إلى سطر جديد):

كود :

Private Sub Command1_Click()
    Text1.Text = Replace$(Text1.Text, vbCrLf, ">")
End Sub

نرجو الاستفادة و السلام.