ActiveX Control

I created an Activex Control.

In my application I did not added it to the toolbox. I'm creating it dynamically. This is the code I use:

VB Code:

Dim WithEvents objExt As VBControlExtender ' Declare VBControlExtender variable
 
Private Sub LoadControl()
   Licenses.Add "MyControl.Control"
   Set objExt = Controls.Add("MyControl.Control", "myCtl")
End Sub
 
Private Sub extObj_ObjectEvent(Info As EventInfo)
   ' Program the events of the control using Select Case.
   Select Case Info.Name
   Case "Click"
      ' Handle Click event here.
   ' Other cases now shown
   Case Else ' Unknown Event
      ' Handle unknown events here.
   End Select
End Sub
 
 
Private Sub Command1_Click()
    Call LoadControl
End Sub

I can handle the events. However, does anyone know how I can access the methods and properties I created for the control when adding the control dynamically to the form?

I can use access them fine when I add it to the toolbox.

Got it.

VB Code:

Dim WithEvents objExt As VBControlExtender ' Declare VBControlExtender variable
 
Private Sub LoadControl()
   Licenses.Add "MyControl.Control"
   Set objExt = Controls.Add("MyControl.Control", "myCtl")
 
   'To call a method
   objExt.Object.MethodName(parameteres)
   'Cool
End Sub
 
Private Sub extObj_ObjectEvent(Info As EventInfo)
   ' Program the events of the control using Select Case.
   Select Case Info.Name
   Case "Click"
      ' Handle Click event here.
   ' Other cases now shown
   Case Else ' Unknown Event
      ' Handle unknown events here.
   End Select
End Sub
 
 
Private Sub Command1_Click()
    Call LoadControl
End Sub

Damn, I knew it was too easy.

I'm probably missing something easy but here it goes:

I am able to access properties and methods.

However, I have public enumerations. Does anyone know how I can access those?

Thanks to those who reply.

HAHA! Thank you very much for your solution. had the same problem... Thx...

unfortunately I don't know the answhere to your second question, but I'll probably know when a reply is posted here :)

Thx

Quote:

---

Originally posted by BShadow
HAHA! Thank you very much for your solution. had the same problem... Thx...

unfortunately I don't know the answhere to your second question, but I'll probably know when a reply is posted here :)

Thx

---

Uhm... I think 2 years is enough time for him to have solved this problem or gotten over it. :)

Quote:

---

Originally posted by mendhak
Uhm... I think 2 years is enough time for him to have solved this problem or gotten over it. :)

---

LOL, Yes I've noticed the date after i've posted the reply ;)