Как программно создать контрол UserControl? - VB
Формулировка задачи:
Этот код создает кнопку. А если это Winsock?
Решение задачи: «Как программно создать контрол UserControl?»
textual
Листинг программы
Option Explicit
Dim WithEvents wskSocket As VBControlExtender
Private Sub Form_Load()
Licenses.Add "MSWinsock.Winsock"
Set wskSocket = Me.Controls.Add("MSWinsock.Winsock", "wskSocket")
End Sub
Private Sub wskSocket_ObjectEvent(Info As EventInfo)
MsgBox Info.Name
End Sub