方案一，直接用VB脚本，WINCC里面部分按钮需要只对管理员权限课件，非管理员权限则隐藏，思路是用VB脚本，由两个思路：
方案一，直接用VB脚本，读取@currentuser, 如果是administrator账户，将display显示属性写1，如果非administrator账户，将display属性写0，代码如下：

Dim mytag12
mytag12=HMIRuntime.Tags("@currentuser").Read
    If mytag12="administrator" Then
    HMIRuntime.Tags("Display").Write 1
Else
    HMIRuntime.Tags("Display").Write 0
End If

但是实际在该按钮的display属性里面运行脚本后没有实现该隐藏功能，后来改到event里面的display脚本，也没法实现，不知有何问题

方案2，将该按钮layer放到一个没用过的层，layer 20里面，然后用VB脚本读取@currentuser, 如果是administrator账户，将visible显示属性写true,非administrator，则visible属性写0，代码如下：

Dim mytag12
mytag12=HMIRuntime.Tags("@currentuser").Read
    If mytag12="administrator" Then  

 Layers(20).visible = vbFalse

Else
    Layers(20).visible = vbTrue

End If

运行该VB脚本后还是没有实现隐藏功能

请问我这两个思路和代码有什么问题了，VB编辑器里面语法检查没有问题