الوان فورم المشروع هام جدا من فضلكم

ممكن. هذا مثال

Module Module1
    Sub ChangeControlColor(f As Form,ctrl As type, BackColor As Color,ForeColor As Color)
        For Each c In f.Controls
            If c.GetType() = ctrl
                c.ForeColor = ForeColor
                c.BackColor = BackColor
            End If
        Next
    End Sub
End Module

Public Class Form1

Private Sub Form1_Load( sender As Object,  e As EventArgs) Handles MyBase.Load
    Module1.ChangeControlColor(Me,GetType(TextBox),Color.Yellow,Color.Blue)
    Module1.ChangeControlColor(Me,GetType(ComboBox),Color.Aqua,Color.Black)

End Sub
End Class

السلام عليكم اولا انا شاكر جدا اهتمامك بالرد
ليا كام سؤال من فضلك اولا الجزء دا بيعمل ايه لانه بيدي ايرور
 

For Each c In f.Controls
            If c.GetType() = ctrl
                c.ForeColor = ForeColor
                c.BackColor = BackColor
            End If

تانى حاجا المفروض الجزء التانى دا بينضاف اى كل فورم طيب ما انت محدد فيه اللون معنى الكلام دا انى لو عايز اغير هلف على كل فورم و اكتب الالوان ؟؟

اقتباس

For Each c In f.Controls
	If c.GetType() = ctrl
    	c.ForeColor = ForeColor
        c.BackColor = BackColor
	End If
Next

 

هذا الكود يبحث في فورم عن نوع محدد من الكونترول الذي انت تريد تغيير لونه

هذا الكود ثابت لا يتغير بكتب لمرة واحدة

Form_Load انت تنفذ هذا اكود ب

 :) (بعدين لما تقول انو في خطأ قول وين الخطأ وما هو الخطأ (انا ما زلت اعمل على تقوبة الحاسة السادسة عندي ولم اصل لمرحلة معرفة ما بحدث عندك بعد

:) طبعا عندك حق لانى نسيت ارفق الخطأ :) 
الفكره مش المفروض ان المفروض فى الميدول يكون هنا بيتم اضافة اللون و فى الفورم ننادى عليه لتطبيقه ؟
بالنسبه للايرور فهو 
 

(انا استعملت 4.0 وانت 3.5) framework version يبدو ان الخطأ في استعمال 

ويبدو ان "=" لا تعمل في 3.5 ولكنها تعمل في 4.0

غير الكود الى : 

For Each c In f.Controls
  If c.GetType() Is ctrl
	c.ForeColor = ForeColor
  	c.BackColor = BackColor
  End If
Next

السلام عليكم اخى العزيز مشكور لمتابعتك معى بس للتوضيح من فضلك المفروض لتوضيح الكود 

 If c.GetType() Is ctrl
	c.ForeColor = ForeColor
  	c.BackColor = BackColor
  End If

السلام عليكم ورحمه الله وبركاته

يمكن عمل هذا باستخدام الشيفره التاليه:

For Each frm As Form In Application.OpenForms
            frm.BackColor = Color.Blue
Next