home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / DBPUSH.ZIP / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-17  |  22.9 KB  |  638 lines
  1. VERSION 2.00
  2. Begin Form frmAutoDisable 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Autodisable demo"
  5.    ClientHeight    =   4185
  6.    ClientLeft      =   1620
  7.    ClientTop       =   1635
  8.    ClientWidth     =   5535
  9.    ClipControls    =   0   'False
  10.    Height          =   4590
  11.    Left            =   1560
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4185
  14.    ScaleWidth      =   5535
  15.    Top             =   1290
  16.    Width           =   5655
  17.    Begin Frame Frame4 
  18.       BackColor       =   &H00C0C0C0&
  19.       Height          =   2715
  20.       Left            =   3660
  21.       TabIndex        =   15
  22.       Top             =   60
  23.       Width           =   1755
  24.       Begin DBPush DBPush3 
  25.          Alignment       =   2  'Center
  26.          AutoPictureDisabled=   0  'Off
  27.          BackColor       =   &H00C0C0C0&
  28.          BackColorDown   =   &H00E0E0E0&
  29.          BevelWidth      =   2
  30.          Caption         =   "Outer contour"
  31.          CornerColor     =   &H00000000&
  32.          DarkColor       =   &H00808080&
  33.          DropShadow      =   0   'False
  34.          Enabled         =   0   'False
  35.          FocusRect       =   0   'False
  36.          Font3D          =   0  'None
  37.          Font3DDisabled  =   3  'Inset w/light shading
  38.          ForceDown       =   -1  'True
  39.          ForceUp         =   0   'False
  40.          ForeColorDisabled=   &H00808080&
  41.          Height          =   555
  42.          Index           =   0
  43.          Left            =   120
  44.          LightColor      =   &H00FFFFFF&
  45.          Outline         =   -1  'True
  46.          OutlineSize     =   1
  47.          PaletteAware    =   0   'False
  48.          PictureFromEdge =   0
  49.          Placement       =   0  'Text below picture
  50.          PredefPicture   =   0  'None
  51.          Style           =   0  'Normal
  52.          TabIndex        =   19
  53.          Top             =   180
  54.          TransColor      =   &H00000000&
  55.          Transparent     =   0   'False
  56.          VertAlignment   =   2  'Center
  57.          Width           =   1515
  58.       End
  59.       Begin DBPush DBPush3 
  60.          Alignment       =   2  'Center
  61.          AutoPictureDisabled=   0  'Off
  62.          BackColor       =   &H00C0C0C0&
  63.          BackColorDown   =   &H00E0E0E0&
  64.          BevelWidth      =   2
  65.          Caption         =   "Whole picture"
  66.          CornerColor     =   &H00000000&
  67.          DarkColor       =   &H00808080&
  68.          DropShadow      =   0   'False
  69.          Enabled         =   0   'False
  70.          FocusRect       =   0   'False
  71.          Font3D          =   0  'None
  72.          Font3DDisabled  =   3  'Inset w/light shading
  73.          ForceDown       =   0   'False
  74.          ForceUp         =   0   'False
  75.          ForeColorDisabled=   &H00808080&
  76.          Height          =   555
  77.          Index           =   1
  78.          Left            =   120
  79.          LightColor      =   &H00FFFFFF&
  80.          Outline         =   -1  'True
  81.          OutlineSize     =   1
  82.          PaletteAware    =   0   'False
  83.          PictureFromEdge =   0
  84.          Placement       =   0  'Text below picture
  85.          PredefPicture   =   0  'None
  86.          Style           =   0  'Normal
  87.          TabIndex        =   18
  88.          Top             =   780
  89.          TransColor      =   &H00000000&
  90.          Transparent     =   0   'False
  91.          VertAlignment   =   2  'Center
  92.          Width           =   1515
  93.       End
  94.       Begin DBPush DBPush3 
  95.          Alignment       =   2  'Center
  96.          AutoPictureDisabled=   0  'Off
  97.          BackColor       =   &H00C0C0C0&
  98.          BackColorDown   =   &H00E0E0E0&
  99.          BevelWidth      =   2
  100.          Caption         =   "All contours (thick)"
  101.          CornerColor     =   &H00000000&
  102.          DarkColor       =   &H00808080&
  103.          DropShadow      =   0   'False
  104.          Enabled         =   0   'False
  105.          FocusRect       =   0   'False
  106.          Font3D          =   0  'None
  107.          Font3DDisabled  =   3  'Inset w/light shading
  108.          ForceDown       =   0   'False
  109.          ForceUp         =   0   'False
  110.          ForeColorDisabled=   &H00808080&
  111.          Height          =   555
  112.          Index           =   2
  113.          Left            =   120
  114.          LightColor      =   &H00FFFFFF&
  115.          Outline         =   -1  'True
  116.          OutlineSize     =   1
  117.          PaletteAware    =   0   'False
  118.          PictureFromEdge =   0
  119.          Placement       =   0  'Text below picture
  120.          PredefPicture   =   0  'None
  121.          Style           =   0  'Normal
  122.          TabIndex        =   17
  123.          Top             =   1380
  124.          TransColor      =   &H00000000&
  125.          Transparent     =   0   'False
  126.          VertAlignment   =   2  'Center
  127.          Width           =   1515
  128.       End
  129.       Begin DBPush DBPush3 
  130.          Alignment       =   2  'Center
  131.          AutoPictureDisabled=   0  'Off
  132.          BackColor       =   &H00C0C0C0&
  133.          BackColorDown   =   &H00E0E0E0&
  134.          BevelWidth      =   2
  135.          Caption         =   "All contours (thin)"
  136.          CornerColor     =   &H00000000&
  137.          DarkColor       =   &H00808080&
  138.          DropShadow      =   0   'False
  139.          Enabled         =   0   'False
  140.          FocusRect       =   0   'False
  141.          Font3D          =   0  'None
  142.          Font3DDisabled  =   3  'Inset w/light shading
  143.          ForceDown       =   0   'False
  144.          ForceUp         =   0   'False
  145.          ForeColorDisabled=   &H00808080&
  146.          Height          =   555
  147.          Index           =   3
  148.          Left            =   120
  149.          LightColor      =   &H00FFFFFF&
  150.          Outline         =   -1  'True
  151.          OutlineSize     =   1
  152.          PaletteAware    =   0   'False
  153.          PictureFromEdge =   0
  154.          Placement       =   0  'Text below picture
  155.          PredefPicture   =   0  'None
  156.          Style           =   0  'Normal
  157.          TabIndex        =   16
  158.          Top             =   2040
  159.          TransColor      =   &H00000000&
  160.          Transparent     =   0   'False
  161.          VertAlignment   =   2  'Center
  162.          Width           =   1515
  163.       End
  164.    End
  165.    Begin Frame Frame3 
  166.       BackColor       =   &H00C0C0C0&
  167.       Height          =   1515
  168.       Left            =   2280
  169.       TabIndex        =   12
  170.       Top             =   1920
  171.       Width           =   1275
  172.       Begin DBPush DBPush4 
  173.          Alignment       =   2  'Center
  174.          AutoPictureDisabled=   0  'Off
  175.          BackColor       =   &H00C0C0C0&
  176.          BackColorDown   =   &H00E0E0E0&
  177.          BevelWidth      =   2
  178.          Caption         =   "Inset"
  179.          CornerColor     =   &H00000000&
  180.          DarkColor       =   &H00808080&
  181.          DropShadow      =   0   'False
  182.          Enabled         =   0   'False
  183.          FocusRect       =   0   'False
  184.          Font3D          =   0  'None
  185.          Font3DDisabled  =   3  'Inset w/light shading
  186.          ForceDown       =   -1  'True
  187.          ForceUp         =   0   'False
  188.          ForeColorDisabled=   &H00808080&
  189.          Height          =   495
  190.          Index           =   1
  191.          Left            =   120
  192.          LightColor      =   &H00FFFFFF&
  193.          Outline         =   -1  'True
  194.          OutlineSize     =   1
  195.          PaletteAware    =   0   'False
  196.          PictureFromEdge =   0
  197.          Placement       =   0  'Text below picture
  198.          PredefPicture   =   0  'None
  199.          Style           =   0  'Normal
  200.          TabIndex        =   14
  201.          Top             =   840
  202.          TransColor      =   &H00000000&
  203.          Transparent     =   0   'False
  204.          VertAlignment   =   2  'Center
  205.          Width           =   1035
  206.       End
  207.       Begin DBPush DBPush4 
  208.          Alignment       =   2  'Center
  209.          AutoPictureDisabled=   0  'Off
  210.          BackColor       =   &H00C0C0C0&
  211.          BackColorDown   =   &H00E0E0E0&
  212.          BevelWidth      =   2
  213.          Caption         =   "Raised"
  214.          CornerColor     =   &H00000000&
  215.          DarkColor       =   &H00808080&
  216.          DropShadow      =   0   'False
  217.          Enabled         =   0   'False
  218.          FocusRect       =   0   'False
  219.          Font3D          =   0  'None
  220.          Font3DDisabled  =   3  'Inset w/light shading
  221.          ForceDown       =   0   'False
  222.          ForceUp         =   0   'False
  223.          ForeColorDisabled=   &H00808080&
  224.          Height          =   495
  225.          Index           =   0
  226.          Left            =   120
  227.          LightColor      =   &H00FFFFFF&
  228.          Outline         =   -1  'True
  229.          OutlineSize     =   1
  230.          PaletteAware    =   0   'False
  231.          PictureFromEdge =   0
  232.          Placement       =   0  'Text below picture
  233.          PredefPicture   =   0  'None
  234.          Style           =   0  'Normal
  235.          TabIndex        =   13
  236.          Top             =   240
  237.          TransColor      =   &H00000000&
  238.          Transparent     =   0   'False
  239.          VertAlignment   =   2  'Center
  240.          Width           =   1035
  241.       End
  242.    End
  243.    Begin Frame Frame2 
  244.       BackColor       =   &H00C0C0C0&
  245.       Caption         =   "Transparent color"
  246.       Height          =   1515
  247.       Left            =   120
  248.       TabIndex        =   6
  249.       Top             =   1920
  250.       Width           =   2055
  251.       Begin DBPush DBPush1 
  252.          Alignment       =   2  'Center
  253.          AutoPictureDisabled=   0  'Off
  254.          BackColor       =   &H00C0C0C0&
  255.          BackColorDown   =   &H00E0E0E0&
  256.          BevelWidth      =   2
  257.          Caption         =   "White"
  258.          CornerColor     =   &H00000000&
  259.          DarkColor       =   &H00808080&
  260.          DropShadow      =   0   'False
  261.          FocusRect       =   -1  'True
  262.          Font3D          =   0  'None
  263.          Font3DDisabled  =   0  'None
  264.          ForceDown       =   0   'False
  265.          ForceUp         =   0   'False
  266.          ForeColorDisabled=   &H00000000&
  267.          Height          =   315
  268.          Index           =   1
  269.          Left            =   120
  270.          LightColor      =   &H00FFFFFF&
  271.          Outline         =   -1  'True
  272.          OutlineSize     =   1
  273.          PaletteAware    =   0   'False
  274.          PictureFromEdge =   0
  275.          Placement       =   0  'Text below picture
  276.          PredefPicture   =   0  'None
  277.          Style           =   0  'Normal
  278.          TabIndex        =   10
  279.          Top             =   660
  280.          TransColor      =   &H00000000&
  281.          Transparent     =   0   'False
  282.          VertAlignment   =   2  'Center
  283.          Width           =   855
  284.       End
  285.       Begin DBPush DBPush1 
  286.          Alignment       =   2  'Center
  287.          AutoPictureDisabled=   0  'Off
  288.          BackColor       =   &H00C0C0C0&
  289.          BackColorDown   =   &H00E0E0E0&
  290.          BevelWidth      =   2
  291.          Caption         =   "Black"
  292.          CornerColor     =   &H00000000&
  293.          DarkColor       =   &H00808080&
  294.          DropShadow      =   0   'False
  295.          FocusRect       =   -1  'True
  296.          Font3D          =   0  'None
  297.          Font3DDisabled  =   0  'None
  298.          ForceDown       =   0   'False
  299.          ForceUp         =   0   'False
  300.          ForeColorDisabled=   &H00000000&
  301.          Height          =   315
  302.          Index           =   2
  303.          Left            =   1080
  304.          LightColor      =   &H00FFFFFF&
  305.          Outline         =   -1  'True
  306.          OutlineSize     =   1
  307.          PaletteAware    =   0   'False
  308.          PictureFromEdge =   0
  309.          Placement       =   0  'Text below picture
  310.          PredefPicture   =   0  'None
  311.          Style           =   0  'Normal
  312.          TabIndex        =   9
  313.          Top             =   300
  314.          TransColor      =   &H00000000&
  315.          Transparent     =   0   'False
  316.          VertAlignment   =   2  'Center
  317.          Width           =   855
  318.       End
  319.       Begin DBPush DBPush1 
  320.          Alignment       =   2  'Center
  321.          AutoPictureDisabled=   0  'Off
  322.          BackColor       =   &H00C0C0C0&
  323.          BackColorDown   =   &H00E0E0E0&
  324.          BevelWidth      =   2
  325.          Caption         =   "Red"
  326.          CornerColor     =   &H00000000&
  327.          DarkColor       =   &H00808080&
  328.          DropShadow      =   0   'False
  329.          FocusRect       =   -1  'True
  330.          Font3D          =   0  'None
  331.          Font3DDisabled  =   0  'None
  332.          ForceDown       =   0   'False
  333.          ForceUp         =   0   'False
  334.          ForeColorDisabled=   &H00000000&
  335.          Height          =   315
  336.          Index           =   3
  337.          Left            =   1080
  338.          LightColor      =   &H00FFFFFF&
  339.          Outline         =   -1  'True
  340.          OutlineSize     =   1
  341.          PaletteAware    =   0   'False
  342.          PictureFromEdge =   0
  343.          Placement       =   0  'Text below picture
  344.          PredefPicture   =   0  'None
  345.          Style           =   0  'Normal
  346.          TabIndex        =   8
  347.          Top             =   660
  348.          TransColor      =   &H00000000&
  349.          Transparent     =   0   'False
  350.          VertAlignment   =   2  'Center
  351.          Width           =   855
  352.       End
  353.       Begin DBPush DBPush1 
  354.          Alignment       =   2  'Center
  355.          AutoPictureDisabled=   0  'Off
  356.          BackColor       =   &H00C0C0C0&
  357.          BackColorDown   =   &H00E0E0E0&
  358.          BevelWidth      =   2
  359.          Caption         =   "Yellow"
  360.          CornerColor     =   &H00000000&
  361.          DarkColor       =   &H00808080&
  362.          DropShadow      =   0   'False
  363.          FocusRect       =   -1  'True
  364.          Font3D          =   0  'None
  365.          Font3DDisabled  =   0  'None
  366.          ForceDown       =   -1  'True
  367.          ForceUp         =   0   'False
  368.          ForeColorDisabled=   &H00000000&
  369.          Height          =   315
  370.          Index           =   0
  371.          Left            =   120
  372.          LightColor      =   &H00FFFFFF&
  373.          Outline         =   -1  'True
  374.          OutlineSize     =   1
  375.          PaletteAware    =   0   'False
  376.          PictureFromEdge =   0
  377.          Placement       =   0  'Text below picture
  378.          PredefPicture   =   0  'None
  379.          Style           =   0  'Normal
  380.          TabIndex        =   7
  381.          Top             =   300
  382.          TransColor      =   &H00000000&
  383.          Transparent     =   0   'False
  384.          VertAlignment   =   2  'Center
  385.          Width           =   855
  386.       End
  387.       Begin Label Label1 
  388.          BackStyle       =   0  'Transparent
  389.          Caption         =   "This only affects the bitmap, not the icons."
  390.          Height          =   435
  391.          Left            =   60
  392.          TabIndex        =   11
  393.          Top             =   1020
  394.          Width           =   2055
  395.       End
  396.    End
  397.    Begin Frame Frame1 
  398.       BackColor       =   &H00C0C0C0&
  399.       Caption         =   "Sample pictures"
  400.       Height          =   1815
  401.       Left            =   120
  402.       TabIndex        =   2
  403.       Top             =   60
  404.       Width           =   3435
  405.       Begin DBPush DBPush13 
  406.          Alignment       =   2  'Center
  407.          AutoPictureDisabled=   1  'Outer contour Inset
  408.          BackColor       =   &H00C0C0C0&
  409.          BackColorDown   =   &H00C0C0C0&
  410.          BevelWidth      =   2
  411.          CornerColor     =   &H00000000&
  412.          DarkColor       =   &H00808080&
  413.          DropShadow      =   0   'False
  414.          FocusRect       =   -1  'True
  415.          Font3D          =   0  'None
  416.          Font3DDisabled  =   0  'None
  417.          ForceDown       =   0   'False
  418.          ForceUp         =   0   'False
  419.          ForeColorDisabled=   &H00000000&
  420.          Height          =   1395
  421.          Left            =   120
  422.          LightColor      =   &H00FFFFFF&
  423.          Outline         =   -1  'True
  424.          OutlineSize     =   1
  425.          PaletteAware    =   0   'False
  426.          Picture         =   FORM2.FRX:0000
  427.          PictureFromEdge =   0
  428.          Placement       =   0  'Text below picture
  429.          PredefPicture   =   0  'None
  430.          Style           =   0  'Normal
  431.          TabIndex        =   5
  432.          Top             =   300
  433.          TransColor      =   &H0000FFFF&
  434.          Transparent     =   -1  'True
  435.          VertAlignment   =   1  'Bottom
  436.          Width           =   2055
  437.       End
  438.       Begin DBPush DBPush14 
  439.          Alignment       =   2  'Center
  440.          AutoPictureDisabled=   1  'Outer contour Inset
  441.          BackColor       =   &H00C0C0C0&
  442.          BackColorDown   =   &H00C0C0C0&
  443.          BevelWidth      =   2
  444.          CornerColor     =   &H00000000&
  445.          DarkColor       =   &H00808080&
  446.          DropShadow      =   0   'False
  447.          FocusRect       =   -1  'True
  448.          Font3D          =   0  'None
  449.          Font3DDisabled  =   0  'None
  450.          ForceDown       =   0   'False
  451.          ForceUp         =   0   'False
  452.          ForeColorDisabled=   &H00000000&
  453.          Height          =   675
  454.          Left            =   2220
  455.          LightColor      =   &H00FFFFFF&
  456.          Outline         =   -1  'True
  457.          OutlineSize     =   1
  458.          PaletteAware    =   0   'False
  459.          Picture         =   FORM2.FRX:0A9A
  460.          PictureFromEdge =   0
  461.          Placement       =   0  'Text below picture
  462.          PredefPicture   =   0  'None
  463.          Style           =   0  'Normal
  464.          TabIndex        =   4
  465.          Top             =   300
  466.          TransColor      =   &H00000000&
  467.          Transparent     =   0   'False
  468.          VertAlignment   =   1  'Bottom
  469.          Width           =   1095
  470.       End
  471.       Begin DBPush DBPush15 
  472.          Alignment       =   2  'Center
  473.          AutoPictureDisabled=   1  'Outer contour Inset
  474.          BackColor       =   &H00C0C0C0&
  475.          BackColorDown   =   &H00C0C0C0&
  476.          BevelWidth      =   2
  477.          CornerColor     =   &H00000000&
  478.          DarkColor       =   &H00808080&
  479.          DropShadow      =   0   'False
  480.          FocusRect       =   -1  'True
  481.          Font3D          =   0  'None
  482.          Font3DDisabled  =   0  'None
  483.          ForceDown       =   0   'False
  484.          ForceUp         =   0   'False
  485.          ForeColorDisabled=   &H00000000&
  486.          Height          =   675
  487.          Left            =   2220
  488.          LightColor      =   &H00FFFFFF&
  489.          Outline         =   -1  'True
  490.          OutlineSize     =   1
  491.          PaletteAware    =   0   'False
  492.          Picture         =   FORM2.FRX:0D9C
  493.          PictureFromEdge =   0
  494.          Placement       =   0  'Text below picture
  495.          PredefPicture   =   0  'None
  496.          Style           =   0  'Normal
  497.          TabIndex        =   3
  498.          Top             =   1020
  499.          TransColor      =   &H00000000&
  500.          Transparent     =   0   'False
  501.          VertAlignment   =   1  'Bottom
  502.          Width           =   1095
  503.       End
  504.    End
  505.    Begin DBPush cmdExit 
  506.       Alignment       =   2  'Center
  507.       AutoPictureDisabled=   0  'Off
  508.       BackColor       =   &H00C0C0C0&
  509.       BackColorDown   =   &H00C0C0C0&
  510.       BevelWidth      =   2
  511.       Caption         =   "Close"
  512.       CornerColor     =   &H00C0C0C0&
  513.       DarkColor       =   &H00808080&
  514.       DropShadow      =   0   'False
  515.       FocusRect       =   -1  'True
  516.       Font3D          =   0  'None
  517.       Font3DDisabled  =   0  'None
  518.       FontBold        =   0   'False
  519.       FontItalic      =   0   'False
  520.       FontName        =   "MS Sans Serif"
  521.       FontSize        =   8.25
  522.       FontStrikethru  =   0   'False
  523.       FontUnderline   =   0   'False
  524.       ForceDown       =   0   'False
  525.       ForceUp         =   0   'False
  526.       ForeColorDisabled=   &H00000000&
  527.       Height          =   495
  528.       Left            =   2220
  529.       LightColor      =   &H00FFFFFF&
  530.       Outline         =   -1  'True
  531.       OutlineSize     =   1
  532.       PaletteAware    =   0   'False
  533.       PictureFromEdge =   0
  534.       Placement       =   1  'Text right of picture
  535.       PredefPicture   =   2  'Cancel
  536.       Style           =   0  'Normal
  537.       TabIndex        =   1
  538.       Top             =   3600
  539.       TransColor      =   &H00000000&
  540.       Transparent     =   0   'False
  541.       VertAlignment   =   2  'Center
  542.       Width           =   1275
  543.    End
  544.    Begin DBPush DBPush2 
  545.       Alignment       =   2  'Center
  546.       AutoPictureDisabled=   0  'Off
  547.       BackColor       =   &H00C0C0C0&
  548.       BackColorDown   =   &H00E0E0E0&
  549.       BevelWidth      =   2
  550.       Caption         =   "Disable!"
  551.       CornerColor     =   &H00000000&
  552.       DarkColor       =   &H00808080&
  553.       DropShadow      =   0   'False
  554.       FocusRect       =   0   'False
  555.       Font3D          =   0  'None
  556.       Font3DDisabled  =   0  'None
  557.       ForceDown       =   0   'False
  558.       ForceUp         =   0   'False
  559.       ForeColorDisabled=   &H00000000&
  560.       Height          =   675
  561.       Left            =   3840
  562.       LightColor      =   &H00FFFFFF&
  563.       Outline         =   -1  'True
  564.       OutlineSize     =   1
  565.       PaletteAware    =   0   'False
  566.       PictureFromEdge =   0
  567.       Placement       =   0  'Text below picture
  568.       PredefPicture   =   0  'None
  569.       Style           =   0  'Normal
  570.       TabIndex        =   0
  571.       Top             =   2880
  572.       TransColor      =   &H00000000&
  573.       Transparent     =   0   'False
  574.       VertAlignment   =   2  'Center
  575.       Width           =   1455
  576.    End
  577. Option Explicit
  578. Sub cmdExit_Click ()
  579.   Unload Me
  580. End Sub
  581. Sub DBPush1_Click (Index As Integer)
  582.   Static nCurrentButtonDown As Integer
  583.   DBPush1(nCurrentButtonDown).ForceDown = False
  584.   DBPush1(Index).ForceDown = True
  585.   nCurrentButtonDown = Index
  586.   Select Case nCurrentButtonDown
  587.     Case 0:
  588.       DBPush13.TransColor = &HFFFF&
  589.     Case 1:
  590.       DBPush13.TransColor = &HFFFFFF
  591.     Case 2:
  592.       DBPush13.TransColor = 0
  593.     Case 3:
  594.       DBPush13.TransColor = &HFF&
  595.   End Select
  596. End Sub
  597. Sub DBPush2_Click ()
  598.   DBPush2.ForceDown = Not DBPush2.ForceDown
  599.   DBPush3(0).Enabled = DBPush2.ForceDown
  600.   DBPush3(1).Enabled = DBPush2.ForceDown
  601.   DBPush3(2).Enabled = DBPush2.ForceDown
  602.   DBPush3(3).Enabled = DBPush2.ForceDown
  603.   DBPush4(0).Enabled = DBPush2.ForceDown
  604.   DBPush4(1).Enabled = DBPush2.ForceDown
  605.   DBPush13.Enabled = Not DBPush2.ForceDown
  606.   DBPush14.Enabled = Not DBPush2.ForceDown
  607.   DBPush15.Enabled = Not DBPush2.ForceDown
  608. End Sub
  609. Sub DBPush3_Click (Index As Integer)
  610.   Static nCBD As Integer
  611.   If Index = nCBD Then Exit Sub
  612.   DBPush3(Index).ForceDown = True
  613.   DBPush3(nCBD).ForceDown = False
  614.   nCBD = Index
  615.   Dim x As Integer
  616.   x = (DBPush13.AutoPictureDisabled - 1) And 1
  617.   Select Case Index
  618.     Case 0:  x = x + 0
  619.     Case 1:  x = x + 2
  620.     Case 2:  x = x + 4
  621.     Case 3:  x = x + 6
  622.   End Select
  623.   DBPush13.AutoPictureDisabled = x + 1
  624.   DBPush14.AutoPictureDisabled = x + 1
  625.   DBPush15.AutoPictureDisabled = x + 1
  626. End Sub
  627. Sub DBPush4_Click (Index As Integer)
  628.   If DBPush4(Index).ForceDown Then Exit Sub
  629.   DBPush4(0).ForceDown = Not DBPush4(0).ForceDown
  630.   DBPush4(1).ForceDown = Not DBPush4(1).ForceDown
  631.   Dim x As Integer
  632.   x = DBPush13.AutoPictureDisabled - 1
  633.   x = x Xor 1
  634.   DBPush13.AutoPictureDisabled = x + 1
  635.   DBPush14.AutoPictureDisabled = x + 1
  636.   DBPush15.AutoPictureDisabled = x + 1
  637. End Sub
  638.