كيف أنشئ محرر نصوص مشابه لمحرر الأكواد الخاص بيئة فيجوال ستوديو

بسم الله الرحمن الرحيم

السلام عليكم

1)عندما نكتب Dim , For , End إلى آخره فإننا نرى لونها يتحول مباشرة إلى الأزرق.

2)عند وجود خطأ ما يظهر خط متعرج أسفل الخطأ.

3)عندما نضعظ على زر (دوت) تظهر لنا نافذةصغيرة بعد الدوت بها جميع خصائص وأساليب الكائن الذي يسبع الدوت.

4)عند بدايةكتابةالقوس لدالة ما تظهر لنا رسالة التعليمات الصفراء وبها معطيات الدالة.

5)عند الضغط على Ctrl+Space تظهر لنا نافذة صغير بها جميع الكائنات والأساليب والوظائف

ارجو منك كتابة الكود التالي في زر أوامر

Dim I_Found_Best_Answer as Boolean

Do While I_Found_Best_Answer=False

MsgBox("كيف تم هذا")

Loop

كيف .. كيف .. كيف

وجزاكم الله خير