CheckBox [РЕШЕНО]

Всем привет...Подскажите, пожалуйста, что может быть не так в нижеприведенном коде. Есть диалоговое окно, на нем чекбокс и кнопка. По нажатию кнопки у чекбокса должен меняться label и выводится сообщение о том в каком сейчас состоянии чекбокс. Состояние всегда выводится как 0, а label не меняется Заранее огромное спасибо!Код:Sub OOMEDlgCheckBoxDim oModel DialogLibraries.LoadLibrary( "Standard" ) oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) oModel = oDialog1.getModel().getByName("CheckBox" ) oModel.Label="11111" MsgBox oModel.StateEnd Sub