在VB（Visual Basic）程序设计中实现撤销功能，可以采用以下几种方法：
使用字符串数组保存文本状态
在文本框的每次`Change（）`事件发生时，将当前文本保存到字符串数组的一个元素中。
当需要撤销时，从数组中取出前一个元素的文本并恢复。
使用`WM_UNDO`消息
通过调用`SendMessage`函数发送`WM_UNDO`消息到文本框控件，可以实现撤销功能。
需要声明`WM_UNDO`常量（`&H304`）和`SendMessage`函数。
使用复选框控制撤销操作
添加一个复选框，当复选框选中时，才执行撤销操作；否则，不执行撤销。
使用撤销和重做堆栈
实现一个撤销和重做堆栈，每次执行撤销操作时，将当前状态压入撤销堆栈；每次执行重做操作时，将撤销堆栈顶部的状态弹出并恢复到文本框中。
这种方法可以实现多步撤销和重做功能。
示例代码
```vb
' 定义一个文本框控件
Dim text1 As TextBox
' 定义一个全局变量来保存撤销堆栈
Dim undoStack As New Collection
' 定义一个全局变量来保存重做堆栈
Dim redoStack As New Collection
' 定义一个常量表示撤销消息
Const WM_UNDO As Long = &H304
' 撤销操作
Sub Undo（）
If undoStack.Count > 0 Then
' 从撤销堆栈中取出前一个状态
Dim prevState As String = undoStack（undoStack.Count）
' 将前一个状态恢复到文本框
text1.Text = prevState
' 将当前状态压入重做堆栈
redoStack.Add text1.Text, CStr（text1.Text）
' 清空撤销堆栈
undoStack.Remove undoStack.Count
End If
End Sub
' 重做操作
Sub Redo（）
If redoStack.Count > 0 Then
' 从重做堆栈中取出前一个状态
Dim nextState As String = redoStack（redoStack.Count）
' 将前一个状态恢复到文本框
text1.Text = nextState
' 将当前状态压入撤销堆栈
undoStack.Add text1.Text, CStr（text1.Text）
' 清空重做堆栈
redoStack.Remove redoStack.Count
End If
End Sub
' 在文本框的Change事件中调用Undo方法
Private Sub text1_Change（）
' 保存当前文本到撤销堆栈
undoStack.Add text1.Text, CStr（text1.Text）
End Sub
```
建议
用户界面：为撤销和重做操作提供直观的用户界面元素，如按钮或菜单项。
性能：对于频繁的撤销和重做操作，考虑优化性能，例如使用更高效的数据结构或缓存机制。
错误处理：确保在撤销和重做操作中处理可能的错误情况，例如堆栈为空时的操作。