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

Dim pMxDocument     As IMxDocument
   Dim pActiveView     As IActiveView
   Dim pExtentStack    As IExtentStack
   On Error GoTo ErrorHandler
   Set pMxDocument =  ThisDocument

   Set pActiveView =  pMxDocument.FocusMap
   Set pExtentStack = pActiveView.ExtentStack
   If pExtentStack.CanRedo Then
       pExtentStack.Redo
   End If
   Exit Sub
ErrorHandler:
   MsgBox Err.Description

// ThisDocument是个什么东东，我想在VB.net中实现，不知道如何
如何将pMxDocument实例化，谢谢

我是用C#.NET做的,希望对你能有帮助

IActiveView pactiveview = axMapControl1.ActiveView.FocusMap as IActiveView;
    IExtentStack pextentstack = pactiveview.ExtentStack;
    if (pextentstack.CanUndo())
    {
     pextentstack.Undo();
    }