www.pudn.com > multiundo.zip > UndoElement.cls

VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
END 
Attribute VB_Name = "UndoElement" 
Attribute VB_Creatable = True 
Attribute VB_Exposed = True 
Public SelStart As Long  'start position in text box 
Public TextLen As Long 
Public Text As String