下面的程序代码使用 SetTag 函数将 gs_tag_bit 变量的值设置为 TRUE，并将返回值保存到 ok 变量中。

ok = SetTag("gs_tag_bit", TRUE);

以下示例显示了单击用户自定义菜单项时执行的脚本“ChangeScreen”。使用“数据”(Data) 字段将画面名称传送到脚本。 

Sub ChangeScreen (ByVal Item)

    Dim objScreen, strScreenName

    ' "UserData" contains the screen name specified

    ' in editor menus and toolbars. 

    strScreenName = Item.Userdata

    HMIRuntime.BaseScreenName = strScreenName

End Sub

不知道功能一样不

ChangeScreen这个函数没找到，你看看VB函数里面是不是自己编写的