home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3dvb / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  1.8 KB  |  63 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          =   2520
  11.    Icon            =   FORM1.FRX:0000
  12.    Left            =   2805
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   2115
  15.    ScaleWidth      =   4065
  16.    Top             =   2910
  17.    Width           =   4185
  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. Option Explicit
  48. Sub Command1_Click ()
  49.   Dim msg$
  50.   msg = "Hi there! I'm a 3d message box!"
  51.   MsgBox msg, 48
  52. End Sub
  53. Sub Command2_Click ()
  54.   Unload Me
  55. End Sub
  56. Sub Form_Load ()
  57.   Move (screen.Height - Height) \ 2, (screen.Width - Width) \ 2
  58.   Load_CTL3D Me
  59. End Sub
  60. Sub Form_Unload (Cancel As Integer)
  61.   Unload_CTL3D Me
  62. End Sub
  63.