l'exemple suivant instancie le controle Microsoft Access Calendar (msacal70.ocx) de cette manière:
Dim WithEvents ctlobj As VBControlExtender
Private Sub cmd1_Click()
Dim ctlProgID as String
ctlProgID = "MSCAL.Calendar"
Set ctlobj = Controls.Add(ctlProgID, "myctl")
ctlobj.Visible = True
End Sub
Private Sub ctlobj_ObjectEvent(Info As EventInfo)
Dim i As Long
Dim numargs As Long
Dim msg As String
msg = ""
numargs = Info.EventParameters.Count
msg = msg & "Incoming event: " & Info.Name & vbCrLf
For i = 0 To numargs - 1 msg msg & "Arg n. " & CStr(i) & " name " & _
CStr(Info.EventParameters(i).Name & _
" value = " & CStr(Info.EventParameters(i).Value)) & _
vbCrLf
Next i