Sub ActivateScreen (Byval Item)
Dim objScreen
Dim strScreenName
Dim basescreen
strScreenName=Item.Userdata
HMIRuntime.BaseScreenName="main"

HMIRuntime.Screens("main").ScreenItems("画面窗口1").PictureName=strScreenName



End Sub
main是主画面，里面加个画面窗口，画面窗口里显示各个分画面。
或者
Sub ActivateScreen (Byval Item)
Dim objScreen
Dim strScreenName

strScreenName=Item.Userdata
HMIRuntime.BaseScreenName=strScreenName
End Sub
这样直接连接到各个画面中去