Is there a way to call VScroll1_Change() event programmatically?
I have a form with 100+ text boxes (loaded at run time) and as
you can guess most of these are in the non-visible area of the form.
I do not want my users to use scroll bars to display these non-visible fields.
Is there a way to do this using Control_GotFocus Event?
Private Sub Form_Load()
Dim ii
ii = 0
For i = 1 To 100
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + Text1(i).Height + 150
Text1(i).Left = Text1(0).Left
Text1(i).Visible = True
Next
Picture1.Height = Text1(100).Top + Text1(100).Height + 100
End Sub
Private Sub Text1_GotFocus(Index As Integer)
If Text1(Index).Top > Me.ScaleHeight Then
Picture1.Top = ????
text1(index).top = ????
Call VsCroll1_Chang(text1(Index).Top) ?????
End if
End Sub
