Private WithEvents myObj As VBControlExtender
 
Private Sub Command1_Click()
    Set myObj = Form1.Controls.Add("Shell.Explorer.2", "MyWeb")
 
    With myObj
       .Top = 10
       .Left = 10
       .Width = 4000
       .Height = 4000
       .Visible = True
       .Navigate "http:\\www.vbarchiv.de"
    End With
End Sub

Private Sub myObj_ObjectEvent(Info As EventInfo)
   MsgBox Info.Name 'tue das ja nicht, sonst klickst Du ein paar Minuten lang ;)
End Sub