象QQ一样的抓图程序实现方法？

<P>我在作导出为图片时只能实现整个屏幕的导出，我想作一个象QQ一样的抓图功能，能够实现自由控制所选区域！</P>
<P>谢谢了</P>
<P>Dim pMxDoc As IMxDocument<BR> Set pMxDoc = ThisDocument<BR>  <BR>  Dim lScrRes As Long<BR>  lScrRes = pMxDoc.ActiveView.ScreenDisplay.DisplayTransformation.Resolution<BR>  <BR>  Dim pExporter As IExporter<BR>  Set pExporter = New JpegExporter<BR>  pExporter.ExportFileName = "C:\Export.jpg"<BR>  pExporter.Resolution = lScrRes<BR>  <BR>  Dim deviceRECT As tagRECT<BR>  deviceRECT = pMxDoc.ActiveView.ScreenDisplay.DisplayTransformation.DeviceFrame<BR>  <BR>  Dim pDriverBounds As IEnvelope<BR>  Set pDriverBounds = New Envelope<BR>  <BR>  pDriverBounds.PutCoords deviceRECT.Left, deviceRECT.bottom, deviceRECT.Right, deviceRECT.Top<BR>  pExporter.PixelBounds = pDriverBounds<BR>  <BR>  Dim pCancel As ITrackCancel<BR>  Set pCancel = New CancelTracker<BR>  <BR>  pMxDoc.ActiveView.Output pExporter.StartExporting, lScrRes, deviceRECT, pMxDoc.ActiveView.Extent, pCancel<BR>  pExporter.FinishExporting</P>
<P>谢谢了</P>