HELP - Не работает VBA скрипт
Эдуард; 23.9.04

Пишу в событии OnClick HMI-объекта VBA скрипт, но при компиляции VBA Editor ругается


Option Explicit


Sub Click(ByVal Item)
Dim objPicWindow As HMIPictureWindow
Set objPicWindow = ActiveDocument.HMIObjects.AddHMIObject("PicWindow1","HMIPictureWindow")
With objPicWindow
.Top=90
.Left=40
.Width=332
.Height=290
.AdaptPicture=False
.AdaptSize=False
.Border=True
.Caption=True
.PictureName="ControlZD.pdl"
.CaptionText="Íîâîå îêíî óïðàâëåíèÿ"
.UpdateCycle=0
End With
End Sub

Ругание VBA-Editor:
Предполагается наличие окончания инструкции (5): Dim objPicWindow As HMIPictureWindow
Actions must be error-free to be saved!
Please comment out the faulty instructions.<<br>