哪位大哥给贴个详细代码，急死了。
反正我是这么写的，没用：
Dim b
Dim c
Dim d
Set b=HmiRuntime.Screens("screen_2")
Set c=HmiRuntime.Screens("screen_3")
Set d=HmiRuntime.Screens("screen_4")
Select Case(Tag_3)
Case "1"
b.Activate
Case "2"
HmiRuntime.ActiveScreen.Activate("c")
Case "3"
HmiRuntime.ActiveScreen.Activate("d")
End Select