home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Games 1996 November / CD-ROM_Games_Disc19_November1996.iso / source / cdrg19.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-12  |  21.3 KB  |  651 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "CD-ROM Games 19"
  6.    ClientHeight    =   5790
  7.    ClientLeft      =   1410
  8.    ClientTop       =   720
  9.    ClientWidth     =   6690
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   6195
  13.    Icon            =   "CDRG19.frx":0000
  14.    Left            =   1350
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   5790
  19.    ScaleWidth      =   6690
  20.    Top             =   375
  21.    Width           =   6810
  22.    Begin VB.CommandButton Coldblooded_but 
  23.       Caption         =   "Cold Blooded"
  24.       BeginProperty Font 
  25.          name            =   "MS Sans Serif"
  26.          charset         =   1
  27.          weight          =   700
  28.          size            =   8.25
  29.          underline       =   0   'False
  30.          italic          =   0   'False
  31.          strikethrough   =   0   'False
  32.       EndProperty
  33.       Height          =   375
  34.       Left            =   4440
  35.       TabIndex        =   26
  36.       Top             =   4680
  37.       Width           =   2055
  38.    End
  39.    Begin VB.CommandButton Z_but 
  40.       Caption         =   "Z"
  41.       BeginProperty Font 
  42.          name            =   "MS Sans Serif"
  43.          charset         =   1
  44.          weight          =   700
  45.          size            =   12
  46.          underline       =   0   'False
  47.          italic          =   0   'False
  48.          strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   375
  51.       Left            =   120
  52.       TabIndex        =   25
  53.       Top             =   4680
  54.       Width           =   2055
  55.    End
  56.    Begin VB.CommandButton help_but 
  57.       Caption         =   "&Help"
  58.       BeginProperty Font 
  59.          name            =   "MS Sans Serif"
  60.          charset         =   1
  61.          weight          =   700
  62.          size            =   9.75
  63.          underline       =   0   'False
  64.          italic          =   -1  'True
  65.          strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   375
  68.       Left            =   4440
  69.       TabIndex        =   24
  70.       Top             =   5040
  71.       Width           =   2055
  72.    End
  73.    Begin VB.CommandButton computa_but 
  74.       Caption         =   "Computa Picker"
  75.       BeginProperty Font 
  76.          name            =   "MS Sans Serif"
  77.          charset         =   1
  78.          weight          =   700
  79.          size            =   8.25
  80.          underline       =   0   'False
  81.          italic          =   0   'False
  82.          strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   375
  85.       Left            =   4440
  86.       TabIndex        =   23
  87.       Top             =   4320
  88.       Width           =   2055
  89.    End
  90.    Begin VB.CommandButton Tomb_but 
  91.       Caption         =   "Tomb Raider"
  92.       BeginProperty Font 
  93.          name            =   "MS Sans Serif"
  94.          charset         =   1
  95.          weight          =   700
  96.          size            =   8.25
  97.          underline       =   0   'False
  98.          italic          =   0   'False
  99.          strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   375
  102.       Left            =   4440
  103.       TabIndex        =   22
  104.       Top             =   3960
  105.       Width           =   2055
  106.    End
  107.    Begin VB.CommandButton Rama_but 
  108.       Caption         =   "Rama"
  109.       BeginProperty Font 
  110.          name            =   "MS Sans Serif"
  111.          charset         =   1
  112.          weight          =   700
  113.          size            =   8.25
  114.          underline       =   0   'False
  115.          italic          =   0   'False
  116.          strikethrough   =   0   'False
  117.       EndProperty
  118.       Height          =   375
  119.       Left            =   120
  120.       TabIndex        =   21
  121.       Top             =   3240
  122.       Width           =   2055
  123.    End
  124.    Begin VB.CommandButton diablo_but 
  125.       Caption         =   "Diablo"
  126.       BeginProperty Font 
  127.          name            =   "MS Sans Serif"
  128.          charset         =   1
  129.          weight          =   700
  130.          size            =   8.25
  131.          underline       =   0   'False
  132.          italic          =   0   'False
  133.          strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   375
  136.       Left            =   4440
  137.       TabIndex        =   20
  138.       Top             =   2520
  139.       Width           =   2055
  140.    End
  141.    Begin VB.CommandButton Quake_but 
  142.       Caption         =   "Quake"
  143.       BeginProperty Font 
  144.          name            =   "MS Sans Serif"
  145.          charset         =   1
  146.          weight          =   700
  147.          size            =   8.25
  148.          underline       =   0   'False
  149.          italic          =   0   'False
  150.          strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   375
  153.       Left            =   4440
  154.       TabIndex        =   19
  155.       Top             =   2880
  156.       Width           =   2055
  157.    End
  158.    Begin VB.CommandButton Bioforge_but 
  159.       Caption         =   "Bioforge"
  160.       BeginProperty Font 
  161.          name            =   "MS Sans Serif"
  162.          charset         =   1
  163.          weight          =   700
  164.          size            =   8.25
  165.          underline       =   0   'False
  166.          italic          =   0   'False
  167.          strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   375
  170.       Left            =   4440
  171.       TabIndex        =   18
  172.       Top             =   3240
  173.       Width           =   2055
  174.    End
  175.    Begin VB.CommandButton chaos_but 
  176.       Caption         =   "Chaos Overlords"
  177.       BeginProperty Font 
  178.          name            =   "MS Sans Serif"
  179.          charset         =   1
  180.          weight          =   700
  181.          size            =   8.25
  182.          underline       =   0   'False
  183.          italic          =   0   'False
  184.          strikethrough   =   0   'False
  185.       EndProperty
  186.       Height          =   375
  187.       Left            =   2280
  188.       TabIndex        =   17
  189.       Top             =   2880
  190.       Width           =   2055
  191.    End
  192.    Begin VB.CommandButton Gender_but 
  193.       Caption         =   "Gender Wars"
  194.       BeginProperty Font 
  195.          name            =   "MS Sans Serif"
  196.          charset         =   1
  197.          weight          =   700
  198.          size            =   8.25
  199.          underline       =   0   'False
  200.          italic          =   0   'False
  201.          strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   375
  204.       Left            =   120
  205.       TabIndex        =   16
  206.       Top             =   2520
  207.       Width           =   2055
  208.    End
  209.    Begin VB.CommandButton indiana_but 
  210.       Caption         =   "Indiana Jones and his desktop Adventures"
  211.       BeginProperty Font 
  212.          name            =   "MS Sans Serif"
  213.          charset         =   1
  214.          weight          =   700
  215.          size            =   8.25
  216.          underline       =   0   'False
  217.          italic          =   0   'False
  218.          strikethrough   =   0   'False
  219.       EndProperty
  220.       Height          =   735
  221.       Left            =   2280
  222.       TabIndex        =   15
  223.       Top             =   4680
  224.       Width           =   2055
  225.    End
  226.    Begin VB.CommandButton cyberia_2_but 
  227.       Caption         =   "Cyberia 2"
  228.       BeginProperty Font 
  229.          name            =   "MS Sans Serif"
  230.          charset         =   1
  231.          weight          =   700
  232.          size            =   8.25
  233.          underline       =   0   'False
  234.          italic          =   0   'False
  235.          strikethrough   =   0   'False
  236.       EndProperty
  237.       Height          =   375
  238.       Left            =   2280
  239.       TabIndex        =   14
  240.       Top             =   3240
  241.       Width           =   2055
  242.    End
  243.    Begin VB.CommandButton DF_demo_but 
  244.       Caption         =   "Dark Forces"
  245.       BeginProperty Font 
  246.          name            =   "MS Sans Serif"
  247.          charset         =   1
  248.          weight          =   700
  249.          size            =   8.25
  250.          underline       =   0   'False
  251.          italic          =   0   'False
  252.          strikethrough   =   0   'False
  253.       EndProperty
  254.       Height          =   375
  255.       Left            =   2280
  256.       TabIndex        =   13
  257.       Top             =   3960
  258.       Width           =   2055
  259.    End
  260.    Begin VB.CommandButton creature_but 
  261.       Caption         =   "Creature Shock"
  262.       BeginProperty Font 
  263.          name            =   "MS Sans Serif"
  264.          charset         =   1
  265.          weight          =   700
  266.          size            =   8.25
  267.          underline       =   0   'False
  268.          italic          =   0   'False
  269.          strikethrough   =   0   'False
  270.       EndProperty
  271.       Height          =   375
  272.       Left            =   120
  273.       TabIndex        =   12
  274.       Top             =   3960
  275.       Width           =   2055
  276.    End
  277.    Begin VB.CommandButton aladdin_but 
  278.       Caption         =   "Aladdin"
  279.       BeginProperty Font 
  280.          name            =   "MS Sans Serif"
  281.          charset         =   1
  282.          weight          =   700
  283.          size            =   8.25
  284.          underline       =   0   'False
  285.          italic          =   0   'False
  286.          strikethrough   =   0   'False
  287.       EndProperty
  288.       Height          =   375
  289.       Left            =   2280
  290.       TabIndex        =   11
  291.       Top             =   3600
  292.       Width           =   2055
  293.    End
  294.    Begin VB.CommandButton rebel_but 
  295.       Caption         =   "Rebel Assault 2"
  296.       BeginProperty Font 
  297.          name            =   "MS Sans Serif"
  298.          charset         =   1
  299.          weight          =   700
  300.          size            =   8.25
  301.          underline       =   0   'False
  302.          italic          =   0   'False
  303.          strikethrough   =   0   'False
  304.       EndProperty
  305.       Height          =   375
  306.       Left            =   120
  307.       TabIndex        =   10
  308.       Top             =   3600
  309.       Width           =   2055
  310.    End
  311.    Begin VB.CommandButton daedalus_but 
  312.       Caption         =   "Daedalus Encounter"
  313.       BeginProperty Font 
  314.          name            =   "MS Sans Serif"
  315.          charset         =   1
  316.          weight          =   700
  317.          size            =   8.25
  318.          underline       =   0   'False
  319.          italic          =   0   'False
  320.          strikethrough   =   0   'False
  321.       EndProperty
  322.       Height          =   375
  323.       Left            =   2280
  324.       TabIndex        =   9
  325.       Top             =   4320
  326.       Width           =   2055
  327.    End
  328.    Begin VB.CommandButton Fade_but 
  329.       Caption         =   "Fade 2 Black"
  330.       BeginProperty Font 
  331.          name            =   "MS Sans Serif"
  332.          charset         =   1
  333.          weight          =   700
  334.          size            =   8.25
  335.          underline       =   0   'False
  336.          italic          =   0   'False
  337.          strikethrough   =   0   'False
  338.       EndProperty
  339.       Height          =   375
  340.       Left            =   120
  341.       TabIndex        =   8
  342.       Top             =   4320
  343.       Width           =   2055
  344.    End
  345.    Begin VB.CommandButton Gab_knight_but 
  346.       Caption         =   "Gabriel Knight 2"
  347.       BeginProperty Font 
  348.          name            =   "MS Sans Serif"
  349.          charset         =   1
  350.          weight          =   700
  351.          size            =   8.25
  352.          underline       =   0   'False
  353.          italic          =   0   'False
  354.          strikethrough   =   0   'False
  355.       EndProperty
  356.       Height          =   375
  357.       Left            =   4440
  358.       TabIndex        =   7
  359.       Top             =   3600
  360.       Width           =   2055
  361.    End
  362.    Begin VB.CommandButton Total_mania_but 
  363.       Caption         =   "Total Mania"
  364.       BeginProperty Font 
  365.          name            =   "MS Sans Serif"
  366.          charset         =   1
  367.          weight          =   700
  368.          size            =   8.25
  369.          underline       =   0   'False
  370.          italic          =   0   'False
  371.          strikethrough   =   0   'False
  372.       EndProperty
  373.       Height          =   375
  374.       Left            =   120
  375.       TabIndex        =   6
  376.       Top             =   2880
  377.       Width           =   2055
  378.    End
  379.    Begin VB.CommandButton time_gate_but 
  380.       Caption         =   "Time Gate"
  381.       BeginProperty Font 
  382.          name            =   "MS Sans Serif"
  383.          charset         =   1
  384.          weight          =   700
  385.          size            =   8.25
  386.          underline       =   0   'False
  387.          italic          =   0   'False
  388.          strikethrough   =   0   'False
  389.       EndProperty
  390.       Height          =   375
  391.       Left            =   2280
  392.       TabIndex        =   5
  393.       Top             =   2520
  394.       Width           =   2055
  395.    End
  396.    Begin VB.CommandButton exit_but 
  397.       Appearance      =   0  'Flat
  398.       BackColor       =   &H80000005&
  399.       Caption         =   "E&xit"
  400.       BeginProperty Font 
  401.          name            =   "MS Sans Serif"
  402.          charset         =   1
  403.          weight          =   700
  404.          size            =   9.75
  405.          underline       =   0   'False
  406.          italic          =   -1  'True
  407.          strikethrough   =   0   'False
  408.       EndProperty
  409.       Height          =   375
  410.       Left            =   120
  411.       TabIndex        =   4
  412.       Top             =   5040
  413.       Width           =   2055
  414.    End
  415.    Begin VB.CommandButton azrael_but 
  416.       Caption         =   "Azrael's Tear"
  417.       BeginProperty Font 
  418.          name            =   "MS Sans Serif"
  419.          charset         =   1
  420.          weight          =   700
  421.          size            =   8.25
  422.          underline       =   0   'False
  423.          italic          =   0   'False
  424.          strikethrough   =   0   'False
  425.       EndProperty
  426.       Height          =   375
  427.       Left            =   4440
  428.       TabIndex        =   3
  429.       Top             =   2160
  430.       Width           =   2055
  431.    End
  432.    Begin VB.CommandButton Time_com_but 
  433.       Caption         =   "Time Commando"
  434.       BeginProperty Font 
  435.          name            =   "MS Sans Serif"
  436.          charset         =   1
  437.          weight          =   700
  438.          size            =   8.25
  439.          underline       =   0   'False
  440.          italic          =   0   'False
  441.          strikethrough   =   0   'False
  442.       EndProperty
  443.       Height          =   375
  444.       Left            =   2280
  445.       TabIndex        =   2
  446.       Top             =   2160
  447.       Width           =   2055
  448.    End
  449.    Begin VB.CommandButton Perfect_ASS_BUT 
  450.       Caption         =   "The Perfect Assassin"
  451.       BeginProperty Font 
  452.          name            =   "MS Sans Serif"
  453.          charset         =   1
  454.          weight          =   700
  455.          size            =   8.25
  456.          underline       =   0   'False
  457.          italic          =   0   'False
  458.          strikethrough   =   0   'False
  459.       EndProperty
  460.       Height          =   375
  461.       Left            =   120
  462.       TabIndex        =   1
  463.       Top             =   2160
  464.       Width           =   2055
  465.    End
  466.    Begin VB.Image Image2 
  467.       Height          =   1935
  468.       Left            =   3240
  469.       Stretch         =   -1  'True
  470.       Top             =   120
  471.       Width           =   3255
  472.    End
  473.    Begin VB.Label Label1 
  474.       Alignment       =   2  'Center
  475.       Appearance      =   0  'Flat
  476.       BackColor       =   &H80000005&
  477.       Caption         =   "Issue 19"
  478.       BeginProperty Font 
  479.          name            =   "MS Sans Serif"
  480.          charset         =   1
  481.          weight          =   700
  482.          size            =   18
  483.          underline       =   0   'False
  484.          italic          =   -1  'True
  485.          strikethrough   =   0   'False
  486.       EndProperty
  487.       ForeColor       =   &H80000008&
  488.       Height          =   375
  489.       Left            =   120
  490.       TabIndex        =   0
  491.       Top             =   1320
  492.       Width           =   3015
  493.    End
  494.    Begin VB.Image Image1 
  495.       Height          =   1095
  496.       Left            =   120
  497.       Picture         =   "CDRG19.frx":0442
  498.       Stretch         =   -1  'True
  499.       Top             =   120
  500.       Width           =   3015
  501.    End
  502.    Begin VB.Image Image3 
  503.       Height          =   1335
  504.       Left            =   4320
  505.       Picture         =   "CDRG19.frx":395C
  506.       Stretch         =   -1  'True
  507.       Top             =   360
  508.       Width           =   1095
  509.    End
  510. Attribute VB_Name = "Form1"
  511. Attribute VB_Creatable = False
  512. Attribute VB_Exposed = False
  513. Private Sub aladdin_but_Click()
  514. Shell ("\batches\aladdin.bat"), 2
  515. End Sub
  516. Private Sub aladdin_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  517. Image2.Picture = LoadPicture("\source\perspec2.bmp")
  518. End Sub
  519. Private Sub azrael_but_Click()
  520. Shell ("\azreal\az2\setup.exe"), 3
  521. End Sub
  522. Private Sub Bioforge_but_Click()
  523. Shell ("\bioforge\install.exe"), 3
  524. End Sub
  525. Private Sub Command1_Click()
  526. End Sub
  527. Private Sub azrael_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  528. Image2.Picture = LoadPicture("\source\product.bmp")
  529. End Sub
  530. Private Sub Command5_Click()
  531. End Sub
  532. Private Sub Command7_Click()
  533. End Sub
  534. Private Sub Command9_Click()
  535. End Sub
  536. Private Sub Command3_Click()
  537. End Sub
  538. Private Sub Bioforge_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  539. Image2.Picture = LoadPicture("\source\perspec4.bmp")
  540. End Sub
  541. Private Sub chaos_but_Click()
  542. Shell ("\chaos\setup.exe"), 3
  543. End Sub
  544. Private Sub chaos_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  545. Image2.Picture = LoadPicture("\source\chaos.bmp")
  546. End Sub
  547. Private Sub Coldblooded_but_Click()
  548. Shell ("\cblooded\go.bat"), 3
  549. End Sub
  550. Private Sub Coldblooded_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  551. Image2.Picture = LoadPicture("\source\cblood.bmp")
  552. End Sub
  553. Private Sub computa_but_Click()
  554. Shell ("\lotry400.exe"), 3
  555. End Sub
  556. Private Sub computa_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  557. Image2.Picture = LoadPicture("\source\perspec3.bmp")
  558. End Sub
  559. Private Sub creature_but_Click()
  560. Shell ("\shock.bat"), 3
  561. End Sub
  562. Private Sub creature_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  563. Image2.Picture = LoadPicture("\source\crshock.bmp")
  564. End Sub
  565. Private Sub cyberia_2_but_Click()
  566. Shell ("\batches\cyberia2.bat"), 3
  567. End Sub
  568. Private Sub cyberia_2_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  569. Image2.Picture = LoadPicture("\source\perspec.bmp")
  570. End Sub
  571. Private Sub daedalus_but_Click()
  572. Shell ("\batches\daedalus.bat"), 3
  573. End Sub
  574. Private Sub daedalus_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  575. Image2.Picture = LoadPicture("\source\perspec4.bmp")
  576. End Sub
  577. Private Sub DF_demo_but_Click()
  578. Shell ("\batches\dfdemo.bat"), 3
  579. End Sub
  580. Private Sub diablo_but_Click()
  581. Shell ("\diablo.exe"), 3
  582. End Sub
  583. Private Sub exit_but_Click()
  584. End Sub
  585. Private Sub Fade_but_Click()
  586. Shell ("\batches\f2b.bat"), 3
  587. End Sub
  588. Private Sub Fade_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  589. Image2.Picture = LoadPicture("\source\perspec3.bmp")
  590. End Sub
  591. Private Sub Gab_knight_but_Click()
  592. Shell ("\batches\gabriel.bat"), 3
  593. End Sub
  594. Private Sub Gab_knight_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  595. Image2.Picture = LoadPicture("\source\perspec2.bmp")
  596. End Sub
  597. Private Sub Gender_but_Click()
  598. Shell ("\gender\inst.bat"), 3
  599. End Sub
  600. Private Sub help_but_Click()
  601. Shell ("\helpme.bat"), 3
  602. End Sub
  603. Private Sub indiana_but_Click()
  604. Shell ("\indy\indy.bat"), 3
  605. End Sub
  606. Private Sub Perfect_ASS_BUT_Click()
  607. Shell ("\perfecta\runme.bat"), 3
  608. End Sub
  609. Private Sub Perfect_ASS_BUT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  610. Image2.Picture = LoadPicture("\source\perfect.bmp")
  611. End Sub
  612. Private Sub Quake_but_Click()
  613. Shell ("\quake\install.bat"), 3
  614. End Sub
  615. Private Sub Rama_but_Click()
  616. Shell ("\rama\go.bat"), 3
  617. End Sub
  618. Private Sub rebel_but_Click()
  619. Shell ("\batches\rebel2.bat"), 3
  620. End Sub
  621. Private Sub rebel_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  622. Image2.Picture = LoadPicture("\source\rebel2.bmp ")
  623. End Sub
  624. Private Sub Time_com_but_Click()
  625. Shell ("\timeco\install.bat"), 3
  626. End Sub
  627. Private Sub Time_com_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  628. Image2.Picture = LoadPicture("\source\time.bmp")
  629. End Sub
  630. Private Sub time_gate_but_Click()
  631. Shell ("\batches\timegate.bat"), 3
  632. End Sub
  633. Private Sub time_gate_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  634. Image2.Picture = LoadPicture("\source\perspec5.bmp")
  635. End Sub
  636. Private Sub Tomb_but_Click()
  637. Shell ("\batches\tomb.bat"), 3
  638. End Sub
  639. Private Sub Tomb_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  640. Image2.Picture = LoadPicture("\source\tomb2.bmp")
  641. End Sub
  642. Private Sub Total_mania_but_Click()
  643. Shell ("\total\go.bat"), 3
  644. End Sub
  645. Private Sub Total_mania_but_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  646. Image2.Picture = LoadPicture("\source\perspec.bmp")
  647. End Sub
  648. Private Sub Z_but_Click()
  649. Shell ("\z\z.bat"), 3
  650. End Sub
  651.