home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / DM_Bitmap_2127749212008.psc / DeskCap / frm / frmmain.frm < prev   
Text File  |  2008-09-21  |  40KB  |  1,320 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmmain 
  4.    Caption         =   "DM Bitmap Snapper"
  5.    ClientHeight    =   5160
  6.    ClientLeft      =   -45
  7.    ClientTop       =   180
  8.    ClientWidth     =   7740
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   344
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   516
  13.    Begin Project1.dFlatButton cmdPaste 
  14.       Height          =   390
  15.       Left            =   2175
  16.       TabIndex        =   33
  17.       TabStop         =   0   'False
  18.       ToolTipText     =   "Paste"
  19.       Top             =   60
  20.       Width           =   390
  21.       _ExtentX        =   688
  22.       _ExtentY        =   688
  23.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  24.          Name            =   "MS Sans Serif"
  25.          Size            =   8.25
  26.          Charset         =   0
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Caption         =   ""
  33.       Picture         =   "frmmain.frx":0000
  34.    End
  35.    Begin Project1.dFlatButton cmdEdit 
  36.       Height          =   390
  37.       Left            =   5565
  38.       TabIndex        =   32
  39.       ToolTipText     =   "Edit Image"
  40.       Top             =   60
  41.       Width           =   390
  42.       _ExtentX        =   688
  43.       _ExtentY        =   688
  44.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  45.          Name            =   "MS Sans Serif"
  46.          Size            =   8.25
  47.          Charset         =   0
  48.          Weight          =   400
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       Caption         =   ""
  54.       Picture         =   "frmmain.frx":0352
  55.    End
  56.    Begin VB.PictureBox pGrip 
  57.       AutoRedraw      =   -1  'True
  58.       AutoSize        =   -1  'True
  59.       BorderStyle     =   0  'None
  60.       Height          =   165
  61.       Left            =   6975
  62.       Picture         =   "frmmain.frx":06A4
  63.       ScaleHeight     =   165
  64.       ScaleWidth      =   165
  65.       TabIndex        =   30
  66.       Top             =   195
  67.       Visible         =   0   'False
  68.       Width           =   165
  69.    End
  70.    Begin Project1.Line3D Line3D4 
  71.       Height          =   30
  72.       Left            =   0
  73.       TabIndex        =   29
  74.       TabStop         =   0   'False
  75.       Top             =   0
  76.       Width           =   1905
  77.       _ExtentX        =   3360
  78.       _ExtentY        =   53
  79.    End
  80.    Begin Project1.Line3D Line3D3 
  81.       Height          =   30
  82.       Left            =   0
  83.       TabIndex        =   27
  84.       TabStop         =   0   'False
  85.       Top             =   1335
  86.       Width           =   510
  87.       _ExtentX        =   900
  88.       _ExtentY        =   53
  89.    End
  90.    Begin VB.ComboBox cboCls 
  91.       Enabled         =   0   'False
  92.       Height          =   315
  93.       Left            =   1305
  94.       Style           =   2  'Dropdown List
  95.       TabIndex        =   26
  96.       Top             =   975
  97.       Width           =   2760
  98.    End
  99.    Begin VB.ComboBox cboWidth 
  100.       Height          =   315
  101.       Left            =   3375
  102.       Style           =   2  'Dropdown List
  103.       TabIndex        =   24
  104.       TabStop         =   0   'False
  105.       Top             =   555
  106.       Width           =   1215
  107.    End
  108.    Begin Project1.dFlatButton cmdMove 
  109.       Height          =   390
  110.       Index           =   3
  111.       Left            =   3915
  112.       TabIndex        =   19
  113.       TabStop         =   0   'False
  114.       ToolTipText     =   "Move Up"
  115.       Top             =   60
  116.       Width           =   390
  117.       _ExtentX        =   688
  118.       _ExtentY        =   688
  119.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  120.          Name            =   "MS Sans Serif"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Caption         =   ""
  129.       Picture         =   "frmmain.frx":077E
  130.    End
  131.    Begin Project1.Line3D Line3D1 
  132.       Height          =   30
  133.       Left            =   0
  134.       TabIndex        =   17
  135.       TabStop         =   0   'False
  136.       Top             =   480
  137.       Width           =   330
  138.       _ExtentX        =   582
  139.       _ExtentY        =   53
  140.    End
  141.    Begin VB.ComboBox cboStep 
  142.       Height          =   315
  143.       Left            =   1005
  144.       Style           =   2  'Dropdown List
  145.       TabIndex        =   15
  146.       TabStop         =   0   'False
  147.       Top             =   555
  148.       Width           =   1215
  149.    End
  150.    Begin Project1.dFlatButton cmdZoom 
  151.       Height          =   390
  152.       Left            =   3450
  153.       TabIndex        =   14
  154.       TabStop         =   0   'False
  155.       ToolTipText     =   "Zoom"
  156.       Top             =   60
  157.       Width           =   390
  158.       _ExtentX        =   688
  159.       _ExtentY        =   688
  160.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  161.          Name            =   "Arial"
  162.          Size            =   8.25
  163.          Charset         =   0
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       Caption         =   ""
  170.       Picture         =   "frmmain.frx":0AD0
  171.    End
  172.    Begin Project1.dFlatButton cmdOpen 
  173.       Height          =   390
  174.       Left            =   870
  175.       TabIndex        =   13
  176.       TabStop         =   0   'False
  177.       ToolTipText     =   "Open"
  178.       Top             =   60
  179.       Width           =   390
  180.       _ExtentX        =   688
  181.       _ExtentY        =   688
  182.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  183.          Name            =   "MS Sans Serif"
  184.          Size            =   8.25
  185.          Charset         =   0
  186.          Weight          =   400
  187.          Underline       =   0   'False
  188.          Italic          =   0   'False
  189.          Strikethrough   =   0   'False
  190.       EndProperty
  191.       Caption         =   ""
  192.       Picture         =   "frmmain.frx":0BE2
  193.    End
  194.    Begin Project1.dFlatButton cmdBorderCol 
  195.       Height          =   390
  196.       Left            =   3030
  197.       TabIndex        =   12
  198.       TabStop         =   0   'False
  199.       ToolTipText     =   "Border Color"
  200.       Top             =   60
  201.       Width           =   390
  202.       _ExtentX        =   688
  203.       _ExtentY        =   688
  204.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  205.          Name            =   "MS Sans Serif"
  206.          Size            =   8.25
  207.          Charset         =   0
  208.          Weight          =   400
  209.          Underline       =   0   'False
  210.          Italic          =   0   'False
  211.          Strikethrough   =   0   'False
  212.       EndProperty
  213.       Caption         =   ""
  214.       Picture         =   "frmmain.frx":0F34
  215.    End
  216.    Begin Project1.dFlatButton cmdGrab 
  217.       Height          =   390
  218.       Left            =   15
  219.       TabIndex        =   7
  220.       TabStop         =   0   'False
  221.       ToolTipText     =   "Grab Desktop"
  222.       Top             =   60
  223.       Width           =   390
  224.       _ExtentX        =   688
  225.       _ExtentY        =   688
  226.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  227.          Name            =   "MS Sans Serif"
  228.          Size            =   8.25
  229.          Charset         =   0
  230.          Weight          =   400
  231.          Underline       =   0   'False
  232.          Italic          =   0   'False
  233.          Strikethrough   =   0   'False
  234.       EndProperty
  235.       Caption         =   ""
  236.       Picture         =   "frmmain.frx":1046
  237.    End
  238.    Begin VB.Timer TmrGetWin 
  239.       Enabled         =   0   'False
  240.       Interval        =   80
  241.       Left            =   7140
  242.       Top             =   2235
  243.    End
  244.    Begin MSComDlg.CommonDialog CD1 
  245.       Left            =   7095
  246.       Top             =   1755
  247.       _ExtentX        =   847
  248.       _ExtentY        =   847
  249.       _Version        =   393216
  250.    End
  251.    Begin VB.PictureBox psBar 
  252.       Align           =   2  'Align Bottom
  253.       AutoRedraw      =   -1  'True
  254.       BorderStyle     =   0  'None
  255.       Height          =   330
  256.       Left            =   0
  257.       ScaleHeight     =   22
  258.       ScaleMode       =   3  'Pixel
  259.       ScaleWidth      =   516
  260.       TabIndex        =   5
  261.       TabStop         =   0   'False
  262.       Top             =   4830
  263.       Width           =   7740
  264.       Begin VB.Label lblResSize 
  265.          AutoSize        =   -1  'True
  266.          BackStyle       =   0  'Transparent
  267.          Caption         =   "#"
  268.          BeginProperty Font 
  269.             Name            =   "Arial"
  270.             Size            =   8.25
  271.             Charset         =   0
  272.             Weight          =   400
  273.             Underline       =   0   'False
  274.             Italic          =   0   'False
  275.             Strikethrough   =   0   'False
  276.          EndProperty
  277.          Height          =   210
  278.          Left            =   2235
  279.          TabIndex        =   31
  280.          Top             =   90
  281.          Width           =   90
  282.       End
  283.       Begin VB.Label lblCaption 
  284.          AutoSize        =   -1  'True
  285.          BackStyle       =   0  'Transparent
  286.          BeginProperty Font 
  287.             Name            =   "Arial"
  288.             Size            =   8.25
  289.             Charset         =   0
  290.             Weight          =   700
  291.             Underline       =   0   'False
  292.             Italic          =   0   'False
  293.             Strikethrough   =   0   'False
  294.          EndProperty
  295.          Height          =   210
  296.          Left            =   90
  297.          TabIndex        =   6
  298.          Top             =   90
  299.          Width           =   45
  300.       End
  301.    End
  302.    Begin VB.PictureBox pHolder 
  303.       BackColor       =   &H8000000C&
  304.       Height          =   3345
  305.       Left            =   45
  306.       ScaleHeight     =   219
  307.       ScaleMode       =   3  'Pixel
  308.       ScaleWidth      =   449
  309.       TabIndex        =   0
  310.       TabStop         =   0   'False
  311.       Top             =   1395
  312.       Width           =   6795
  313.       Begin VB.PictureBox pSpacer 
  314.          BorderStyle     =   0  'None
  315.          ForeColor       =   &H00FFFFFF&
  316.          Height          =   270
  317.          Left            =   4800
  318.          ScaleHeight     =   270
  319.          ScaleWidth      =   270
  320.          TabIndex        =   4
  321.          Top             =   570
  322.          Width           =   270
  323.       End
  324.       Begin VB.HScrollBar hBar 
  325.          Height          =   270
  326.          Left            =   0
  327.          TabIndex        =   3
  328.          TabStop         =   0   'False
  329.          Top             =   1380
  330.          Width           =   450
  331.       End
  332.       Begin VB.VScrollBar vBar 
  333.          Height          =   465
  334.          Left            =   4800
  335.          TabIndex        =   2
  336.          TabStop         =   0   'False
  337.          Top             =   0
  338.          Width           =   270
  339.       End
  340.       Begin VB.PictureBox SrcDc 
  341.          AutoRedraw      =   -1  'True
  342.          AutoSize        =   -1  'True
  343.          BorderStyle     =   0  'None
  344.          Height          =   1335
  345.          Left            =   0
  346.          ScaleHeight     =   89
  347.          ScaleMode       =   3  'Pixel
  348.          ScaleWidth      =   112
  349.          TabIndex        =   1
  350.          TabStop         =   0   'False
  351.          Top             =   0
  352.          Width           =   1680
  353.          Begin VB.PictureBox PicPoint 
  354.             AutoRedraw      =   -1  'True
  355.             BackColor       =   &H8000000D&
  356.             BorderStyle     =   0  'None
  357.             Height          =   105
  358.             Left            =   525
  359.             MousePointer    =   8  'Size NW SE
  360.             ScaleHeight     =   105
  361.             ScaleWidth      =   105
  362.             TabIndex        =   34
  363.             Top             =   465
  364.             Width           =   105
  365.          End
  366.          Begin VB.Image ImgMove 
  367.             Height          =   480
  368.             Left            =   0
  369.             MousePointer    =   5  'Size
  370.             Top             =   0
  371.             Width           =   480
  372.          End
  373.          Begin VB.Shape shpMove 
  374.             BorderColor     =   &H00000000&
  375.             Height          =   480
  376.             Left            =   0
  377.             Top             =   0
  378.             Width           =   480
  379.          End
  380.       End
  381.    End
  382.    Begin Project1.dFlatButton cmdCpy 
  383.       Height          =   390
  384.       Left            =   1740
  385.       TabIndex        =   8
  386.       TabStop         =   0   'False
  387.       ToolTipText     =   "Copy"
  388.       Top             =   60
  389.       Width           =   390
  390.       _ExtentX        =   688
  391.       _ExtentY        =   688
  392.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  393.          Name            =   "MS Sans Serif"
  394.          Size            =   8.25
  395.          Charset         =   0
  396.          Weight          =   400
  397.          Underline       =   0   'False
  398.          Italic          =   0   'False
  399.          Strikethrough   =   0   'False
  400.       EndProperty
  401.       Caption         =   ""
  402.       Picture         =   "frmmain.frx":1158
  403.    End
  404.    Begin Project1.dFlatButton cmdWin 
  405.       Height          =   390
  406.       Left            =   435
  407.       TabIndex        =   9
  408.       TabStop         =   0   'False
  409.       ToolTipText     =   "Grab Window"
  410.       Top             =   60
  411.       Width           =   390
  412.       _ExtentX        =   688
  413.       _ExtentY        =   688
  414.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  415.          Name            =   "MS Sans Serif"
  416.          Size            =   8.25
  417.          Charset         =   0
  418.          Weight          =   400
  419.          Underline       =   0   'False
  420.          Italic          =   0   'False
  421.          Strikethrough   =   0   'False
  422.       EndProperty
  423.       MouseIcon       =   "frmmain.frx":14AA
  424.       Caption         =   ""
  425.       Picture         =   "frmmain.frx":160C
  426.    End
  427.    Begin Project1.dFlatButton cmdColPicker 
  428.       Height          =   390
  429.       Left            =   2610
  430.       TabIndex        =   10
  431.       TabStop         =   0   'False
  432.       ToolTipText     =   "Color Picker"
  433.       Top             =   60
  434.       Width           =   390
  435.       _ExtentX        =   688
  436.       _ExtentY        =   688
  437.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  438.          Name            =   "MS Sans Serif"
  439.          Size            =   8.25
  440.          Charset         =   0
  441.          Weight          =   400
  442.          Underline       =   0   'False
  443.          Italic          =   0   'False
  444.          Strikethrough   =   0   'False
  445.       EndProperty
  446.       Caption         =   ""
  447.       Picture         =   "frmmain.frx":195E
  448.    End
  449.    Begin Project1.dFlatButton cmdSave 
  450.       Height          =   390
  451.       Left            =   1305
  452.       TabIndex        =   11
  453.       TabStop         =   0   'False
  454.       ToolTipText     =   "Save"
  455.       Top             =   60
  456.       Width           =   390
  457.       _ExtentX        =   688
  458.       _ExtentY        =   688
  459.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  460.          Name            =   "MS Sans Serif"
  461.          Size            =   8.25
  462.          Charset         =   0
  463.          Weight          =   400
  464.          Underline       =   0   'False
  465.          Italic          =   0   'False
  466.          Strikethrough   =   0   'False
  467.       EndProperty
  468.       Caption         =   ""
  469.       Picture         =   "frmmain.frx":1A70
  470.    End
  471.    Begin Project1.Line3D Line3D2 
  472.       Height          =   30
  473.       Left            =   0
  474.       TabIndex        =   18
  475.       TabStop         =   0   'False
  476.       Top             =   885
  477.       Width           =   330
  478.       _ExtentX        =   582
  479.       _ExtentY        =   53
  480.    End
  481.    Begin Project1.dFlatButton cmdMove 
  482.       Height          =   390
  483.       Index           =   1
  484.       Left            =   4320
  485.       TabIndex        =   20
  486.       TabStop         =   0   'False
  487.       ToolTipText     =   "Move Down"
  488.       Top             =   60
  489.       Width           =   390
  490.       _ExtentX        =   688
  491.       _ExtentY        =   688
  492.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  493.          Name            =   "MS Sans Serif"
  494.          Size            =   8.25
  495.          Charset         =   0
  496.          Weight          =   400
  497.          Underline       =   0   'False
  498.          Italic          =   0   'False
  499.          Strikethrough   =   0   'False
  500.       EndProperty
  501.       Caption         =   ""
  502.       Picture         =   "frmmain.frx":1DC2
  503.    End
  504.    Begin Project1.dFlatButton cmdMove 
  505.       Height          =   390
  506.       Index           =   4
  507.       Left            =   4725
  508.       TabIndex        =   21
  509.       TabStop         =   0   'False
  510.       ToolTipText     =   "Move Left"
  511.       Top             =   60
  512.       Width           =   390
  513.       _ExtentX        =   688
  514.       _ExtentY        =   688
  515.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  516.          Name            =   "MS Sans Serif"
  517.          Size            =   8.25
  518.          Charset         =   0
  519.          Weight          =   400
  520.          Underline       =   0   'False
  521.          Italic          =   0   'False
  522.          Strikethrough   =   0   'False
  523.       EndProperty
  524.       Caption         =   ""
  525.       Picture         =   "frmmain.frx":2114
  526.    End
  527.    Begin Project1.dFlatButton cmdMove 
  528.       Height          =   390
  529.       Index           =   2
  530.       Left            =   5130
  531.       TabIndex        =   22
  532.       TabStop         =   0   'False
  533.       ToolTipText     =   "Move Right"
  534.       Top             =   60
  535.       Width           =   390
  536.       _ExtentX        =   688
  537.       _ExtentY        =   688
  538.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  539.          Name            =   "MS Sans Serif"
  540.          Size            =   8.25
  541.          Charset         =   0
  542.          Weight          =   400
  543.          Underline       =   0   'False
  544.          Italic          =   0   'False
  545.          Strikethrough   =   0   'False
  546.       EndProperty
  547.       Caption         =   ""
  548.       Picture         =   "frmmain.frx":2466
  549.    End
  550.    Begin VB.Label lblCpy 
  551.       AutoSize        =   -1  'True
  552.       BackStyle       =   0  'Transparent
  553.       Caption         =   "Copy Classname"
  554.       BeginProperty Font 
  555.          Name            =   "Verdana"
  556.          Size            =   8.25
  557.          Charset         =   0
  558.          Weight          =   400
  559.          Underline       =   0   'False
  560.          Italic          =   0   'False
  561.          Strikethrough   =   0   'False
  562.       EndProperty
  563.       ForeColor       =   &H00FF0000&
  564.       Height          =   195
  565.       Left            =   4125
  566.       MouseIcon       =   "frmmain.frx":27B8
  567.       MousePointer    =   99  'Custom
  568.       TabIndex        =   28
  569.       Top             =   1035
  570.       Width           =   1455
  571.    End
  572.    Begin VB.Label lblCls 
  573.       AutoSize        =   -1  'True
  574.       BackStyle       =   0  'Transparent
  575.       Caption         =   "Window Class:"
  576.       BeginProperty Font 
  577.          Name            =   "Arial"
  578.          Size            =   8.25
  579.          Charset         =   0
  580.          Weight          =   700
  581.          Underline       =   0   'False
  582.          Italic          =   0   'False
  583.          Strikethrough   =   0   'False
  584.       EndProperty
  585.       Height          =   210
  586.       Left            =   45
  587.       TabIndex        =   25
  588.       Top             =   1020
  589.       Width           =   1215
  590.    End
  591.    Begin VB.Label lblGWidth 
  592.       AutoSize        =   -1  'True
  593.       BackStyle       =   0  'Transparent
  594.       Caption         =   "Grab Width:"
  595.       BeginProperty Font 
  596.          Name            =   "Arial"
  597.          Size            =   8.25
  598.          Charset         =   0
  599.          Weight          =   700
  600.          Underline       =   0   'False
  601.          Italic          =   0   'False
  602.          Strikethrough   =   0   'False
  603.       EndProperty
  604.       Height          =   210
  605.       Left            =   2340
  606.       TabIndex        =   23
  607.       Top             =   600
  608.       Width           =   945
  609.    End
  610.    Begin VB.Label lblStep 
  611.       AutoSize        =   -1  'True
  612.       BackStyle       =   0  'Transparent
  613.       Caption         =   "Move Step:"
  614.       BeginProperty Font 
  615.          Name            =   "Arial"
  616.          Size            =   8.25
  617.          Charset         =   0
  618.          Weight          =   700
  619.          Underline       =   0   'False
  620.          Italic          =   0   'False
  621.          Strikethrough   =   0   'False
  622.       EndProperty
  623.       Height          =   210
  624.       Left            =   30
  625.       TabIndex        =   16
  626.       Top             =   600
  627.       Width           =   915
  628.    End
  629.    Begin VB.Menu mnuFile 
  630.       Caption         =   "&File"
  631.       Begin VB.Menu mnuTake 
  632.          Caption         =   "&Grab Desktop..."
  633.          Shortcut        =   ^T
  634.       End
  635.       Begin VB.Menu mnublank2 
  636.          Caption         =   "-"
  637.       End
  638.       Begin VB.Menu mnuPreview 
  639.          Caption         =   "Save Preview"
  640.       End
  641.       Begin VB.Menu mnu1Screen 
  642.          Caption         =   "Save Screen Capture"
  643.       End
  644.       Begin VB.Menu mnuBlank1 
  645.          Caption         =   "-"
  646.       End
  647.       Begin VB.Menu mnuExit 
  648.          Caption         =   "E&xit"
  649.          Shortcut        =   ^Q
  650.       End
  651.    End
  652.    Begin VB.Menu mnuEdit 
  653.       Caption         =   "&Edit"
  654.       Begin VB.Menu mnucpy 
  655.          Caption         =   "&Copy Preview"
  656.          Shortcut        =   ^C
  657.       End
  658.       Begin VB.Menu mnuZoom 
  659.          Caption         =   "Zoom"
  660.          Begin VB.Menu mnu100 
  661.             Caption         =   "Original"
  662.          End
  663.          Begin VB.Menu mnu200 
  664.             Caption         =   "200%"
  665.          End
  666.          Begin VB.Menu mnu300 
  667.             Caption         =   "300%"
  668.          End
  669.          Begin VB.Menu mnu400 
  670.             Caption         =   "400%"
  671.          End
  672.          Begin VB.Menu mnu500 
  673.             Caption         =   "500%"
  674.          End
  675.          Begin VB.Menu mnu600 
  676.             Caption         =   "600%"
  677.          End
  678.       End
  679.    End
  680.    Begin VB.Menu mnuPrv 
  681.       Caption         =   "Preview"
  682.       Begin VB.Menu mnuShow 
  683.          Caption         =   "&Hide"
  684.       End
  685.       Begin VB.Menu mnuEdit1 
  686.          Caption         =   "Edit Image"
  687.       End
  688.    End
  689.    Begin VB.Menu mnuHelp 
  690.       Caption         =   "&Help"
  691.       Begin VB.Menu mnucon 
  692.          Caption         =   "&Contents"
  693.       End
  694.       Begin VB.Menu mnublank3 
  695.          Caption         =   "-"
  696.       End
  697.       Begin VB.Menu mnuAbout 
  698.          Caption         =   "&About..."
  699.       End
  700.    End
  701.    Begin VB.Menu mnu1 
  702.       Caption         =   "#1"
  703.       Visible         =   0   'False
  704.       Begin VB.Menu mnuSave1 
  705.          Caption         =   "Preview"
  706.       End
  707.       Begin VB.Menu mnuSave2 
  708.          Caption         =   "Screen Capture"
  709.       End
  710.    End
  711. End
  712. Attribute VB_Name = "frmmain"
  713. Attribute VB_GlobalNameSpace = False
  714. Attribute VB_Creatable = False
  715. Attribute VB_PredeclaredId = True
  716. Attribute VB_Exposed = False
  717. Option Explicit
  718.  
  719. Private CanMove As Boolean
  720. Private MoveStep As Integer
  721. Private mZoomFactor As Integer
  722. Private mCurHwnd As Long
  723. Private mPrevHwnd As Long
  724.  
  725. Private WndCaption As String
  726. Private mShowPreview As Boolean
  727.  
  728. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  729.  
  730. Private Sub cboCls_Click()
  731. Dim mCurHwnd As Long
  732.     'Get Windows Hwnd
  733.     mCurHwnd = cboCls.ItemData(cboCls.ListIndex)
  734.     'Take screenshot.
  735.     Call TakeScreenShot(mCurHwnd, mZoomFactor)
  736.     Call ShowPreview
  737.     SrcDc.SetFocus
  738. End Sub
  739.  
  740. Private Sub cboWidth_Click()
  741. On Error Resume Next
  742.     shpMove.BorderWidth = Val(cboWidth.Text)
  743.     'Save Border width
  744.     SaveSetting "DmBitmapSnap", "Cfg", "GrabWidth", cboWidth.ListIndex
  745.     SrcDc.SetFocus
  746.     'Show preview
  747.     Call ShowPreview
  748. End Sub
  749.  
  750. Private Sub cmdBorderCol_Click()
  751. On Error GoTo ErrFlag:
  752.     'Set border color of the shape.
  753.     With CD1
  754.         .CancelError = True
  755.         .ShowColor
  756.         'Sets the shape border color
  757.         shpMove.BorderColor = .Color
  758.         'Save value to regedit
  759.         SaveSetting "DmBitmapSnap", "Cfg", "bColor", .Color
  760.     End With
  761.     
  762.     Exit Sub
  763. ErrFlag:
  764.     If (Err.Number = cdlCancel) Then Err.Clear
  765.     
  766. End Sub
  767.  
  768. Private Sub cmdEdit_Click()
  769.     Call mnuEdit1_Click
  770. End Sub
  771.  
  772. Private Sub cmdMove_Click(Index As Integer)
  773.     Call SrcDc_KeyDown((41 - Index), 0)
  774. End Sub
  775.  
  776. Private Sub cmdMove_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  777.     CanMove = False
  778. End Sub
  779.  
  780. Private Sub ZoomImage(ByVal Factor As Integer)
  781.     Call TakeScreenShot(mCurHwnd, Factor)
  782.     Call ShowPreview
  783.     SrcDc.SetFocus
  784. End Sub
  785.  
  786. Private Sub CleanExit()
  787.     If (TmrGetWin.Enabled) Then
  788.         TmrGetWin.Enabled = False
  789.     End If
  790.     
  791.     Set SrcDc.Picture = Nothing
  792.     cboStep.Clear
  793.     cboWidth.Clear
  794.     Unload frmmain
  795.     Unload frmColPicker
  796. End Sub
  797.  
  798. Private Sub SavePix(PicBox As PictureBox, Optional ByVal Title As String = "")
  799. On Error GoTo SaveErr:
  800.     
  801.     With CD1
  802.         .CancelError = True
  803.         .DialogTitle = Title
  804.         .Filter = "Bitmap Files(*.bmp)|*.bmp|"
  805.         .ShowSave
  806.         'Save Preview
  807.         SavePicture PicBox.Image, .FileName
  808.         .FileName = vbNullString
  809.     End With
  810.     
  811.     Exit Sub
  812. SaveErr:
  813.     If (Err.Number = cdlCancel) Then Err.Clear
  814.  
  815. End Sub
  816.  
  817. Private Sub Mover(ByVal theleft As Long, ByVal TheTop As Long)
  818.     If (GrabSrc.dWidth < 16) Then GrabSrc.dWidth = 16
  819.     If (GrabSrc.dHeight < 16) Then GrabSrc.dHeight = 16
  820.     
  821.     ImgMove.Move theleft, TheTop, GrabSrc.dWidth, GrabSrc.dHeight
  822.     shpMove.Move theleft, TheTop, GrabSrc.dWidth, GrabSrc.dHeight
  823.     PicPoint.Move (ImgMove.Left + ImgMove.Width), (ImgMove.Top + ImgMove.Height), 7, 7
  824. End Sub
  825.  
  826. Private Sub FixPosition()
  827.     'This stops the controls been moved, of the area
  828.     With ImgMove
  829.  
  830.         If (hBar.Value = 0) Then
  831.             If (.Left + GrabSrc.dWidth) >= SrcDc.ScaleWidth Then
  832.                 .Left = (SrcDc.ScaleWidth - GrabSrc.dWidth)
  833.             End If
  834.         End If
  835.         
  836.         If (vBar.Value = 0) Then
  837.             If (.Top + GrabSrc.dHeight) >= SrcDc.ScaleHeight Then
  838.                 .Top = (SrcDc.ScaleHeight - GrabSrc.dHeight)
  839.             End If
  840.         End If
  841.         
  842.         If (.Left - hBar.Value) <= 0 Then
  843.             .Left = hBar.Value
  844.         End If
  845.         
  846.         If (.Top - vBar.Value) <= 0 Then
  847.             .Top = vBar.Value
  848.         End If
  849.         
  850.         If ((.Top - vBar.Value) + GrabSrc.dHeight >= hBar.Top) Then
  851.             .Top = (hBar.Top - GrabSrc.dHeight) + vBar.Value
  852.         End If
  853.         
  854.         If ((.Left - hBar.Value) + GrabSrc.dWidth) > vBar.Left Then
  855.             .Left = (vBar.Left - GrabSrc.dWidth) + hBar.Value
  856.         End If
  857.         
  858.         If (.Left + GrabSrc.dWidth) >= SrcDc.ScaleWidth Then
  859.             .Left = (SrcDc.ScaleWidth - GrabSrc.dWidth)
  860.         End If
  861.         
  862.         If (.Top + GrabSrc.dHeight) >= SrcDc.ScaleHeight Then
  863.             .Top = (SrcDc.ScaleHeight - GrabSrc.dHeight)
  864.         End If
  865.     End With
  866.     
  867. End Sub
  868.  
  869. Private Sub ShowPreview()
  870.     'Move and resize preview
  871.     With frmPreview
  872.         .pPreview.Height = GrabSrc.dHeight
  873.         .pPreview.Width = GrabSrc.dWidth
  874.         
  875.         .pPreview.Left = (.ScaleWidth - GrabSrc.dWidth) \ 2
  876.         .pPreview.Top = (.ScaleHeight - GrabSrc.dHeight) \ 2
  877.         .Caption = "Preview " & GrabSrc.dWidth & "x" & GrabSrc.dHeight
  878.     End With
  879.     
  880.     'Show Preview.
  881.     With frmPreview.pPreview
  882.         .Cls
  883.         BitBlt .hDC, 0, 0, GrabSrc.dWidth, GrabSrc.dHeight, SrcDc.hDC, ImgMove.Left, ImgMove.Top, vbSrcCopy
  884.         .Refresh
  885.     End With
  886. End Sub
  887.  
  888. Private Sub SetScrollbars()
  889.     vBar.Max = (SrcDc.ScaleHeight - pHolder.ScaleHeight) + 18
  890.     hBar.Max = (SrcDc.Width - pHolder.ScaleWidth) + 18
  891.     'Enable/Disable scrollbars.
  892.     hBar.Enabled = (hBar.Max > 0)
  893.     vBar.Enabled = (vBar.Max > 0)
  894. End Sub
  895.  
  896. Private Sub TakeScreenShot(ByVal TheHwnd As Long, ByVal ZoomFactor As Integer)
  897. Dim wHdc As Long
  898. Dim Ret As Long
  899.     
  900.     'Take Screen Grab
  901.     frmmain.Visible = False
  902.     frmPreview.Visible = False
  903.     DoEvents
  904.     Sleep 100
  905.  
  906.     If (TheHwnd = 0) Then
  907.         MsgBox "Unable to take screenshot.", vbInformation, frmmain.Caption
  908.         Exit Sub
  909.     Else
  910.         'Get Window DC
  911.         wHdc = GetWindowDC(TheHwnd)
  912.         'Get Window Size
  913.         Ret = GetWindowRect(TheHwnd, wRect)
  914.     End If
  915.     
  916.     With SrcDc
  917.         .Cls
  918.         .Width = (wRect.Right - wRect.Left) * ZoomFactor
  919.         .Height = (wRect.Bottom - wRect.Top) * ZoomFactor
  920.         lblResSize.Caption = .Width & " x " & .Height & " pixels"
  921.         StretchBlt .hDC, 0, 0, .Width, .Height, wHdc, 0, 0, (.Width \ ZoomFactor), (.Height \ ZoomFactor), vbSrcCopy
  922.         'Set scrollbars
  923.         Call SetScrollbars
  924.         .Refresh
  925.     End With
  926.  
  927.     frmmain.Visible = True
  928.     frmPreview.Visible = mShowPreview
  929.            
  930. End Sub
  931.  
  932. Private Sub cboStep_Click()
  933. On Error Resume Next
  934.     SaveSetting "DmBitmapSnap", "Cfg", "MoveStep", cboStep.ListIndex
  935.     MoveStep = (cboStep.ListIndex + 1)
  936.     SrcDc.SetFocus
  937. End Sub
  938.  
  939. Private Sub cmdColPicker_Click()
  940.     GrabSrc.dHeight = frmPreview.pPreview.Height
  941.     GrabSrc.dWidth = frmPreview.pPreview.Width
  942.     GrabSrc.wHdc = frmPreview.pPreview.hDC
  943.     'Show color picker form
  944.     frmColPicker.Show vbModal, frmmain
  945. End Sub
  946.  
  947. Private Sub cmdCpy_Click()
  948.     'Copy preview to clipboad
  949.     Clipboard.Clear
  950.     Clipboard.SetData frmPreview.pPreview.Image, vbCFBitmap
  951. End Sub
  952.  
  953. Private Sub cmdGrab_Click()
  954.     mCurHwnd = GetDesktopWindow()
  955.     Call TakeScreenShot(mCurHwnd, mZoomFactor)
  956.     Call ShowPreview
  957.     SrcDc.SetFocus
  958. End Sub
  959.  
  960. Private Sub cmdOpen_Click()
  961. On Error GoTo OpenErr:
  962.  
  963.     With CD1
  964.         .CancelError = True
  965.         .DialogTitle = "Open"
  966.         .Filter = "Picture Files(*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.gif;*.jpeg|"
  967.         .ShowOpen
  968.         Set SrcDc.Picture = Nothing
  969.         vBar.Value = 0
  970.         hBar.Value = 0
  971.         SrcDc.Picture = LoadPicture(.FileName)
  972.         'Set scrollbars
  973.         Call SetScrollbars
  974.         .FileName = vbNullString
  975.     End With
  976.     
  977.     Exit Sub
  978.  
  979. OpenErr:
  980.     If (Err.Number = cdlCancel) Then Err.Clear
  981.     
  982. End Sub
  983.  
  984. Private Sub cmdPaste_Click()
  985.     'Paste image from clipboard
  986.     SrcDc.Picture = Clipboard.GetData(vbCFBitmap)
  987.     Call SetScrollbars
  988. End Sub
  989.  
  990. Private Sub cmdSave_Click()
  991.     PopupMenu mnu1, , 85, 30
  992. End Sub
  993.  
  994. Private Sub cmdWin_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  995.     If (Button = vbLeftButtonb
  996.  
  997. Private Sub cmdMove_MouseUp(IndSub
  998.  
  999. Private Sub cmdOpen_Clivate Sub cmdOpen_Clivate.Height, wHdc, 0, 0, (.Width \ Sub cmew
  1000.     rivate Sub cmdWin_Mo nShowCmd AsRbCFBitmap
  1001.  "3001tmap
  1002.  "3Gil, 85, 30
  1003. End Sub
  1004.  
  1005. Private SuWin_Mo()
  1006. useDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1007.     If (Button = vbLeftButtonb
  1008.  
  1009. Private Sub cmdMove_MouseUp(IndSub
  1010.  
  1011. Private Sub cmdOpen_Clivate Sub cmdOpen_Clivate.Height, wHdc, 0, 0, (.Width \ Sub cmew
  1012.     rivate Sub cmdWin_Mo nen_Clivate Su8DC(Thegin VB.Menu mnuTake 
  1013.          CaptiondthlInformati= vbLeftButtonb
  1014.  
  1015. Private Sub Space = Falsbmpsu
  1016. P}dSub cmdWin_MouseD        =  
  1017.         Call SetScrollbars
  1018.     hegin.8>    onb
  1019.  
  1020. Piva As Integer, Shif
  1021.    1   If(3ave_Cl4 " b
  1022.  
  1023. Private Se Su8DC(Thegin VB.Menu mnate Se Su8DC c(.Width \ end Sub
  1024.  
  1025. Private Sub cmdCpy_r0, (.Width ShowPreview
  1026.     SrcDc.SetFocus
  1027. End SubBnd SuMo()
  1028. use( (.Width ShowPreview
  1029.     i.SetFSrcDc.SetFocus
  1030. End SubBnd SuMo()
  1031. use( (.Width ShowPreview
  1032.  rollbars
  1033.   = vbLeftButtonb
  1034.  
  1035. Private Sub cmdMove_MouseUp(IndSub
  1036.  
  1037. Private Sub cmdOpen_Clivate Sub cmdOpen_Clivate.Height, wHdc, 0, 0, (.Width \ Sub cmew
  1038.     rivate Sub cmdWin_Mo nen_Clivate Su8DC(Thegin VB.Menu mnuTake 
  1039.          CaptiondthlInformati= vbLeftButtonb.WidD
  1040.  
  1041. Private Sub cmdMove_Mouse\2"ht
  1042.     T 0
  1043.     4Menu pw
  1044.     rivate Sub cmtsgBox "Unable to take screenshoaate Su take scr = vbLeftButtonb
  1045.  
  1046. Privateenshoa     E.Value
  1047.         End If
  1048.        Pil
  1049.         'Save value to regedit
  1050.         SaveSetting "DmBitmapSnap", "Cfg", "bColor", .Color
  1051.     End With
  1052.     
  1053.     Exit Sub
  1054. ErrFlag:
  1055.     If (Err.Number = cdlCancel) Then Err.Clear
  1056.     
  1057. End Sub
  1058.  
  1059. Private Sub cmdEdit_Click()
  1060.     Call mnuEdit1_Click
  1061. E       .pPreview.Top = (.ScaleHeight - GrabSrc.dHeight) \ 2
  1062.         all e6ng
  1063. 1Gdc, 0,+
  1064.  
  1065. Privatrub
  1066.  
  1067. Priv;IndSub
  1068.  
  1069. Priva mnuBlank1 
  1070.          Ca   b
  1071. 474owPreview
  1072.     SrcDc.SetFocus
  1073. End Sub
  1074. n     SavePicture Ponb
  1075.  
  1076. PrivEnd SubBnd SuMo()
  1077. use( (.Width ShowPreview
  1078.     i.SetFSrcDc.SetFocus
  1079. End SubBnd SuMo()
  1080. use( (.Width ShowPreview
  1081.  rollbars
  1082.   = vbLeftButtonb
  1083.  
  1084. Private Sub cmdMove_MouseUp(IndSub
  1085.  
  1086. Private Sub cmdOpen_Clivate Sub cmdOpen_Clivate.Height, wHdc, 0, 0, (.Wi
  1087.     SrcDc
  1088.  
  1089. Priva, (.Wi
  1090.     Srrrrrrlb
  1091.  
  1092. Privatker.Show vb
  1093.     Call TakeScreenShot(mCurHwnd, Factor)
  1094.   vumber = cdlnErrr 1   If(3af ((.Top - 1dbLeftBut6R ber = cdlnErrr 1   If(3af ((.Top - 1dbLeftBut6 Sub cmdWin_4rrr 1If(3af ((.Top - 1dbLeftBut6R ber = cdlte SuWin_Mo()8.Valuh ShowPrf
  1095.         
  1096.      dlteR":2114
  1097.    mnuTakepva, (.Wi
  1098.     Srrrrrrlb
  1099.  
  1100. Privatker.aluh ShowPrf
  1101.         
  1102.      dlteR":2114
  1103.    mnuTakepva, (.Wi
  1104.     Srrrrrrlb
  1105.  
  1106. Privatker.aluh ShowPrf
  1107.         
  1108.      dlteR":2114
  1109.    mnuTakepva, (.Wi
  1110.     Srrrrrrlb
  1111.  
  1112. Privatker.aluh ShowPrf
  1113.         
  1114.      dlteR":2114
  1115.    mnuTakepva, (.Wi
  1116.     Srrrrrrlb
  1117.  
  1118. P  Srrrrr
  1119. P  Sr         Ca   b
  1120. 474ow GrabSrc.wHdc = frmPrerc.wHdc = frmPrerc.wHdc = ep()8.Valuh ShBhowPreview
  1121.   b
  1122. 474ow GrabSrc.wHdc = frmPrerc.wHdc = frmPrerc&Y3ick()
  1123.     Call mnuEdit1_CGte Sub = frmPrerc&Y3ick()  dlteR":211111111111111111111S:211111111111111111111S:2111111>= hrWhowPrf
  1124.         oomF4Crf
  1125.         oomF4Crf
  1126.    End
  1127. ivate Sub 1E
  1128. 1Gdc, 0,+
  1129.  
  1130. Privatrub
  1131.  
  1132. Priv;In1111>= hrWcuclt4rrr 1If(3af ((.Top - 1d,ivatrub
  1133.  
  1134.    
  1135.      , 0, (.Width \ Sub cmew
  1136.     rivate Sub cmdWin_Mo nShowCmd AsRbCFBitmap
  1137. m \ 2
  1138. rub
  1139.  
  1140. P      If (.Top - vBar.Value) <= 0 Then
  1141. ew
  1142.   dSub
  1143.  
  1144. Private Sub cmdOpen_ClcmdWin_Mo nShowCmd AsRbCFBitm            .Top = (SrcDc.ScPrivate Sub en_ClcmdWin_Mo , 0,(SrcDc#iCBar.Value(SrcDc#iCBar.Valuate SubcmdOpm|"
  1145.         .ShowSave
  1146. cpboartrcDc#iCBar.Valuate Subiv;I= 0 Then
  1147.  
  1148.     fub
  1149.  
  1150. Pripen_ClcmdWin_Mo nShowCmd AsRbCFBitm            .Top = (SrcDc.ScPrivate Sub en_ClcmdWin_Mo , 0,(SrcDc#iCBar.Value(SrcDc#iCBar.Valuate SubcmdOpm|"
  1151.         .ShowSave
  1152. cpboartrcDc#iCBar.Valuate Subiv;I= 0 Then
  1153.  
  1154.     fub
  1155.  
  1156. Pripen_ClcmdWin_Mo nShowCmd AsRbCFBitb ShShoweWin_MocClcmdWin_Mo  12P  Srrrrrp Subiv;I=_MocClcmdWin_Mdc "iCBacClcmdWin_Mo  12P  Srrrrrp Subi1 iginProiva, (.Wi
  1157.     SrrrsI dMove_Mouse\U    
  1158.     'Copy preview  .CancelEroiva, (.Wi
  1159.     SrrrsI dMove_MoDc.ScPrivate Sub en_ClmapSnap", 1    ew  .CancelEBaicturndSub
  1160.  
  1161. Private Sub cmdOpen_Clivate Sub cmdOpen_Clivate.Height, wHdc, 0, 0, (.Width \ Sub cmew
  1162.     rivate Sub cmdWin_Mo nen_Clivate Su8DC(Thegin VB.Menu mnuTake 
  1163.          CaptiondthlInformati= vbLeftButtonb.WidD
  1164.  
  1165. Private Sub cmdMove_Mouse\2"ht
  1166.     T 0
  1167. Private Sub.FBitmap
  1168. m \ 2
  1169. rut_4te Sub 1E
  1170. 1Gdc, 0,+
  1171.  
  1172. Priv
  1173.  
  1174. Privatker.aluh ShowPrf
  1175.         
  1176.      dlte()
  1177. use( (.Wiatif
  1178.         
  1179.      dlte()
  1180. use( (.Wiatif
  1181.         
  1182.      dlte()
  1183. use( (.Wiatif
  1184.         
  1185.      dlte()
  1186. use( (.Wiatif
  1187.         
  1188.      dlte()
  1189. use( (.Wiatif
  1190.         
  1191.      dlte()
  1192. use( (.Wiatif
  1193.         
  1194.      dlte()
  1195. use( (.Wiatif
  1196.         
  1197.      dlte()
  1198. use(= False
  1199. Option Explicit
  1200.  
  1201. PrivatButtonb.Wid 
  1202.         Caalue to regeCopy proll SetScrolfe.Wiatifight) \ 28Text)
  1203.     'Save Border width1s4 
  1204.      d5b cmdGrab_Ceif
  1205. p
  1206.       
  1207.  
  1208. Priva mnuBlanirf
  1209.     )
  1210.         End If    =   45
  1211.  1 h1s4    E45
  1212. (SrcDc#iCBaheginttonb.Wid 
  1213.         Caalue to)lFlcmdWin_MoEmC With CD1
  1214.   Br.En .CacFlcmdWCoveStep = (cbin VB.Menu mnu100 
  1215.             Caption         =   "Original"
  1216.          End
  1217.          Begin VB.Menu mnu200 
  1218.             Caption         =   "200%"
  1219.          End
  1220.          Begin VB.Menu mnu300 
  1221.             Caption         =   "300%"
  1222.          End
  1223.          BegilCancel) -1rivate SubY8ivate Sub = (hBFDKHwnd As Long   =   "2AWiatifub
  1224.  
  1225. .Top - vBption      xl) -te Se 4BFDure =w    End 
  1226.          Enucel) -h
  1227.     Sr7re =w    End 
  1228.     Click
  1229. E      n Ervate Sub Space = Falsbmpsu
  1230. P}dSub   =   "300% Capture"
  1231.   
  1232.  
  1233. Privateenshoatker.aluh ShowPrfa
  1234.  
  1235. Private -Dd"
  1236.   
  1237. u meenshoatker.aluh ShowPrfa
  1238.  
  1239. P)    Begin VB.M  FalsbmpsuA
  1240.  
  1241. P)    Begin VB.M  FalsHeight
  1242.    Pu8DC    Left            =   435
  1243.      dlte()
  1244. use( (.Wiatif
  1245.    *ub Spac(      CaptiocDc.4mdWCure =w    Eb
  1246.       TabIndex        =   11
  1247.       TabS     TabIn
  1248.     ClicndthlInformF4Bre =w    Eb= vbNullSt       licndthlInfo(hlInfo(hlInfo(hlInfo(hlInbLeftButtInfo(hlInfo(hlInfo(hanirf
  1249.     )
  1250.         End If    =  Info(hlInfo(hanirf
  1251.     )
  1252.         End If    =  Info(hlInfo(hanirf
  1253.     )
  1254.         End If    =  Info(hlInfo(hanirf
  1255.     )
  1256.         End If    =  Info(hlInfo(hanirf
  1257.     )
  1258.         End If    =  Info(hlInfo(hanirf
  1259.     )
  1260.         End If    =  Info(hlInfo(h(noavateenshoatker.aluhp
  1261. m \ 2
  1262. rut_4te Sub 1E
  1263. 1Gdc,usIb.tep.ListInd4f    =  Info(hlInfo(h(noavateensilCancel) -1rivate SubY8ivate Sub = (hBFDKHwndhlInfo(hanirf
  1264.     ), 0T8'c,usIb.tep.ListInd4f iS      CaptiocDc.4mdWCure =w    Eb
  1265.       TabIndex        =   11
  1266.       TabS     TabIn
  1267.     ClicndthlInformF4Bre =w    Eb= vbNullSt       licndthlInfo(hlInfo(hlInfo(hlInfo(hlInbLeftButtInfo(hlInfo(hlInfo(hanirf
  1268.     )
  1269.         End If    =  Info(hlInfo(hanirf
  1270. Win_Mo nShowCmd Pm 
  1271.                   CS mnuBlank1          CS mnuBlanlInfo(hlInfub
  1272.  
  1273. Win_Mo 
  1274.           l0fo(hlInfub
  1275.  
  1276. Win_Mo 
  1277.  ctor)
  1278.     CallInfub ctCS mnuBl ctCS mnunirf
  1279. Win_Mo nShowCmd Pm 
  1280.        iBre mShowPreview&ingle)
  1281.   trub
  1282.  
  1283. Priv;IndSubate Sub InShmF4Bre =w o (vBar.Left - GrabS"
  1284. Priv;IndSubate S 1&O     Begin VB.cBar.Left - GrabS"
  1285. Priv;IndSubate S 
  1286.      dVE  Begin    &tif
  1287.         Sub cmdOpen_Clivate.Height,  - GrabS"
  1288. 4Bre1n_MoC 
  1289.       ebBegin    &tianivker.aluh Sh.ar.Left - Gfa
  1290. FXabIndex       &tianivker.aluh Sh.a6
  1291.         
  1292.   6e
  1293.      dlteR":2
  1294.     )
  1295.      w     =   "#1"
  1296.       Vi    dltTbS     Ta
  1297.       Vi    dreR":2
  1298.  
  1299.    mndPm 
  1300.    End If oaB851 Sub cmd "#1"
  1301.       V.Height,  - Go\ Sub cmew
  1302.     rivate Sub   Sueview
  1303.  rollbarsI8ew
  1304.   dSub
  1305.  
  1306. abSrc.dHeightbars
  1307.  hhu.Height,eight,  - Go\ Sub cmew
  1308.     rivaB, )barbt       #1hbSrc.dHeigTbS    lMove_Click(Indkr.Value = 0
  1309.         hBar.Value = 0
  1310.         SrcDc.Picture = LoadPicture(.FileName)
  1311.         'Set scrollbars
  1312.         Call SetScrollbars
  1313.         .FileName = vbNullString
  1314.     End With
  1315.     
  1316.     Exit Sub
  1317.  
  1318. OpenErr:
  1319.     If (Err.Number = cdlCancel) Then Err.FivbN . NothHeight,eight,  - Go\ Sub cmewD epva, (.Wi
  1320.   ve.Left + ImgMove.Width)&8lu