На VB не знаю, а вот на C# примерно такая усеченная функция может подойти(envelope - это IFeature::Extent), если вы где-то сами запоминаете нужные объекты геоданных:
public static void ZoomToExtent(IEnvelope envelope,IActiveView activeView)
{
IDisplayTransformation dispTransform = activeView.ScreenDisplay.DisplayTransformation;
IEnvelope pEnvelope = dispTransform.VisibleBounds;
pEnvelope.CenterAt(envelope.UpperLeft);
dispTransform.VisibleBounds = pEnvelope;
activeView.Extent = envelope;
activeView.Refresh();
}
Потом объект можно подсветить используя IMapControl2::FlashShape.Или нужно не совсем это?