关于窗口样式的API以及处理文本的API参考

Dim lLongvalue As Long

’高四位表示右边距，低四位为左边距

lLongvalue = nRight * &H10000 + nLeft

SendMessage lhWnd, EM_SETMARGINS, _

EC_LEFTMARGIN Or EC_RIGHTMARGIN, lLongvalue

End Sub

好经过测试目的达到，但是这样做有什么意义呢？有的时候如果你想在texebox中放入其他对象，而又不希望文本被覆盖掉，你就需要用到这个方法。