Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
      ByVal lParam As String) As Long
 
      Private Const EM_GETLINE = &HC4
      Private Const EM_GETLINECOUNT = &HBA
 
Private Sub Text1_Change()
Dim lTotLines As Long
         Dim sCurLine As String * 100
 
         lTotLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
 
         sCurLine = Space(100)
 
         Call SendMessage(Text1.hwnd, EM_GETLINE, lTotLines - 1, sCurLine) 
 
         Text2.Text = sCurLine
 
End Sub

___________________________________________________________________

[u]http://www.su.am