局部放大的问题？

<P>我是用VB+AO做开发的，今天看到一个例子，代码如下：</P>
<P>Dim pMapInset As IMapInset
Dim pMapInsetWindow As IMapInsetWindow
Dim pDataWindowFactory As IDataWindowFactory
Set pDataWindowFactory = New MapInsetWindowFactory
If pDataWindowFactory.CanCreate(Application) Then
Set pMapInsetWindow = pDataWindowFactory.Create(Application)
Set pMapInset = pMapInsetWindow.MapInset
'Set the zoom percent to 200%
pMapInset.ZoomPercent = 200
pMapInsetWindow.Show True
End If</P>
<P>再VB里面不能用Applicationg,请问如何再VB里面实现上述功能，谢谢！</P>

<P>获取focusmap吧</P>