VB5 to Pic VB5 Help

[rsocor01]

Ok, I will make it even simpler. This is the code I'm using to test the multiline feature

Option Explicit

Private Sub Command1_Click()
Dim MyNumber As Long
Dim I As Long

MyNumber = 0

For I = 0 To 50
    Text1.SelStart = Len(Text1)             'Finds the starting point to append text
    Text1.SelText = MyNumber & vbCrLf       'Appends text
    MyNumber = MyNumber + 100
Next I

End Sub

And, this is the result



Just try these two lines and they should work

    Text1.SelStart = Len(Text1)             'Finds the starting point to append text
    Text1.SelText = MyNumber & vbCrLf       'Appends text

Make sure you have the next settings correct

[l_gaminde]

Just try these two lines and they should work

Text1.SelStart = Len(Text1) 'Finds the starting point to append text
Text1.SelText = MyNumber & vbCrLf 'Appends text

For Me Simple is really good!! THIS WORKS !! just changed the mynumber to mystr and bingo scrolls, Ok I just ( learnt somethin )

Thank You !!
you spent a lot of time helping! I appreciate it! there was someone else who could use this but forgot who ??

Thank You
Larry