wsh и ScriptControl

Въпроса е за скриптове и за ScriptControl. Ей това кодче успешно добавя бутонче върху форма.

Dim ctlCommand1

Sub ASimpleScript()

Set ctlCommand1 = frmMain.Controls.Add("VB.CommandButton", "cmdOK", frmMain)
With ctlCommand1
.Move 4880, 360, 1575, 375
.Caption = "&Save"
.Visible = True
End With

End Sub

Private Sub ctlCommand1_Click()
Call MsgBox("cmdOK_Click")
End Sub

Ако можех и да хвана събитието натискат бутон. Според статиите които четох това трябва да работи , ама не е такъв случая. Ето и статията [линк]

Dim ctlCommand1

Sub ASimpleScript()

Set ctlCommand1 = frmMain.Controls.Add("VB.CommandButton", "cmdOK", frmMain)
With ctlCommand1
.Move 4880, 360, 1575, 375
.Caption = "&Save"
.Visible = True
End With


AddHandler ctlCommand1.Click, New EventHandler(AddressOf Me.ctlCommand1_Click)


End Sub


Private Sub ctlCommand1_Click(ByVal sender As Object, ByVal e As
System.EventArgs)


Call MsgBox("cmdOK_Click")
End Sub

Благодаря за отговора. Все пак скрипт кода изглежда е некоректен/невалиден. Освен това е за .net а не за wsh. В .net е съвсем друга каша със скриптовите езици и вече съвсем се отказвам от тях. Просто исках всеки скрипт да си "дописва" GUI-то като внедрява или ново меню или нова лента с инструменти и да се закачи към сибитията на свойте си GUI контроли. И после да създаде форма от асембли и тя вече да е MDI дете на формата на приложението , която е mdi контейнер. Ама трудноста която срещнах вече ме отказа от това ми намерение.

Сори, не съм разбрал въпроса ти. Това, което искаш не става, защото пак според този дето е писал статията вградените VB контроли не подържат пълна имплементация на IConnectionPointContainer или така каквато се очаква в случая.

[линк]

Ако си мъж може да хванеш дебугера и да видиш точно какво липсва и защо тези обекти работят във ВБ форми.

ПС. Аз също мразя скриптовете.