home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / 3dvb / form1.frm < prev    next >
Text File  |  1994-01-19  |  2KB  |  69 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "CTL3DV2.DLL Test"
  6.    ClientHeight    =   2115
  7.    ClientLeft      =   2865
  8.    ClientTop       =   3255
  9.    ClientWidth     =   4065
  10.    Height          =   2580
  11.    Icon            =   FORM1.FRX:0000
  12.    Left            =   2775
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   2115
  15.    ScaleWidth      =   4065
  16.    Top             =   2880
  17.    Width           =   4245
  18.    Begin CommandButton Command2 
  19.       Cancel          =   -1  'True
  20.       Caption         =   "Close"
  21.       Height          =   375
  22.       Left            =   2280
  23.       TabIndex        =   2
  24.       Top             =   1440
  25.       Width           =   1215
  26.    End
  27.    Begin CommandButton Command1 
  28.       Caption         =   "&Message"
  29.       Default         =   -1  'True
  30.       Height          =   375
  31.       Left            =   600
  32.       TabIndex        =   1
  33.       Top             =   1440
  34.       Width           =   1215
  35.    End
  36.    Begin Label Label1 
  37.       AutoSize        =   -1  'True
  38.       BackStyle       =   0  'Transparent
  39.       Caption         =   "This lil' applet shows how to use the CTL3DV2.DLL in your VB apps.  For an example of what the DLL does for VB, click the Message button ..."
  40.       Height          =   855
  41.       Left            =   480
  42.       TabIndex        =   0
  43.       Top             =   360
  44.       Width           =   3255
  45.       WordWrap        =   -1  'True
  46.    End
  47. End
  48. Option Explicit
  49.  
  50. Sub Command1_Click ()
  51.   Dim msg$
  52.   msg = "Hi there! I'm a 3d message box!"
  53.   MsgBox msg, 48
  54. End Sub
  55.  
  56. Sub Command2_Click ()
  57.   Unload Me
  58. End Sub
  59.  
  60. Sub Form_Load ()
  61.   Move (screen.Height - Height) \ 2, (screen.Width - Width) \ 2
  62.   Load_CTL3D Me
  63. End Sub
  64.  
  65. Sub Form_Unload (Cancel As Integer)
  66.   Unload_CTL3D Me
  67. End Sub
  68.  
  69.