On Error Goto ErrMsg  If frmMain.ActiveForm.SuperMap1.OutputMapToFile(.FileName, scfJPG, , True) Then
                        MsgBox "地图保存成功!", vbInformation
  End IfErrMsg:
  MsgBox Err.Description
''''''''''''''
OutputMapToFile 函数需要大量内存,内存不足时VB提示 误代码 '6170' 但却不能执行ErrMsg:代码段,为什么?