テキストボックスに余白を設定したいのですが、どうすればよいでしょうか?


VB6なら、SendMessageを使って出来たのですが、.NETの方は同じやりかただと出来なかったので。

以下が書いてみたコードです。

 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

 Call SendMessage(textbox1.hand, EM_SETMARGINS, EC_LEFTMARGIN, MAKELONG(lngNewValue, 0)