Public Class Funktionen
    Public Sub Set_Style(ByVal sForm As Form)
 
        Dim sControl As Control
 
        For Each sControl In sForm.Controls
            If InStr(sControl.Name, "Panel") Or InStr(sControl.Name, "pnl") Then
                sControl.BackColor = Color.LightSteelBlue
            End If
 
            If InStr(sControl.Name, "dgv") Or InStr(sControl.Name, _
              "DataGridView") Then
                sControl.BackgroundColor = Color.LightSteelBlue
            End If
        Next
    End Sub
End Class