主题：[求助]软件更新版本后，代码执行不了

2016的版本，现在升级到2022版。升级后，执行下面的代码没有反应，请问是什么原因呢？

 

With e.Form.Controls("组1")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组2")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组3")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组4")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组5")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组6")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With

此主题相关图片如下：qq截图20211206084310.jpg