OK I fix this !!!
:sign0060:
I create new textbox Out of loop and after timer_tick I fill all other textboxes in form
My Code:
Sub Form4_Show
Sbarkod.Text = ""
Sbarcode.New1("Form4","Sbarkod") 'this is Obj. Barcode.dll
TextTrial.Focus 'this is Invisible textbox
Timer3.Enabled=true
Timer3.Interval=200 'less then 1 second (2 millisecond)
End Sub
Sub Sbarcode_TextChanged
SCavt.Text = ""
SNameF.Text = ""
SNameL.Text = ""
SGender.Text = ""
SAddress.Text = ""
SCity.Text = ""
For i = 0 To Table1.RowCount - 1 'Table1 is table where I load CSV database
If Table1.Cell("Barcode",i) = Sbarkod.Text Then
SCavt.Text = Table1.Cell("CAVT Number",i)
SNameF.Text = Table1.Cell("First Name",i)
SNameL.Text = Table1.Cell("Last Name",i)
SGender.Text = Table1.Cell("Gender",i)
SAddress.Text = Table1.Cell("Address",i)
SCity.Text = Table1.Cell("City",i)
End If
Next
End Sub
Sub Timer3_Tick
Sbarkod.Text = TextTrial.Text 'Here I fill data into Sbarkod textbox
TextTrial.Focus
TextTrial.Text = ""
Timer3.Enabled=false
End Sub
Sub TextTrial_KeyPress (key) 'after this click Timer3 is enabled and read data from CSV again
Timer3.Enabled=true
End Sub
Thanks