如何用同一个按钮控制不同用户名的人进入不同的画面

Sub VBFunction_1()

Dim A

A=SmartTags("用户名")

Select Case A

Case "oper1"

ActivateScreen "画面_X",0

Case "oper2"

ActivateScreen "画面_Y",0

End Select

End Sub

闹鬼了，刚才突然键盘各种错位，打出来的字母数字都对不上号，不知道是什么原因造成的，重启后又好了，火大。

今天这个是我在西门子HMI上搞出的第一条VB脚本，仿真运行通过。

老顾叼一句：磨刀不误砍柴工，学习方法很重要。好吧，我是想走捷近来着。