关于　richtextbox　自适大小．谁帮我翻成ＶＢ　

http://social.microsoft.com/Forums/en-SG/2212/thread/111a2875-dee8-4b42-aed5-d887a26b6926

关于　richtextbox　自适大小．谁帮我翻成ＶＢ6.0的 --------------------编程问答-------------------- --------------------编程问答-------------------- [code=C#protected]   override   void   WndProc(ref   Message   m)
{
if(m.Msg   ==   API.WM_NOTIFY   &&   autoResize)
{
NMHDR   n   =   (NMHDR)Marshal.PtrToStructure(m.LParam,   typeof(NMHDR));
if(n.code   ==   API.EN_REQUESTRESIZE)
{
REQSIZE   r   =   (REQSIZE)Marshal.PtrToStructure(m.LParam,   typeof(REQSIZE));
if(Math.Abs(r.rect.bottom   +   2   *   this.BorderWidth   -   this.Height)   <   2)
return;
this.SuspendLayout();
this.Height   =   r.rect.bottom   +   2   *   this.BorderWidth;
this.ResumeLayout();
}
}
base.WndProc(ref   m);
}
[/code
去VB问问

补充：.NET技术 ,  .NET Framework