请教个多行文本框简单问题，取值

Question

请教个多行文本框简单问题，取值，谢谢我如果一个多行文本框，有三行，我怎么取到第二行的值，文本框有这个属性吗？
我用Text1(0).Text，但是它提示不对，请哪位指教，多谢

Answer 1

只能自己写代码取，没现成的属性可用，第一和第二个VBCRLF之间的就是第二行内容。

Answer 2

'一个文本框，MultiLine属性True，一个按钮
Option ExplicitPrivate 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 Const EM_GETLINE = &HC4Private Sub Command1_Click()
    Dim s As String
    s = Space$(255)
    SendMessage Text1.hwnd, EM_GETLINE, 1, ByVal s '数字1是要获取的行数-1，比如第二行是1，第三行是2，依次类推
    MsgBox Trim$(s)
End SubPrivate Sub Form_Load()
    Text1.Text = "1" & vbCrLf & "2" & vbCrLf & "3"
End Sub