A StringBuilder buffer has been overflowed by unmanaged code.

this is the code im using

Dim iLineIndex As Integer = SendMessage(hwnd, EM_LINEINDEX, ilastLine, 0)
Dim iLineLength As Integer = SendMessage(hwnd, EM_LINELENGTH, iLineIndex, 0)
if iLineLength = 0 return Nothing ' or return ""
Dim sb As StringBuilder = New StringBuilder(iLineLength)
sb.Append(ChrW(iLineLength))
sb.Length = iLineLength
SendMessage(hwnd, EM_GETLINE, ilastLine, sb)

still give me the same error

    Declare Unicode Function SendMessage Lib "USER32" Alias "SendMessageW" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer

    Declare Auto Function SendMessage Lib "USER32" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

it work but some times i give me this message A StringBuilder buffer has been overflowed by unmanaged code

that is the exception i get

Warning: A StringBuilder buffer has been overflowed by unmanaged code.  The process may become unstable.  Insufficient capacity allocated to the StringBuilder before marshaling it.

i did but couldn’t find any thing

yes