سلام
یک ماژول درست کنید و این متد رو داخلش بنویسید
Public Sub FetchAllControls(parent As Control, action As Action(Of Control))
For Each control As Control In parent.Controls
action(control)
FetchAllControls(control, action)
Next
End Sub
بعد توی هر فرمی که خواستید ، به این شکل فراخوانی کنید
FetchAllControls(Me, (Sub(x)
Dim textBox = TryCast(x, TextBox)
If (textBox IsNot Nothing) Then
textBox.Text = String.Empty
End If
End Sub))
با متد بالا می تونید ، هر خصوصیتی رو از هر کنترلی تغییر بدید و محدودیت نداره (فقط موقع فراخوانی مشخص می کنید چه نوع کنترلی مورد نظر شماست و کدام پراپرتی تغییر کنه)
مثلا اگر بخواهید همه چک باکس های فرم رو تیک بزنید :
FetchAllControls(Me, (Sub(x)
Dim checkBox = TryCast(x, CheckBox)
If (checkBox IsNot Nothing) Then
checkBox.Checked = True
End If
End Sub))
یا مثلا اگر بخواهید تمام چک باکس های روی GroupBox1 رو تیک بزنید:
FetchAllControls(GroupBox1, (Sub(x)
Dim checkBox = TryCast(x, CheckBox)
If (checkBox IsNot Nothing) Then
checkBox.Checked = True
End If
End Sub))
موفق باشید