استعمال Em_setundolimit

السلام عليكم

كيف أجعل rich text box تقبل أكثر من EM_UNDO واحدة

ولقد وجدت EM_SETUNDOLIMIT في MSDN

ولكنها لا تعمل أبدا

ووجدت هذا الكود ولكنه لا يعمل معي أيضا

Dim lStyle As Long
'// required to 'reveal' multiple undo
'// set rich text box style
lStyle = TM_RICHTEXT Or TM_MULTILEVELUNDO Or TM_MULTICODEPAGE
SendMessageLong hRich, EM_SETTEXTMODE, lStyle, 0

هل من مساعدة وشكرا