vb.net+AO如何实现撤销，有VBA的代码，可是不知道如何转为VB.net

<P>Dim pMxDocument     As IMxDocument<BR>    Dim pActiveView     As IActiveView<BR>    Dim pExtentStack    As IExtentStack<BR>    On Error GoTo ErrorHandler<BR>    Set pMxDocument =  ThisDocument</P>
<P>    Set pActiveView =  pMxDocument.FocusMap<BR>    Set pExtentStack = pActiveView.ExtentStack<BR>    If pExtentStack.CanRedo Then<BR>        pExtentStack.Redo<BR>    End If<BR>    Exit Sub<BR>ErrorHandler:<BR>    MsgBox Err.Description <BR><BR>// ThisDocument是个什么东东，我想在VB.net中实现，不知道如何<BR>如何将pMxDocument实例化，谢谢</P>

大多数情况下pMxDocument.FocusMap就是ae中的IMap<BR>

<P>我是用C#.NET做的,希望对你能有帮助</P>
<P>IActiveView pactiveview = axMapControl1.ActiveView.FocusMap as IActiveView;<BR>     IExtentStack pextentstack = pactiveview.ExtentStack;<BR>     if (pextentstack.CanUndo())<BR>     {<BR>      pextentstack.Undo();<BR>     }</P>