Option Explicit Dim crlMine As VBControlExtender Private Sub Form_Load() Set crlMine = Controls.Add("Project1.MyControl", "MyControl") With crlMine .Visible = True .Top = 100 .Left = 100 End With End Sub Private Sub crlMine_ObjectEvent(Info As EventInfo) Select Case Info.Name Case "Click" MsgBox "It Worked!" Case Else ' Unknown Event End Select End Sub