截取屏幕图像，这点很简单，大家都会，但要保存为文件，就不一定人人都会了，下面是经典源码，复制去用即可。

      '截图--------------
      Dim nDC As HDC = GetDC(null) '获取屏幕DC
      Dim memBM As HBITMAP, j_Bmp As HBITMAP
      Dim As Long cw=GetSystemMetrics(SM_CXSCREEN) ,ch = GetSystemMetrics(SM_CYSCREEN) '获取主屏幕尺寸（多显示器时不在此内，当然也有方法获取多显示器时全部或某个显示器内容）
      memBM = CreateCompatibleBitmap(nDC, cw, ch)  ' 创建一个内存位图
      Dim memDC As HDC = CreateCompatibleDC(nDC) ' 创建内存DC
      SelectObject(memDC, memBM)  ' 将内存位图关联到内存DC中
      BitBlt memDC, 0, 0, cw, ch, nDC, 0, 0, SrcCopy '复制屏幕图到内存DC
      AfxGdipSaveHBITMAPToFile(memBM, App.Path & NowString(1) & ".jpg", "image/jpeg") '保存文件，NowString(1) 是获取当前日期和时间
      DeleteDC memDC  '用后句柄需要销毁，减少对系统资源占用。
      DeleteObject memBM
      ReleaseDC null, nDC

原理，创建个内存DC，然后就有个图像句柄，拷贝屏幕DC到内存DC，然后用下面库函数保存即可

AfxGdipSaveHBITMAPToFile  'VFB里的Afx库函数（全部是源码），其它语言可以打开这库函数查看具体使用的API。

除了 JPG格式，当然还有其它图像格式，修改最后一个参数即可：

"image/bmp" Bitmap图像格式(bmp) 

"image/gif"    GIF图像格式(gif)

"image/jpeg" JPEG图像格式(jpg)

"image/png"  PNG图像格式(png)

"image/tiff"   TIFF图像格式(tiff)

可以保存5种格式