курсор в TextBox-е формы

[slan]

вот. см вложение

[Bape}l{ka]

slan, ура!! ))) оно заработало! спасибо большое)

а подскажите пожалуйста, в чем проблема была? а то на первый взгляд вроде как все так же осталось. свойства где-то подправили??

я нашла в основном модуле:

Sub ent()
    ufVvod.tbVvod.SetFocus
End Sub

но видимо это не все? т.к. одним этим у меня не работает.

[slan]

нет, хитрость одна правда, кажется мне что чрезмерная - проще должно быть..

у вас закавыка была только если в текстбоксе интер жать - вот там я и поставил application.ontime now,"ent"

и процедура ent в общем модуле, которая передает фокус текстбоксу

таким образом сначала все процедуры формы отрабатывают свои события , а уж потом срабатывает передача фокуса

[Bape}l{ka]

еще нашла

Private Sub tbVvod_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Or KeyCode = vbKeyReturn Then      'если нажали энтер
        Call cbNext_Click
        Application.OnTime Now, "ent"
    '    If Shift = 0 Then Call Telo 'Else ComboBox1.Activate
    End If
End Sub

с этим работает)) теперь будемр азбираться, что это такое =ь

[Bape}l{ka]

спасибо за разъяснения)
значит это все из-за нажатия энтера...