TextBox怎么不换行?高手请进!!!!!!!!!!!!!!!!!

我们知道TextBox的MultiLine属性可让文本框在回车时自动换行,但是为只读属性,不可以在运行时控制是否换行,为了在运行时控制文稿本框是否换行,我使用以下API:
       Dim  lResult  As  Long
       Dim  lStyle  As  Long

       'Text1为文本框
       lStyle  =  GetWindowLong(Text1.hwnd,  GWL_STYLE)
       lResult  =  SetWindowLong(Text1.hwnd,  GWL_STYLE,  lStyle  Or  ES_MULTILINE  )

         但我发现回车以后,并不换行,这是为什么?请高手指点!!!!!!!!