Dynamic Controls

[Rwhite]

How can you add events to controls added in runtime
using the ADD method?

[HeSaidJoe]

'add a command button to a form dynamically at run time

Option Explicit

Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
   MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
   Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
   With btnObj
      .Visible = True
      .Width = 3000
      .Caption = "This button was created on the fly!"
      .Top = 1000
      .Left = 1000
   End With
End Sub

[johnson_m]

Originally posted by Rwhite

How can you add events to controls added in runtime
using the ADD method?

Try using the CreateEventProc Method. If this doesn't help, let me know.

[HeSaidJoe]

johnson_m

If you use the code I pasted the events come with the button. All you have to do is use them..ie> 
Private Sub btnObj_Click()
   MsgBox "This is a dynamically added button."
End Sub
or any other event belonging to the control created...you just have to choose to use.

[markman]

How would you make more than one?

[dsy5]

Same way as you made the first.