下 面 的 辦 法 不 但 適 用 于 RichTextBox， 也 適 合 于 TextBox。 
    先 加 入 以 下 定 義 ： 
    Const EM_CANUNDO = &HC6 
    Private Declare Function SendMessage Lib "User32" Alias _ 
    "SendMessageA" _ 
     (ByVal hWnd As Long, _ 
     ByVal wMsg As Long, _ 
     ByVal wParam As Long, _ 
     ByVal lParam As Long) As Long 
     Const EM_UNDO = &HC7 
    然 后 使 用 
    SendMessage RichTextBox1.hWnd, EM_UNDO, 0&, 0& 
    就 可 以 實 現 Undo功 能 。 
    你 也 可 以 使 用 
     lRet = SendMessage(RichTextBox1.hWnd, EM_CANUNDO, 0&, 0&) 
    來 決 定 是 否 可 以 進 行 Undo操 作 。 如 果 返 回 1表 示 可 以 。 
<END>