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.mousepoint=0
mozoomin=51
mozoomin=52
mopan=53
确实取值不一样，这怎么解决？

我按您的方法试了一下，还是不行。对了为什么我的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 属性所指定的自定义图标。