Создаём OCX для Ворда - VB

Формулировка задачи:

здравствуйте, делаю так: Открываем Microsoft Visual Basic Выбираем ActiveX Control Нажимаем Открыть Видим форму Ложим на форму CheckBox В код формы пишем обработку событий клика по CheckBoxOption Explicit

Private Sub Check1_Click()
 
'системный звук
Beep
'показать форму с именем ...
Form1.Show
 
End Sub
 
Private Sub objDoc_ContentControlBeforeDelete(ByVal OldContentControl As ContentControl, ByVal InUndoRedo As Boolean)
'событие Before Delete - перед удалением контрола
 
MsgBox$ "Событие ContentControlBeforeDelete"
 
End Sub

что я должен изменить в строке

Private Sub objDoc_ContentControlBeforeDelete(ByVal OldContentControl As ContentControl, ByVal InUndoRedo As Boolean)

чтобы сработало событие Before Delete - перед удалением контрола чтобы получить месседж

MsgBox$ "Событие ContentControlBeforeDelete"

спасибо

похоже, вроде правильней, то о чём пост называется ActiveX, а не ОСХ фишка его в том, что если его скопировать и вставить в том же документе, то к его имени добавиться в конце цифра 1 Ну и может кто знает, можно ли, и как добавить свойство - при добавлении контрола в документ?

null

ВСЁ ЖЕ НЕТ после компиляции мы имеем три файла ComboBox_CommandButton.ocx ComboBox_CommandButton.exp ComboBox_CommandButton.lib НАВЕРНОЕ НАЗОВУ ЕГО ОСХ тогда ещё не знаю, как добиться, чтобы ComboBox_CommandButton я увидел в Ворде с списке Элемент управления ОСХ краем уха слышал, что, что-то регистрировать надо, но подробностей не знаю, подскажите?

Решение задачи: «Создаём OCX для Ворда»

textual
                            Листинг программы 
                        

                            Public Event BeforeDelete () 
Private Sub cbBeforeDelete()
RaiseEvent BeforeDelete
MsgBox$ "Событие ContentControlBeforeDelete"
End Sub
                        