Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
  Select Case Button.Index
  Case 3
    ' full extent
    map1.MousePointer = moZoomOut  此处调试时弹出“无效属性值”，什么原因，如何解决？
    Case 2
    map1.MousePointer = moZoomIn  同上
    Case 1
    map1.MousePointer = moPan  同上
    Case 4
  CommonDialog1.ShowPrinter
'Dim prin As Printer
'Set prin = Printers(0)
 'prin.Orientation
 'prin.Orientation = CommonDialog1.Orientation
'prin.Copies = CommonDialog1.Copies
 Dim Msg, Style, Title, HELP, Ctxt, Response, MyString
Msg = "是否按纵向打印?"   ' Define message.
Style = vbYesNoCancel   ' Define buttons.
Title = "系统提示"   ' Define title.
HELP = "DEMO.HLP"   ' Define Help file.
Ctxt = 1000   ' Define topic
      ' context.
      ' Display message.
Response = MsgBox(Msg, Style, Title, HELP, Ctxt)
If Response = vbYes Then   ' User chose Yes.
  'map1.PrintMap "MyMap", "", False ' Perform some action.
 ElseIf Response = vbNo Then ' User chose No.
  ' map1.PrintMap "MyMap", "", True  ' Perform some action.
 ElseIf Response = vbCancel Then
 Exit Sub
 End If
End Select
End Sub

不懂！或者是map1没有MousePionter这个属性吧！

map1 是什么？

MousePointer 属性
      

返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。

语法

object.MousePointer [= value]

MousePointer 属性语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
value 整数，按照设置值中的描述指定被显示的鼠标指针类型。


设置值

value 的设置值为：

常数 值 描述
vbDefault 0 （缺省值）形状由对象决定。
VbArrow 1 箭头。
VbCrosshair 2 十字线（crosshair 指针）。
VbIbeam 3 I 型
VbIconPointer 4 图标（矩形内的小矩形）。
VbSizePointer 5 尺寸线（指向东、南、西和北四方向的箭头）。
VbSizeNESW 6 右上-左下尺寸线（指向东北和西南方向的双箭头）。
VbSizeNS 7 垂-直尺寸线（指向南和北的双箭头）。
VbSizeNWSE 8 左上-右下尺寸线（指向东南和西北方向的双箭头）。
VbSizeWE 9 水-平尺寸线（指向东和西两个方向的双箭头）。
VbUpArrow 10 向上的箭头。
VbHourglass 11 沙漏（表示等待状态）。
VbNoDrop 12 不允许放下。
VbArrowHourglass 13 箭头和沙漏。
VbArrowQuestion 14 箭头和问号。
VbSizeAll 15 四向尺寸线。
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。


说明

在鼠标指针越过窗体或对话框上的控件时，为了指出功能上的改变，可以使用该属性。沙漏标形状设置值 (11) 是很有用的，用来指示用户需要等待过程或操作的完成。

注意 如果应用程序调用 DoEvents，那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。

----------------------------------------
你这里 moZoomOut 的值是什么？？？
moZoomIn  、  moPan   

是不是符合 map1.MousePointer  的取值范围？？？？

谢谢您这么详细又耐心的答复。

我刚查了一下
map1.mousepoint=0
mozoomin=51
mozoomin=52
mopan=53
确实取值不一样，这怎么解决？

mousepoint  所能接受的常量如下表，如果你需要得新定义新的鼠标图标，那需要 使用最后一个
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。
先设置 MouseIcon 属性，然后 把 mousepoint  改为 99 。

如果这种方法不行的话，那你只能代替鼠标了。
也就是到这个控件区域内，就把鼠标隐藏，然后自己显示一个图片到鼠标移动上，跟着鼠标移动。
移出控件区域，则恢复鼠标显示，隐藏自己的图片。

其它方法我不会。可能还有更好的。

---------------------------
vbDefault 0 （缺省值）形状由对象决定。
VbArrow 1 箭头。
VbCrosshair 2 十字线（crosshair 指针）。
VbIbeam 3 I 型
VbIconPointer 4 图标（矩形内的小矩形）。
VbSizePointer 5 尺寸线（指向东、南、西和北四方向的箭头）。
VbSizeNESW 6 右上-左下尺寸线（指向东北和西南方向的双箭头）。
VbSizeNS 7 垂-直尺寸线（指向南和北的双箭头）。
VbSizeNWSE 8 左上-右下尺寸线（指向东南和西北方向的双箭头）。
VbSizeWE 9 水-平尺寸线（指向东和西两个方向的双箭头）。
VbUpArrow 10 向上的箭头。
VbHourglass 11 沙漏（表示等待状态）。
VbNoDrop 12 不允许放下。
VbArrowHourglass 13 箭头和沙漏。
VbArrowQuestion 14 箭头和问号。
VbSizeAll 15 四向尺寸线。
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。

我按您的方法试了一下，还是不行。对了为什么我的mousepoint的常量开头都没有vb，
都是这样的：
Default 0 （缺省值）形状由对象决定。
Arrow 1 箭头。
Crosshair 2 十字线（crosshair 指针）。
Ibeam 3 I 型
IconPointer 4 图标（矩形内的小矩形）。
SizePointer 5 尺寸线（指向东、南、西和北四方向的箭头）。
SizeNESW 6 右上-左下尺寸线（指向东北和西南方向的双箭头）。
SizeNS 7 垂-直尺寸线（指向南和北的双箭头）。
SizeNWSE 8 左上-右下尺寸线（指向东南和西北方向的双箭头）。
SizeWE 9 水-平尺寸线（指向东和西两个方向的双箭头）。
UpArrow 10 向上的箭头。
Hourglass 11 沙漏（表示等待状态）。
NoDrop 12 不允许放下。
ArrowHourglass 13 箭头和沙漏。
ArrowQuestion 14 箭头和问号。
SizeAll 15 四向尺寸线。
Custom 99 通过 MouseIcon 属性所指定的自定义图标。