同一个问题请不要重复发贴，都不知回答你哪个好。
新建两个画面，画面名称不需重命名，即NewPdl0，NewPdl1，在NewPdl0里添加 一个PictureWindow控件，名称即PictureWindow1，再添加个按钮，写入下面代码:
Dim objscrwindow
Set objscrwindow = ScreenItems("PictureWindow1")
objscrwindow.screenName = "NewPdl1"
这样就可以实现用画面窗口控件来实现画面的切换了，为了能看到效果，你可以将两个画面的背景色设成不同颜色。
我们学习的时候要理解这些代码所表达的意思，不是照搬一下，就可以实现你想要的功能的。