Const EM_SETTARGETDEVICE= (WM_USER + 72)
Сообщение EM_SETTARGETDEVICE устанавливает контекст устройства отображения и ширины строки для обеспечения работы в режиме WYSIWYG
В успешном случае возвращается ненулевое значение, в случае ошибки возвращается 0
' Включить/выключить перенос по словам
'Расположите на форме 2 элемента CommandButton
Private Sub Command1_Click()
SendMessageByNum RichTextBox1.hwnd, EM_SETTARGETDEVICE, 0, 1
End Sub
Private Sub Command2_Click()
SendMessageByNum RichTextBox1.hwnd, EM_SETTARGETDEVICE, 0, 0
End Sub