Přepínač funkce WordWrap pro RichTextBox
Procedura:
' Příklad použití:
' Private Sub Check1_Click()
' SetRichTextBoxWordWrap RichTextBox1, (Check1.Value = vbChecked)
' End Sub
Sub SetRichTextBoxWordWrap(ByVal
ctlRichText As RichTextBox, _
Optional ByVal bState As Boolean = True)
SendMessageLong
ctlRichText.hwnd, EM_SETTARGETDEVICE, 0, _
IIf(bState, 0, 1)
End Sub