Hvordan slår man WordWrap i en RichTextBox fra ?

Nå ikke ...

Jeg ved det er et gammel spm, men hvis du ikke til denne tid HAR fundet ud af det, fandt jeg det på PlanetSourceCode, da det også irriterer mig grænseløst:

'I et modul:
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
Public Const WM_USER = &H400
Public Const EM_SETTARGETDEVICE = (WM_USER + 72)

'Slå wordwrap til:
SendMessageLong RichTextBox.hwnd, EM_SETTARGETDEVICE, 0, 0

'Slå wordwrap fra:
SendMessageLong RichTextBox.hwnd, EM_SETTARGETDEVICE, 0, 1

:o) - Mikkel