Maintain a Theme for a project

here i have submited a code snippet this snippet will use those who want to maintain a theme for their projects in vb6
prerequisties
add a module and copy this code

Code:


public sub SetThemeTo(ByVal Frm as Form)
Dim Cont as control
For Each cont in Frm.Controls
      If TypeOf Cont is TextBox then
        Cont.BackColor = VbRed
        'you can also change your font Property
      Elseif TypeOf Cont is  Label then
        cont.BackColor  = vbCyan
        'you can also change your font Property
      End If
' in the same manor you can sel for all your controls backcolor, forecolor, font
'thus you can maintain a theme for all over the project
Next
End Sub


call the sub in any form load method like this

Code:


SetThemeTo me


Wow ! That's a nice technique and good thinking pal... Keep it up