[أمجد وضاح]

السلام عليكم ورحمة الله وبركاته 
اقدم لكم الدرس الرابع
الدرس على الكومبو بوكس 
ضف كومبو بوكس وتكست بوكس وزر 
ضف ٤ Item واكتب 
١أحمر ٢أصفر ٣أزرق ٤أخضر
وانتقل إلى منطقه أكواد الزر واكتب 

كود :

If CompoBox1.Text="أحمر"Then
TextBox1.ForeColor=Color.Red
EndIf
If CompoBox1.Text="أزرق"Then
TextBox1.ForeColor.Blue
EndIf
If CompoBox1.Text="أصفر"Then
TextBox1.ForeColor=Color.Yello
EndIf
If ComboBox1.Text="أخضر"Then
TextBox1.ForeColor=Color.Green
EndIf

 الآن قد أكملنا كتابه أكواد البرنامج 
الخاصيه ForeColor جديدة عليك 
الخاصيه تقوم بتغيير لون الكتابه كما اتضح لك أنه يغير الألوان 
وقد عرفنا كيف نتعامل مع الكومبو بوكس لكن هذه الطريقة ليست فعاله سنتعرف على طريقه أخرى في الدرس القادم