【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，ScreenCapture.frm，希望对大家有所帮助！

    VERSION 5.00
    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
    Begin VB.Form frmScreenCapture 
       AutoRedraw      =   -1  'True
       Caption         =   "屏幕捕捉系统"
       ClientHeight    =   5160
       ClientLeft      =   120
       ClientTop       =   120
       ClientWidth     =   7980
       Icon            =   "ScreenCapture.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   5160
       ScaleWidth      =   7980
       StartUpPosition =   2  'CenterScreen
       Begin VB.PictureBox picRectangle 
          Appearance      =   0  'Flat
          AutoRedraw      =   -1  'True
          AutoSize        =   -1  'True
          BackColor       =   &H80000005&
          BorderStyle     =   0  'None
          ForeColor       =   &H80000008&
          Height          =   855
          Left            =   5955
          ScaleHeight     =   57
          ScaleMode       =   3  'Pixel
          ScaleWidth      =   97
          TabIndex        =   5
          Top             =   600
          Visible         =   0   'False
          Width           =   1455
       End
       Begin VB.HScrollBar HScroll1 
          Height          =   255
          Left            =   120
          TabIndex        =   3
          Top             =   4800
          Visible         =   0   'False
          Width           =   7500
       End
       Begin VB.VScrollBar VScroll1 
          Height          =   4335
          Left            =   7650
          TabIndex        =   2
          Top             =   420
          Visible         =   0   'False
          Width           =   255
       End
       Begin MSComctlLib.ImageList ImageList1 
          Left            =   4320
          Top             =   780
          _ExtentX        =   1005
          _ExtentY        =   1005
          BackColor       =   -2147483643
          ImageWidth      =   16
          ImageHeight     =   16
          MaskColor       =   12632256
          _Version        =   393216
          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
             NumListImages   =   11
             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":0442
                Key             =   ""
                Object.Tag             =   "Exit"
             EndProperty
             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":089E
                Key             =   ""
                Object.Tag             =   "Open"
             EndProperty
             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":0CF2
                Key             =   ""
                Object.Tag             =   "Save"
             EndProperty
             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":1146
                Key             =   ""
                Object.Tag             =   "Capture Rectangle"
             EndProperty
             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":15D0
                Key             =   ""
                Object.Tag             =   "Capture Full Screen"
             EndProperty
             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":1A24
                Key             =   ""
                Object.Tag             =   "About"
             EndProperty
             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":1E78
                Key             =   ""
                Object.Tag             =   "Print image"
             EndProperty
             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":238A
                Key             =   ""
             EndProperty
             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":271C
                Key             =   ""
                Object.Tag             =   "CopyToClipboard"
             EndProperty
             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":2AEE
                Key             =   ""
             EndProperty
             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "ScreenCapture.frx":2EF8
                Key             =   ""
                Object.Tag             =   "Crop"
             EndProperty
          EndProperty
       End
       Begin VB.PictureBox Picture1 
          AutoRedraw      =   -1  'True
          BackColor       =   &H00808080&
          ForeColor       =   &H00808080&
          Height          =   4335
          Left            =   105
          ScaleHeight     =   285
          ScaleMode       =   3  'Pixel
          ScaleWidth      =   497
          TabIndex        =   1
          Top             =   450
          Width           =   7515
          Begin MSComDlg.CommonDialog CD1 
             Left            =   5130
             Top             =   315
             _ExtentX        =   847
             _ExtentY        =   847
             _Version        =   393216
          End
          Begin VB.PictureBox Picture2 
             Appearance      =   0  'Flat
             AutoRedraw      =   -1  'True
             AutoSize        =   -1  'True
             BackColor       =   &H80000005&
             BorderStyle     =   0  'None
             ForeColor       =   &H80000008&
             Height          =   1995
             Left            =   0
             ScaleHeight     =   133
             ScaleMode       =   3  'Pixel
             ScaleWidth      =   151
             TabIndex        =   4
             Top             =   0
             Width           =   2265
             Begin VB.Line Line1 
                BorderStyle     =   3  'Dot
                Visible         =   0   'False
                X1              =   37
                X2              =   117
                Y1              =   30
                Y2              =   30
             End
             Begin VB.Line Line2 
                BorderStyle     =   3  'Dot
                Visible         =   0   'False
                X1              =   29
                X2              =   29
                Y1              =   38
                Y2              =   94
             End
             Begin VB.Line Line3 
                BorderStyle     =   3  'Dot
                Visible         =   0   'False
                X1              =   45
                X2              =   117
                Y1              =   102
                Y2              =   102
             End
             Begin VB.Line Line4 
                BorderStyle     =   3  'Dot
                Visible         =   0   'False
                X1              =   125
                X2              =   125
                Y1              =   38
                Y2              =   94
             End
          End
       End
       Begin MSComctlLib.Toolbar Toolbar1 
          Align           =   1  'Align Top
          Height          =   420
          Left            =   0
          TabIndex        =   0
          Top             =   0
          Width           =   7980
          _ExtentX        =   14076
          _ExtentY        =   741
          ButtonWidth     =   609
          ButtonHeight    =   582
          Appearance      =   1
          ImageList       =   "ImageList1"
          _Version        =   393216
          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
             NumButtons      =   13
             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Style           =   4
             EndProperty
             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Exit"
                Object.ToolTipText     =   "Exit Program"
                ImageIndex      =   1
             EndProperty
             BeginProperty Button3 {66833F