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
Const EM_LINEINDEX = &HBB
Const EM_LINELENGTH = &HC1
Function TextBoxGetLine(tb As TextBox, ByVal lineNum As Long) As String
Dim charOffset As Long, lineLen As Long
charOffset = SendMessage(tb.hwnd, EM_LINEINDEX, lineNum, ByVal 0&)
lineLen = SendMessage(tb.hwnd, EM_LINELENGTH, charOffset, ByVal 0&)
TextBoxGetLine = Mid$(tb.Text, charOffset + 1, lineLen)
End Function |