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 Const WM_USER As Long = &H400 Private Const EM_SETTARGETDEVICE As Long = WM_USER + 72
Sub SetRichTextBoxWordWrap(ByVal ctlRichText As RichTextBox, _ Optional ByVal bState As Boolean = True) SendMessage ctlRichText.hwnd, EM_SETTARGETDEVICE, 0, CLng(IIf(bState, 0, 1)) End Sub |