Exit For

       End If

    Next i

Next

End Function

Private Sub Toolbar1_ButtonClick(ByVal

Button As MSComctlLib.Button)

Select Case Button.Key

Case "zoomin"   '放大

  Map1.CurrentTool = miZoomInTool

Case "zoomout"  '缩小

  Map1.CurrentTool = miZoomOutTool

Case "global"    '全图

  Map1.Bounds = Map1.Layers.Bounds

Case "pan"      '漫游

  Map1.CurrentTool = miPanTool

Case "arrow"    '点选择

  Map1.CurrentTool = select_point

End Select

End Sub

程序运行结果如图５所示。

图5 程序运行结果