Trying to set current line to zero

[mortgageman]

Hi all

The following routine puts scroll bars on the textboxes in the arglist.
It bombs when I try to use the curline property. Does anyone know why?
(I am trying to have the scroll start at the top)

Gene Klein

Public Sub SBturnon(ParamArray arglist() As Variant)
    Dim i      As Variant
    ufEventsDisabled = True
    For Each i In arglist
        Me.Controls("textbox" & i).ScrollBars = fmScrollBarsVertical
        Me.Controls("textbox" & i).MultiLine = True
        Me.Controls("textbox" & i).Enabled = True
        Me.Controls("textbox" & i).SetFocus
        Me.Controls("textbox" & i).SelStart = 0
        'Me.Controls("textbox" & i).CurLine = 0
    Next
    ufEventsDisabled = False
End Sub

 

[rcbunting]

What if you try setFocus just prior to the CurLine = 0 statement?

Me.Controls("textbox" & i).SetFocus
Me.Controls("textbox" & i).CurLine = 0

 

[rcbunting]

What if you try setFocus just prior to the CurLine = 0 statement?

Me.Controls("textbox" & i).SetFocus
Me.Controls("textbox" & i).CurLine = 0

(facepalm)

Sorry. That was pretty poor attention to detail.

 

[mortgageman]

(facepalm)

Sorry. That was pretty poor attention to detail.

That's pretty funny.

But I still stuck on this.

Gene Klein