Call mdl_Design.Design_Klassisch(Me)

Sub Design_Klassisch(ByVal formForm1 As frm_Form1)
 
Dim ctl As Control
 
For Each ctl In formForm1.Controls
 
If ctl.GetType() Is GetType(CheckBox) Then
CType(ctl, CheckBox).FlatStyle = FlatStyle.Standard
End If
 
Next
 
End Sub