home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top2124 / gepackt.exe / GRABIT.ZIP / GRABIT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-02-04  |  28.2 KB  |  966 lines
  1. VERSION 2.00
  2. Begin Form grabit 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00008000&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   4830
  8.    ClientTop       =   2085
  9.    ClientWidth     =   8400
  10.    ControlBox      =   0   'False
  11.    FillColor       =   &H00008000&
  12.    Height          =   7320
  13.    Icon            =   GRABIT.FRX:0000
  14.    KeyPreview      =   -1  'True
  15.    Left            =   4770
  16.    LinkMode        =   1  'Source
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   461
  21.    ScaleMode       =   3  'Pixel
  22.    ScaleWidth      =   560
  23.    Top             =   1740
  24.    Width           =   8520
  25.    Begin PictureBox Picture21 
  26.       BorderStyle     =   0  'None
  27.       Enabled         =   0   'False
  28.       Height          =   930
  29.       Left            =   4545
  30.       Picture         =   GRABIT.FRX:0302
  31.       ScaleHeight     =   930
  32.       ScaleWidth      =   930
  33.       TabIndex        =   62
  34.       TabStop         =   0   'False
  35.       Top             =   3435
  36.       Visible         =   0   'False
  37.       Width           =   930
  38.    End
  39.    Begin CommandButton combine 
  40.       Height          =   1080
  41.       Left            =   4470
  42.       TabIndex        =   61
  43.       TabStop         =   0   'False
  44.       Top             =   3360
  45.       Visible         =   0   'False
  46.       Width           =   1080
  47.    End
  48.    Begin PictureBox Picture12 
  49.       BorderStyle     =   0  'None
  50.       Enabled         =   0   'False
  51.       Height          =   930
  52.       Left            =   1215
  53.       Picture         =   GRABIT.FRX:16BC
  54.       ScaleHeight     =   930
  55.       ScaleWidth      =   930
  56.       TabIndex        =   52
  57.       TabStop         =   0   'False
  58.       Top             =   2325
  59.       Visible         =   0   'False
  60.       Width           =   930
  61.    End
  62.    Begin PictureBox Picture13 
  63.       BorderStyle     =   0  'None
  64.       Enabled         =   0   'False
  65.       Height          =   930
  66.       Left            =   2325
  67.       Picture         =   GRABIT.FRX:2A76
  68.       ScaleHeight     =   930
  69.       ScaleWidth      =   930
  70.       TabIndex        =   53
  71.       TabStop         =   0   'False
  72.       Top             =   2325
  73.       Visible         =   0   'False
  74.       Width           =   930
  75.    End
  76.    Begin PictureBox Picture14 
  77.       BorderStyle     =   0  'None
  78.       Enabled         =   0   'False
  79.       Height          =   930
  80.       Left            =   3435
  81.       Picture         =   GRABIT.FRX:3E30
  82.       ScaleHeight     =   930
  83.       ScaleWidth      =   930
  84.       TabIndex        =   54
  85.       TabStop         =   0   'False
  86.       Top             =   2325
  87.       Visible         =   0   'False
  88.       Width           =   930
  89.    End
  90.    Begin PictureBox Picture15 
  91.       BorderStyle     =   0  'None
  92.       Enabled         =   0   'False
  93.       Height          =   930
  94.       Left            =   2325
  95.       Picture         =   GRABIT.FRX:51EA
  96.       ScaleHeight     =   930
  97.       ScaleWidth      =   930
  98.       TabIndex        =   55
  99.       TabStop         =   0   'False
  100.       Top             =   3435
  101.       Visible         =   0   'False
  102.       Width           =   930
  103.    End
  104.    Begin PictureBox Picture16 
  105.       BorderStyle     =   0  'None
  106.       Enabled         =   0   'False
  107.       Height          =   930
  108.       Left            =   3435
  109.       Picture         =   GRABIT.FRX:65A4
  110.       ScaleHeight     =   930
  111.       ScaleWidth      =   930
  112.       TabIndex        =   56
  113.       TabStop         =   0   'False
  114.       Top             =   3435
  115.       Visible         =   0   'False
  116.       Width           =   930
  117.    End
  118.    Begin PictureBox Picture20 
  119.       BorderStyle     =   0  'None
  120.       Enabled         =   0   'False
  121.       Height          =   930
  122.       Left            =   4545
  123.       Picture         =   GRABIT.FRX:795E
  124.       ScaleHeight     =   930
  125.       ScaleWidth      =   930
  126.       TabIndex        =   60
  127.       TabStop         =   0   'False
  128.       Top             =   4545
  129.       Visible         =   0   'False
  130.       Width           =   930
  131.    End
  132.    Begin PictureBox Picture19 
  133.       BorderStyle     =   0  'None
  134.       Enabled         =   0   'False
  135.       Height          =   930
  136.       Left            =   3435
  137.       Picture         =   GRABIT.FRX:8D18
  138.       ScaleHeight     =   930
  139.       ScaleWidth      =   930
  140.       TabIndex        =   59
  141.       TabStop         =   0   'False
  142.       Top             =   4545
  143.       Visible         =   0   'False
  144.       Width           =   930
  145.    End
  146.    Begin PictureBox Picture18 
  147.       BorderStyle     =   0  'None
  148.       Enabled         =   0   'False
  149.       Height          =   930
  150.       Left            =   2325
  151.       Picture         =   GRABIT.FRX:A0D2
  152.       ScaleHeight     =   930
  153.       ScaleWidth      =   930
  154.       TabIndex        =   58
  155.       TabStop         =   0   'False
  156.       Top             =   4545
  157.       Visible         =   0   'False
  158.       Width           =   930
  159.    End
  160.    Begin PictureBox Picture17 
  161.       BorderStyle     =   0  'None
  162.       Enabled         =   0   'False
  163.       Height          =   930
  164.       Left            =   1215
  165.       Picture         =   GRABIT.FRX:B48C
  166.       ScaleHeight     =   930
  167.       ScaleWidth      =   930
  168.       TabIndex        =   57
  169.       TabStop         =   0   'False
  170.       Top             =   4545
  171.       Visible         =   0   'False
  172.       Width           =   930
  173.    End
  174.    Begin PictureBox Picture11 
  175.       BorderStyle     =   0  'None
  176.       Enabled         =   0   'False
  177.       Height          =   930
  178.       Left            =   4545
  179.       Picture         =   GRABIT.FRX:C846
  180.       ScaleHeight     =   930
  181.       ScaleWidth      =   930
  182.       TabIndex        =   51
  183.       TabStop         =   0   'False
  184.       Top             =   105
  185.       Visible         =   0   'False
  186.       Width           =   930
  187.    End
  188.    Begin PictureBox Picture10 
  189.       BorderStyle     =   0  'None
  190.       Enabled         =   0   'False
  191.       Height          =   930
  192.       Left            =   3435
  193.       Picture         =   GRABIT.FRX:DC00
  194.       ScaleHeight     =   930
  195.       ScaleWidth      =   930
  196.       TabIndex        =   50
  197.       TabStop         =   0   'False
  198.       Top             =   105
  199.       Visible         =   0   'False
  200.       Width           =   930
  201.    End
  202.    Begin PictureBox Picture9 
  203.       BorderStyle     =   0  'None
  204.       Enabled         =   0   'False
  205.       Height          =   930
  206.       Left            =   2325
  207.       Picture         =   GRABIT.FRX:EFBA
  208.       ScaleHeight     =   930
  209.       ScaleWidth      =   930
  210.       TabIndex        =   49
  211.       TabStop         =   0   'False
  212.       Top             =   105
  213.       Visible         =   0   'False
  214.       Width           =   930
  215.    End
  216.    Begin PictureBox Picture8 
  217.       BorderStyle     =   0  'None
  218.       Enabled         =   0   'False
  219.       Height          =   930
  220.       Left            =   1215
  221.       Picture         =   GRABIT.FRX:10374
  222.       ScaleHeight     =   930
  223.       ScaleWidth      =   930
  224.       TabIndex        =   48
  225.       TabStop         =   0   'False
  226.       Top             =   105
  227.       Visible         =   0   'False
  228.       Width           =   930
  229.    End
  230.    Begin PictureBox colpos2 
  231.       BackColor       =   &H00000000&
  232.       ForeColor       =   &H00808080&
  233.       Height          =   435
  234.       Left            =   1200
  235.       ScaleHeight     =   27
  236.       ScaleMode       =   3  'Pixel
  237.       ScaleWidth      =   1
  238.       TabIndex        =   46
  239.       Top             =   3945
  240.       Visible         =   0   'False
  241.       Width           =   45
  242.    End
  243.    Begin PictureBox colpos1 
  244.       BackColor       =   &H00000000&
  245.       ForeColor       =   &H00808080&
  246.       Height          =   450
  247.       Left            =   2505
  248.       ScaleHeight     =   28
  249.       ScaleMode       =   3  'Pixel
  250.       ScaleWidth      =   1
  251.       TabIndex        =   45
  252.       Top             =   3420
  253.       Visible         =   0   'False
  254.       Width           =   45
  255.    End
  256.    Begin PictureBox chart 
  257.       BackColor       =   &H00008000&
  258.       BorderStyle     =   0  'None
  259.       Height          =   1080
  260.       Left            =   1140
  261.       Picture         =   GRABIT.FRX:1172E
  262.       ScaleHeight     =   72
  263.       ScaleMode       =   3  'Pixel
  264.       ScaleWidth      =   98
  265.       TabIndex        =   44
  266.       Top             =   3360
  267.       Visible         =   0   'False
  268.       Width           =   1470
  269.    End
  270.    Begin CommandButton greyscale 
  271.       Height          =   1080
  272.       Left            =   2250
  273.       TabIndex        =   43
  274.       TabStop         =   0   'False
  275.       Top             =   2250
  276.       Visible         =   0   'False
  277.       Width           =   1080
  278.    End
  279.    Begin VScrollBar stepsize 
  280.       Height          =   1080
  281.       LargeChange     =   3
  282.       Left            =   5580
  283.       Max             =   1
  284.       Min             =   9
  285.       TabIndex        =   42
  286.       TabStop         =   0   'False
  287.       Top             =   3360
  288.       Value           =   3
  289.       Visible         =   0   'False
  290.       Width           =   255
  291.    End
  292.    Begin Timer freezetimer 
  293.       Enabled         =   0   'False
  294.       Interval        =   2500
  295.       Left            =   2040
  296.       Top             =   1320
  297.    End
  298.    Begin CommandButton Slideshowexit 
  299.       Caption         =   "Exit"
  300.       Height          =   540
  301.       Left            =   8835
  302.       TabIndex        =   41
  303.       TabStop         =   0   'False
  304.       Top             =   6630
  305.       Visible         =   0   'False
  306.       Width           =   735
  307.    End
  308.    Begin Timer slideshowtimer 
  309.       Enabled         =   0   'False
  310.       Interval        =   250
  311.       Left            =   7320
  312.       Top             =   1320
  313.    End
  314.    Begin CommandButton colourbrush 
  315.       Height          =   1080
  316.       Left            =   3360
  317.       TabIndex        =   40
  318.       TabStop         =   0   'False
  319.       Top             =   2250
  320.       Visible         =   0   'False
  321.       Width           =   1080
  322.    End
  323.    Begin CommandButton colourhair 
  324.       Height          =   1080
  325.       Left            =   1140
  326.       TabIndex        =   39
  327.       TabStop         =   0   'False
  328.       Top             =   2250
  329.       Visible         =   0   'False
  330.       Width           =   1080
  331.    End
  332.    Begin Timer undotimer 
  333.       Enabled         =   0   'False
  334.       Interval        =   10
  335.       Left            =   1200
  336.       Top             =   6000
  337.    End
  338.    Begin CommandButton bodynotok 
  339.       Caption         =   "No"
  340.       Height          =   480
  341.       Left            =   7680
  342.       TabIndex        =   35
  343.       TabStop         =   0   'False
  344.       Top             =   3120
  345.       Visible         =   0   'False
  346.       Width           =   480
  347.    End
  348.    Begin CommandButton bodyok 
  349.       Caption         =   "Yes"
  350.       Height          =   480
  351.       Left            =   7200
  352.       TabIndex        =   20
  353.       TabStop         =   0   'False
  354.       Top             =   3120
  355.       Visible         =   0   'False
  356.       Width           =   480
  357.    End
  358.    Begin CommandButton Bodyminus 
  359.       Caption         =   "-"
  360.       Height          =   480
  361.       Left            =   7680
  362.       TabIndex        =   19
  363.       TabStop         =   0   'False
  364.       Top             =   2640
  365.       Visible         =   0   'False
  366.       Width           =   480
  367.    End
  368.    Begin CommandButton bodyplus 
  369.       Caption         =   "+"
  370.       Height          =   480
  371.       Left            =   7200
  372.       TabIndex        =   18
  373.       TabStop         =   0   'False
  374.       Top             =   2640
  375.       Visible         =   0   'False
  376.       Width           =   480
  377.    End
  378.    Begin PictureBox PALFIX 
  379.       Enabled         =   0   'False
  380.       Height          =   375
  381.       Left            =   1200
  382.       ScaleHeight     =   345
  383.       ScaleWidth      =   345
  384.       TabIndex        =   38
  385.       Top             =   1440
  386.       Visible         =   0   'False
  387.       Width           =   375
  388.    End
  389.    Begin TextBox Counter 
  390.       BackColor       =   &H00008000&
  391.       BorderStyle     =   0  'None
  392.       Enabled         =   0   'False
  393.       FontBold        =   0   'False
  394.       FontItalic      =   0   'False
  395.       FontName        =   "Arial"
  396.       FontSize        =   8.25
  397.       FontStrikethru  =   0   'False
  398.       FontUnderline   =   0   'False
  399.       ForeColor       =   &H00808080&
  400.       Height          =   315
  401.       Left            =   1125
  402.       TabIndex        =   12
  403.       Top             =   6975
  404.       Width           =   1095
  405.    End
  406.    Begin PictureBox grabitQUIT 
  407.       BackColor       =   &H00008000&
  408.       BorderStyle     =   0  'None
  409.       Height          =   555
  410.       Left            =   30
  411.       Picture         =   GRABIT.FRX:13788
  412.       ScaleHeight     =   555
  413.       ScaleWidth      =   1125
  414.       TabIndex        =   2
  415.       TabStop         =   0   'False
  416.       Top             =   6720
  417.       Width           =   1125
  418.    End
  419.    Begin PictureBox registerBMP 
  420.       BorderStyle     =   0  'None
  421.       Height          =   750
  422.       Left            =   7350
  423.       Picture         =   GRABIT.FRX:1462A
  424.       ScaleHeight     =   750
  425.       ScaleWidth      =   2220
  426.       TabIndex        =   37
  427.       TabStop         =   0   'False
  428.       Top             =   30
  429.       Width           =   2220
  430.    End
  431.    Begin CommandButton spare 
  432.       Height          =   1080
  433.       Left            =   3360
  434.       TabIndex        =   34
  435.       TabStop         =   0   'False
  436.       Top             =   4470
  437.       Visible         =   0   'False
  438.       Width           =   1080
  439.    End
  440.    Begin PictureBox Picture7 
  441.       BorderStyle     =   0  'None
  442.       Height          =   930
  443.       Left            =   105
  444.       Picture         =   GRABIT.FRX:1674C
  445.       ScaleHeight     =   930
  446.       ScaleWidth      =   930
  447.       TabIndex        =   33
  448.       TabStop         =   0   'False
  449.       Top             =   5655
  450.       Width           =   930
  451.    End
  452.    Begin PictureBox Picture5 
  453.       BorderStyle     =   0  'None
  454.       Enabled         =   0   'False
  455.       Height          =   930
  456.       Left            =   105
  457.       Picture         =   GRABIT.FRX:17B06
  458.       ScaleHeight     =   930
  459.       ScaleWidth      =   930
  460.       TabIndex        =   32
  461.       TabStop         =   0   'False
  462.       Top             =   4545
  463.       Width           =   930
  464.    End
  465.    Begin PictureBox Picture3 
  466.       BorderStyle     =   0  'None
  467.       Enabled         =   0   'False
  468.       Height          =   930
  469.       Left            =   105
  470.       Picture         =   GRABIT.FRX:18EC0
  471.       ScaleHeight     =   930
  472.       ScaleWidth      =   930
  473.       TabIndex        =   31
  474.       TabStop         =   0   'False
  475.       Top             =   3435
  476.       Width           =   930
  477.    End
  478.    Begin CommandButton choicesbutton 
  479.       Height          =   1080
  480.       Left            =   30
  481.       TabIndex        =   30
  482.       TabStop         =   0   'False
  483.       Top             =   4470
  484.       Width           =   1080
  485.    End
  486.    Begin CommandButton Profile 
  487.       Height          =   1080
  488.       Left            =   4470
  489.       TabIndex        =   28
  490.       TabStop         =   0   'False
  491.       Top             =   30
  492.       Visible         =   0   'False
  493.       Width           =   1080
  494.    End
  495.    Begin CommandButton Front 
  496.       Height          =   1080
  497.       Left            =   2250
  498.       TabIndex        =   27
  499.       TabStop         =   0   'False
  500.       Top             =   30
  501.       Visible         =   0   'False
  502.       Width           =   1080
  503.    End
  504.    Begin CommandButton Before 
  505.       Height          =   1080
  506.       Left            =   3360
  507.       TabIndex        =   26
  508.       TabStop         =   0   'False
  509.       Top             =   30
  510.       Visible         =   0   'False
  511.       Width           =   1080
  512.    End
  513.    Begin CommandButton freeze 
  514.       Height          =   1080
  515.       Left            =   1140
  516.       TabIndex        =   25
  517.       TabStop         =   0   'False
  518.       Top             =   30
  519.       Visible         =   0   'False
  520.       Width           =   1080
  521.    End
  522.    Begin HScrollBar HScroll6 
  523.       Height          =   255
  524.       LargeChange     =   40
  525.       Left            =   1140
  526.       Max             =   604
  527.       Min             =   124
  528.       SmallChange     =   32
  529.       TabIndex        =   24
  530.       TabStop         =   0   'False
  531.       Top             =   270
  532.       Value           =   319
  533.       Visible         =   0   'False
  534.       Width           =   8430
  535.    End
  536.    Begin CommandButton loadbutton 
  537.       Height          =   1080
  538.       Left            =   2250
  539.       TabIndex        =   23
  540.       TabStop         =   0   'False
  541.       Top             =   4470
  542.       Visible         =   0   'False
  543.       Width           =   1080
  544.    End
  545.    Begin CommandButton storebutton 
  546.       Height          =   1080
  547.       Left            =   1140
  548.       TabIndex        =   22
  549.       TabStop         =   0   'False
  550.       Top             =   4470
  551.       Visible         =   0   'False
  552.       Width           =   1080
  553.    End
  554.    Begin CommandButton mirrorbutton 
  555.       Height          =   1080
  556.       Left            =   3360
  557.       TabIndex        =   21
  558.       TabStop         =   0   'False
  559.       Top             =   3360
  560.       Visible         =   0   'False
  561.       Width           =   1080
  562.    End
  563.    Begin CommandButton bodybutton 
  564.       Height          =   1080
  565.       Left            =   2250
  566.       TabIndex        =   17
  567.       TabStop         =   0   'False
  568.       Top             =   3360
  569.       Visible         =   0   'False
  570.       Width           =   1080
  571.    End
  572.    Begin CommandButton Undobutton 
  573.       Enabled         =   0   'False
  574.       Height          =   1080
  575.       Left            =   30
  576.       TabIndex        =   16
  577.       TabStop         =   0   'False
  578.       Top             =   5580
  579.       Width           =   1080
  580.    End
  581.    Begin PictureBox Picturezoom 
  582.       BorderStyle     =   0  'None
  583.       Height          =   930
  584.       Left            =   1215
  585.       Picture         =   GRABIT.FRX:1A27A
  586.       ScaleHeight     =   62
  587.       ScaleMode       =   3  'Pixel
  588.       ScaleWidth      =   62
  589.       TabIndex        =   13
  590.       TabStop         =   0   'False
  591.       Top             =   3435
  592.       Visible         =   0   'False
  593.       Width           =   930
  594.    End
  595.    Begin HScrollBar HScroll5 
  596.       Height          =   255
  597.       LargeChange     =   40
  598.       Left            =   1140
  599.       Max             =   604
  600.       Min             =   124
  601.       SmallChange     =   32
  602.       TabIndex        =   11
  603.       TabStop         =   0   'False
  604.       Top             =   30
  605.       Value           =   319
  606.       Visible         =   0   'False
  607.       Width           =   8430
  608.    End
  609.    Begin Timer Timer2 
  610.       Enabled         =   0   'False
  611.       Interval        =   5000
  612.       Left            =   7200
  613.       Top             =   4680
  614.    End
  615.    Begin CommandButton Printcommand 
  616.       Height          =   1080
  617.       Left            =   4470
  618.       TabIndex        =   10
  619.       TabStop         =   0   'False
  620.       Top             =   4470
  621.       Visible         =   0   'False
  622.       Width           =   1080
  623.    End
  624.    Begin PictureBox Picture6 
  625.       BorderStyle     =   0  'None
  626.       Enabled         =   0   'False
  627.       Height          =   930
  628.       Left            =   105
  629.       Picture         =   GRABIT.FRX:1B634
  630.       ScaleHeight     =   930
  631.       ScaleWidth      =   930
  632.       TabIndex        =   9
  633.       TabStop         =   0   'False
  634.       Top             =   2325
  635.       Width           =   930
  636.    End
  637.    Begin CommandButton Command3 
  638.       Height          =   1080
  639.       Left            =   30
  640.       TabIndex        =   8
  641.       TabStop         =   0   'False
  642.       Top             =   2250
  643.       Width           =   1080
  644.    End
  645.    Begin PictureBox Picture4 
  646.       BorderStyle     =   0  'None
  647.       Enabled         =   0   'False
  648.       Height          =   930
  649.       Left            =   105
  650.       Picture         =   GRABIT.FRX:1C9EE
  651.       ScaleHeight     =   930
  652.       ScaleWidth      =   930
  653.       TabIndex        =   7
  654.       TabStop         =   0   'False
  655.       Top             =   1215
  656.       Width           =   930
  657.    End
  658.    Begin CommandButton Command2 
  659.       Height          =   1080
  660.       Left            =   30
  661.       TabIndex        =   6
  662.       TabStop         =   0   'False
  663.       Top             =   1140
  664.       Width           =   1080
  665.    End
  666.    Begin PictureBox Picture2 
  667.       BorderStyle     =   0  'None
  668.       Enabled         =   0   'False
  669.       Height          =   930
  670.       Left            =   105
  671.       Picture         =   GRABIT.FRX:1DDA8
  672.       ScaleHeight     =   930
  673.       ScaleWidth      =   930
  674.       TabIndex        =   5
  675.       TabStop         =   0   'False
  676.       Top             =   105
  677.       Width           =   930
  678.    End
  679.    Begin CommandButton Command1 
  680.       Height          =   1080
  681.       Left            =   30
  682.       TabIndex        =   4
  683.       TabStop         =   0   'False
  684.       Top             =   30
  685.       Width           =   1080
  686.    End
  687.    Begin PictureBox Picture1 
  688.       AutoRedraw      =   -1  'True
  689.       BackColor       =   &H00008000&
  690.       FillStyle       =   0  'Solid
  691.       ForeColor       =   &H00000000&
  692.       Height          =   255
  693.       Left            =   9315
  694.       ScaleHeight     =   15
  695.       ScaleMode       =   3  'Pixel
  696.       ScaleWidth      =   15
  697.       TabIndex        =   3
  698.       Top             =   6945
  699.       Visible         =   0   'False
  700.       Width           =   255
  701.    End
  702.    Begin HScrollBar HScroll1 
  703.       Height          =   255
  704.       LargeChange     =   40
  705.       Left            =   1485
  706.       Max             =   639
  707.       SmallChange     =   4
  708.       TabIndex        =   0
  709.       Top             =   6945
  710.       Value           =   319
  711.       Visible         =   0   'False
  712.       Width           =   7830
  713.    End
  714.    Begin VScrollBar VScroll1 
  715.       Height          =   6915
  716.       LargeChange     =   40
  717.       Left            =   9345
  718.       Max             =   479
  719.       SmallChange     =   4
  720.       TabIndex        =   1
  721.       TabStop         =   0   'False
  722.       Top             =   0
  723.       Value           =   239
  724.       Visible         =   0   'False
  725.       Width           =   255
  726.    End
  727.    Begin CommandButton Commandzoom 
  728.       Height          =   1080
  729.       Left            =   30
  730.       TabIndex        =   14
  731.       TabStop         =   0   'False
  732.       Top             =   3360
  733.       Width           =   1080
  734.    End
  735.    Begin CommandButton picturezoombutton 
  736.       Enabled         =   0   'False
  737.       Height          =   1080
  738.       Left            =   1140
  739.       TabIndex        =   29
  740.       TabStop         =   0   'False
  741.       Top             =   3360
  742.       Visible         =   0   'False
  743.       Width           =   1080
  744.    End
  745.    Begin PictureBox movie 
  746.       BorderStyle     =   0  'None
  747.       Height          =   1200
  748.       Left            =   8370
  749.       Picture         =   GRABIT.FRX:1F162
  750.       ScaleHeight     =   80
  751.       ScaleMode       =   0  'User
  752.       ScaleWidth      =   80
  753.       TabIndex        =   36
  754.       TabStop         =   0   'False
  755.       Top             =   6000
  756.       Visible         =   0   'False
  757.       Width           =   1200
  758.    End
  759.    Begin Label initmess 
  760.       Alignment       =   2  'Center
  761.       BackColor       =   &H00008000&
  762.       BorderStyle     =   1  'Fixed Single
  763.       Caption         =   "Initializing"
  764.       FontBold        =   -1  'True
  765.       FontItalic      =   0   'False
  766.       FontName        =   "MS Sans Serif"
  767.       FontSize        =   13.5
  768.       FontStrikethru  =   0   'False
  769.       FontUnderline   =   0   'False
  770.       ForeColor       =   &H000000FF&
  771.       Height          =   375
  772.       Left            =   3480
  773.       TabIndex        =   47
  774.       Top             =   2640
  775.       Width           =   2415
  776.    End
  777.    Begin Label democaption 
  778.       Alignment       =   2  'Center
  779.       BackColor       =   &H00008000&
  780.       Caption         =   "DEMONSTATION"
  781.       FontBold        =   -1  'True
  782.       FontItalic      =   0   'False
  783.       FontName        =   "Times New Roman"
  784.       FontSize        =   72
  785.       FontStrikethru  =   0   'False
  786.       FontUnderline   =   0   'False
  787.       ForeColor       =   &H000000FF&
  788.       Height          =   6870
  789.       Left            =   0
  790.       TabIndex        =   15
  791.       Top             =   0
  792.       Visible         =   0   'False
  793.       Width           =   9615
  794.       WordWrap        =   -1  'True
  795.    End
  796. Sub Before_Click ()
  797.   Call views(0)
  798. End Sub
  799. Sub bodybutton_Click ()
  800.   Call toggleicons(4)
  801.   Call body
  802. End Sub
  803. Sub Bodyminus_Click ()
  804.   Call bodymove(2)
  805. End Sub
  806. Sub bodynotok_Click ()
  807.   Call bodyend(-1)
  808. End Sub
  809. Sub bodyok_Click ()
  810.   Call bodyend(0)
  811. End Sub
  812. Sub bodyplus_Click ()
  813.   Call bodymove(1)
  814. End Sub
  815. Sub chart_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  816.   Call chartcolour(X, Y)
  817. End Sub
  818. Sub choicesbutton_Click ()
  819.   Call toggleicons(5)
  820. End Sub
  821. Sub colourbrush_Click ()
  822.   Call toggleicons(3)
  823.   colourmix (99)
  824. End Sub
  825. Sub colourhair_Click ()
  826.   Call toggleicons(3)
  827.   colourmix (1)
  828. End Sub
  829. Sub combine_Click ()
  830.   toggleicons (4)
  831.   sinkin
  832. End Sub
  833. Sub Command1_Click ()
  834.   Call toggleicons(1)
  835. End Sub
  836. Sub Command2_Click ()
  837.   Call toggleicons(2)
  838.   overlay
  839. End Sub
  840. Sub Command3_Click ()
  841.   Call toggleicons(3)
  842. End Sub
  843. Sub Commandzoom_Click ()
  844.   Call toggleicons(4)
  845. End Sub
  846. Sub Extra_Click ()
  847.   If grabit.registerBMP.Visible Then grabit.registerBMP.SetFocus
  848. End Sub
  849. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  850.   Call keyboardhandler(KeyCode)
  851.   KeyCode = 0
  852. End Sub
  853. Sub Form_KeyPress (KeyAscii As Integer)
  854.   KeyAscii = 0
  855. End Sub
  856. Sub Form_Load ()
  857.   initializegrabit
  858. '  DLLInstance = LoadLibrary("c:\windows\system\CURSORS.DLL")
  859. '  Curs1Handle = LoadCursor(DLLInstance, "CURSOR_1")
  860. '  SysCursHandle = SetClassWord(grabitQUIT.hWnd, GCW_HCURSOR, Curs1Handle)
  861. End Sub
  862. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  863.   Call mousecheckker(X, Y, Button, 0)
  864. End Sub
  865. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  866.   Call mousepaint(X, Y, Button)
  867.   Call mousecheckker2(X, Y, Button)
  868. End Sub
  869. Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  870.   Call mousecheckker(X, Y, Button, -1)
  871. End Sub
  872. Sub Form_Unload (Cancel As Integer)
  873. '  LastCursor = SetClassWord(grabit.hWnd, GCW_HCURSOR, SysCursHandle)
  874. '  Success = DestroyCursor(Curs1Handle)
  875. End Sub
  876. Sub freeze_Click ()
  877.   Call freezetogglepre
  878. End Sub
  879. Sub freezetimer_Timer ()
  880.   Call viewend
  881. End Sub
  882. Sub Front_Click ()
  883.   Call views(1)
  884. End Sub
  885. Sub grabitQUIT_Click ()
  886.   ending
  887. End Sub
  888. Sub greyscale_Click ()
  889.   Call toggleicons(3)
  890.   Call greyscaledo
  891. End Sub
  892. Sub HScroll1_Change ()
  893.   scrollaround
  894. End Sub
  895. Sub HScroll5_Change ()
  896.   Call colourbar
  897. End Sub
  898. Sub HScroll6_Change ()
  899.   Call drawbar
  900. End Sub
  901. Sub loadbutton_Click ()
  902.   Call toggleicons(5)
  903.   Call loadpic
  904. End Sub
  905. Sub mirrorbutton_Click ()
  906.   Call toggleicons(4)
  907.   Call mirrordo
  908. End Sub
  909. Sub movie_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  910.   Call movieact(X, Y)
  911. End Sub
  912. Sub Picture1_Click ()
  913.   brushsize
  914. End Sub
  915. Sub Picture7_DblClick ()
  916.   Call undoall
  917. End Sub
  918. Sub Picture7_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  919.   Call undo
  920. End Sub
  921. Sub Picture7_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  922.   Call undoend
  923. End Sub
  924. Sub Picturezoom_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  925.   Call zoomit(X, Y)
  926. End Sub
  927. Sub Printcommand_Click ()
  928.   Call toggleicons(5)
  929.   Call printvideo
  930. End Sub
  931. Sub Profile_Click ()
  932.   Call views(2)
  933. End Sub
  934. Sub registerBMP_DblClick ()
  935.   Call slideshow
  936. End Sub
  937. Sub Slideshowexit_Click ()
  938.   Call slideshowend
  939. End Sub
  940. Sub slideshowtimer_Timer ()
  941.   Call slideshowshow
  942. End Sub
  943. Sub spare_Click ()
  944.   Call toggleicons(5)
  945.   Call showlogo(2)
  946. End Sub
  947. Sub stepsize_Change ()
  948.   Call keyboardhandler(-stepsize.Value)
  949. End Sub
  950. Sub storebutton_Click ()
  951.   Call toggleicons(5)
  952.   Call storepic
  953. End Sub
  954. Sub Timer2_Timer ()
  955.   Call printvideorestore
  956. End Sub
  957. Sub Undobutton_Click ()
  958.   'Call undo
  959. End Sub
  960. Sub undotimer_Timer ()
  961.   Call undo
  962. End Sub
  963. Sub VScroll1_Change ()
  964.   scrollaround
  965. End Sub
  966.