did you set the index property of text1 to 0????
try something like this:

and your code... instead of controls.add

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

dim withevents txtObj as textbox

controls.add .......
.
.
.
.

it will allow you to pick events for this dynamic control
Private Sub txtObj_Click()

End Sub

Cheers,
Prabodh

Private Sub Form_Load()
    Dim i As Integer

    For i = 1 To 10
        Load Me.txt(i)

        Me.txt(i).Top = i * 500
        Me.txt(i).Visible = True
    Next i
End Sub

Couldn't make i work?

Dim WithEvents txtObj As TextBox

Private Sub Form_Load()
Set txtObj = Controls.Add("VB.TextBox", "txt")
With txtObj
    .Visible = True
    .Text = "TEST"
    .Top = 120
    .Left = 120
    .Width = 5000
    .Height = 300
End With
End Sub

Private Sub txt_Click()
MsgBox "ok"
End Sub

THANKS!

u dont hv to declare Dim WithEvents txtObj As TextBox

just place a TextBox (name = txt) on the form and set Index property = 0 in design time
then just use this code

Still can't make it work, heres the complete text for the form:

VERSION 5.00
Begin VB.Form Form1
   Caption = "Form1"
   ClientHeight = 3195
   ClientLeft = 60
   ClientTop = 345
   ClientWidth = 4680
   LinkTopic = "Form1"
   ScaleHeight = 3195
   ScaleWidth = 4680
   StartUpPosition = 3 'Windows Default
   Begin VB.TextBox txt
      Height = 495
      Index = 0
      Left = 1800
      TabIndex = 0
      Text = "Text1"
      Top = 1320
      Width = 1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents txtObj As TextBox

Private Sub Form_Load()
Set txtObj = Controls.Add("VB.TextBox", "txt")
With txtObj
' .Index = 1
    .Visible = True
    .Text = "TEST"
    .Top = 120
    .Left = 120
    .Width = 5000
    .Height = 300
End With
End Sub

Private Sub txt_Change(Index As Integer)
MsgBox "ok"
End Sub


THANKS

gimme ur mail is...i will send u a sample application...

gimme ur mail id...i will send u a sample code

Hi there... already told you this.. replace
with this:
where objectcount is the next index you want...



HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

Sorry Off late I was little busy and couldn't saw it.
You are making a mistake that is why it is not working even after WithEvents.

Private Sub txt_Click()
MsgBox "ok"
End Sub

Instead it should be
Private Sub txtObj_Click()


Cheers,
Prabodh