TextBox/RichTextBoxのワードラップを無効にする

VisualBasic6用
TextBox/RichTextBoxのワードラップを無効にする

Const EM_SETWORDBREAKPROC = &HD0&
Private 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 Function EditNoWordBreakProc(lpch As Long, _
    ichCurrent As Long, cch As Long, action As Long) As Long
    EditNoWordBreakProc = 0   '何もしないで 0 を返す
End Function
' TextBox/RichTextBoxのワードラップを無効にする
'
' lngHWnd : TextBox/RichTextBox のウィンドウハンドル
'
' 戻り値 : 正常 - 行数
'          異常 - -1
'
Public Sub SetNoneWRap(ByVal lngHWnd As Long)
    Dim lngRetCd As Long
    lngRetCd = SendMessageLong(lngHWnd, EM_SETWORDBREAKPROC, 0&, _
                               AddressOf EditNoWordBreakProc)
End Sub