Private Const EM_SETMARGINS As Integer = &HD3s Private Const EC_RIGHTMARGIN As Integer = &H2s Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer Private Function MAKELONG(ByVal i As Integer, ByVal j As Integer) As Integer Return (i And &HFFFF) Or (j * &H10000) End Function
