如何运用帮助里面的vba代码???

<P>AO中提供了许多VBA代码，怎样修改才能在VB中使用呢？希望高手能讲讲经验。例如下面的代码该如何改呢？这是选择地物的VBA代码。谢谢。</P>
<P>Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)<BR>Dim pMxApp As IMxApplication<BR>Dim pMxDoc As IMxDocument<BR>Dim pMap As IMap<BR>Dim pActiveView As IActiveView<BR>Dim pEnvelope As IEnvelope<BR>Set pMxApp = Application<BR>Set pMxDoc = Application.Document<BR>Set pMap = pMxDoc.FocusMap<BR>Set pActiveView = pMap<BR>Set pEnvelope = pMxDoc.CurrentLocation.Envelope<BR>pEnvelope.Expand pMxDoc.SearchTolerance, pMxDoc.SearchTolerance, False<BR>'Refresh the old selection to erase it<BR>pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing<BR>'Perform the selection using a point created on mouse down<BR>pMap.SelectByShape pEnvelope, pMxApp.SelectionEnvironment, True<BR>'Refresh again to draw the new selection<BR>pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing<BR>End Sub </P>