下列代码只能得到text1中的总行数，如何得到第n行的数据呢？求指教。。
Const EM_GETLINE = &HC4Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_Click()
Text2.Text = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, 0&)
End Sub
