home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / design / 3ddemo / form2.frm < prev    next >
Text File  |  1995-02-26  |  3KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "CTL3D Demo"
  6.    ClientHeight    =   3084
  7.    ClientLeft      =   84
  8.    ClientTop       =   612
  9.    ClientWidth     =   6420
  10.    Height          =   3504
  11.    Left            =   36
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   3084
  15.    ScaleWidth      =   6420
  16.    Top             =   240
  17.    Width           =   6516
  18.    Begin CommandButton Command3 
  19.       Caption         =   "Exit"
  20.       Height          =   372
  21.       Left            =   4248
  22.       TabIndex        =   2
  23.       Top             =   2592
  24.       Width           =   1452
  25.    End
  26.    Begin CommandButton Command2 
  27.       Caption         =   "3D Msg Box"
  28.       Height          =   372
  29.       Left            =   2448
  30.       TabIndex        =   1
  31.       Top             =   2592
  32.       Width           =   1596
  33.    End
  34.    Begin CommandButton Command1 
  35.       Caption         =   "3D Dialog"
  36.       Height          =   372
  37.       Left            =   792
  38.       TabIndex        =   0
  39.       Top             =   2592
  40.       Width           =   1452
  41.    End
  42.    Begin Label Label3 
  43.       BackColor       =   &H00C0C0C0&
  44.       Caption         =   "I ASSUME NO RESPONSIBILITY FOR LOSS OR DAMAGE CAUSED BY THIS DEMO AND MAKE NO WARRANTIES EITHER WRITTEN OR IMPLIED AS TO ITS USE OR SUPPORT. "
  45.       Height          =   660
  46.       Left            =   144
  47.       TabIndex        =   5
  48.       Top             =   1728
  49.       Width           =   6132
  50.    End
  51.    Begin Label Label2 
  52.       Alignment       =   2  'Center
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Written By:  M. John Rodriguez"
  55.       Height          =   228
  56.       Left            =   144
  57.       TabIndex        =   4
  58.       Top             =   1368
  59.       Width           =   6060
  60.    End
  61.    Begin Label Label1 
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "This is a demonstration of using CTL3D with your Visual Basic Application.  The file CTL3D.BAS has been tested and modularized to allow you to just add this file right into your application and make 3D Dialogs and Forms happen right away!  Very simple and easy to use.  See README.TXT file to explain the procedures and functions."
  64.       Height          =   1164
  65.       Left            =   144
  66.       TabIndex        =   3
  67.       Top             =   216
  68.       Width           =   6132
  69.    End
  70. End
  71. Option Explicit
  72.  
  73. Sub Command1_Click ()
  74.  
  75. Form1.Show 1
  76.  
  77.  
  78. End Sub
  79.  
  80. Sub Command2_Click ()
  81.  
  82. MsgBox "This is a CTL3D Style MsgBox."
  83.  
  84.  
  85. End Sub
  86.  
  87. Sub Command3_Click ()
  88.  
  89. Unload Me
  90.  
  91. ExitProgram
  92.  
  93.  
  94. End Sub
  95.  
  96. Sub Form_Load ()
  97.  
  98. CenterForm Me
  99.  
  100.  
  101. End Sub
  102.  
  103.