توابع تغییر خصوصیت چندین شیء از یک کلاس

[ROSTAM2]

تابع تغییر خصوصیت Enabled از چندین شیء بهمراه تعیین کلاس آنها


Sub EnableChange(Of T)(ByVal Bool As Boolean, ByVal ParamArray Ctls() As T)
For Each Ctl As Object In Ctls
Ctl.Enabled = Bool
Next
End Sub