小弟是菜鸟，自己做画面时引用了别人的画面，一个阀门用VB动作弹出一个画面窗口，语句为：
SubOnClick(ByValItem)
Dima
Seta=ScreenItems("画面窗口19")
Ifa.visible=TrueThen
a.visible=False
Else
a.visible=True
EndIf
EndSub
我只需将("画面窗口19")中的名字改应该就可以了；可改完检查后报错，弹出错误窗口如：图1，错误窗口弹出后里面的语句变成：如图2：
OptionExplicit
SubOnClick(ByValItem)
Dima
Seta=ScreenItems("画面窗口18")
Ifa.visible=TrueThen
a.visible=False
Else
a.visible=True
EndIf
EndS
不知道应该怎么改，请高手指点；
问题补充：
改完画面窗口并检查后，语句结尾自动变为ENDS；
想改成ENDSUB可是改不了，不知道为什么
图片说明：
53d5562FC4507e6747a966eb2ef9d8bf
8c30824a6120a4fb9a7724fa848CEf5d
最佳答案
建议将原程序代码复制到txt文档中之后，再从txt中复制进新的脚本中。
问题也许是编辑器的字符集选择错误，也许是全角、半角选择错误，因为看到截图中的汉字有乱码的嫌疑，而且像end、true这种关键字都应是蓝色字体。
使用ctrl+空格，直接使用自带的英文键盘输入法写脚本。
提问者对于答案的评价：
学习
