[asemshahen5]

اختصار جديد للكود :

PHP كود :

   Public Sub StyleControls(ParentCtrl As Control)
        For Each ctrl As Control In ParentCtrl.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.BackColor = Color.Black
                ctrl.ForeColor = Color.White
            ElseIf TypeOf ctrl Is Button Then
                ctrl.BackColor = Color.Black
                ctrl.ForeColor = Color.White
            ElseIf TypeOf ctrl Is ComboBox Then
                ctrl.BackColor = Color.Black
                ctrl.ForeColor = Color.White
            ElseIf ctrl.HasChildren = True Then
                StyleControls(ctrl)
            End If
        Next
    End Sub 


نفس طريقة الاستخدام .

PHP كود :

      StyleControls(Me) ''لكل أدوات الفورم
       StyleControls(Panel1) ''لأدوات بانل معين فقط
       StyleControls(GroupBox1) ''لأدوات قروب بوكس معين فقط