Private WithEvents flxobj As VBControlExtender
 
Private Sub Form_Load()
   VB.Licenses.Add "MSFlexGridLib.MSFlexGrid.1"
   Set flxobj = Form1.Controls.Add("MSFlexGridLib.MSFlexGrid.1", _
     "theLateBindingControl")
   flxobj.Visible = True
End Sub
 
Private Sub flxobj_ObjectEvent(Info As EventInfo)
   MsgBox Info.Name
End Sub