home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / vbmax3d / 3dabout.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-11-20  |  5.9 KB  |  188 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   4005
  5.    ClientLeft      =   1740
  6.    ClientTop       =   2085
  7.    ClientWidth     =   7440
  8.    ControlBox      =   0   'False
  9.    Height          =   4410
  10.    Icon            =   "3DAbout.frx":0000
  11.    Left            =   1680
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Picture         =   "3DAbout.frx":000C
  17.    ScaleHeight     =   4005
  18.    ScaleWidth      =   7440
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   1740
  21.    Width           =   7560
  22.    Begin VB.Shape Shape1 
  23.       Height          =   795
  24.       Left            =   660
  25.       Top             =   2700
  26.       Visible         =   0   'False
  27.       Width           =   6090
  28.    End
  29.    Begin VB.Label lblClose 
  30.       Appearance      =   0  'Flat
  31.       BackColor       =   &H80000005&
  32.       BackStyle       =   0  'Transparent
  33.       ForeColor       =   &H00000000&
  34.       Height          =   435
  35.       Left            =   6180
  36.       TabIndex        =   4
  37.       Top             =   1380
  38.       Width           =   795
  39.    End
  40.    Begin VB.Label lblName 
  41.       AutoSize        =   -1  'True
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "Mike Stanley"
  44.       BeginProperty Font 
  45.          name            =   "MS Sans Serif"
  46.          charset         =   0
  47.          weight          =   700
  48.          size            =   9.75
  49.          underline       =   0   'False
  50.          italic          =   0   'False
  51.          strikethrough   =   0   'False
  52.       EndProperty
  53.       ForeColor       =   &H00000000&
  54.       Height          =   240
  55.       Left            =   2880
  56.       TabIndex        =   3
  57.       Top             =   1380
  58.       Width           =   1350
  59.    End
  60.    Begin VB.Label lblEMail 
  61.       AutoSize        =   -1  'True
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "E-Mail:  74632.2227@compuserve.com"
  64.       BeginProperty Font 
  65.          name            =   "MS Sans Serif"
  66.          charset         =   0
  67.          weight          =   700
  68.          size            =   9.75
  69.          underline       =   0   'False
  70.          italic          =   0   'False
  71.          strikethrough   =   0   'False
  72.       EndProperty
  73.       ForeColor       =   &H00000000&
  74.       Height          =   240
  75.       Left            =   1680
  76.       TabIndex        =   2
  77.       Top             =   1695
  78.       Width           =   3990
  79.    End
  80.    Begin VB.Label lblVBMax 
  81.       AutoSize        =   -1  'True
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Visual Basic to the Max"
  84.       BeginProperty Font 
  85.          name            =   "Times New Roman"
  86.          charset         =   0
  87.          weight          =   700
  88.          size            =   27.75
  89.          underline       =   0   'False
  90.          italic          =   -1  'True
  91.          strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   &H00C0C000&
  94.       Height          =   645
  95.       Left            =   900
  96.       TabIndex        =   1
  97.       Top             =   2760
  98.       Width           =   5475
  99.    End
  100.    Begin VB.Label lblTitle 
  101.       AutoSize        =   -1  'True
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "VBMax 3D Effects"
  104.       BeginProperty Font 
  105.          name            =   "Times New Roman"
  106.          charset         =   0
  107.          weight          =   700
  108.          size            =   36
  109.          underline       =   0   'False
  110.          italic          =   -1  'True
  111.          strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   &H00800000&
  114.       Height          =   810
  115.       Left            =   840
  116.       TabIndex        =   0
  117.       Top             =   480
  118.       Width           =   5625
  119.    End
  120.    Begin VB.Label lblCloseCaption 
  121.       Appearance      =   0  'Flat
  122.       AutoSize        =   -1  'True
  123.       BackColor       =   &H80000005&
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Close"
  126.       BeginProperty Font 
  127.          name            =   "MS Sans Serif"
  128.          charset         =   0
  129.          weight          =   700
  130.          size            =   8.25
  131.          underline       =   0   'False
  132.          italic          =   0   'False
  133.          strikethrough   =   0   'False
  134.       EndProperty
  135.       ForeColor       =   &H000000FF&
  136.       Height          =   195
  137.       Left            =   6330
  138.       TabIndex        =   5
  139.       Top             =   1485
  140.       Width           =   480
  141.    End
  142. Attribute VB_Name = "frmAbout"
  143. Attribute VB_Creatable = False
  144. Attribute VB_Exposed = False
  145. Option Explicit
  146. Dim mo3D As New cls3D
  147. Private Sub Form_Load()
  148.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  149.     With mo3D
  150.         .Style = gnFLOATING
  151.             .Caption lblVBMax, gnUSE_CONTROL_FONT
  152.             
  153.         .Style = gnRAISED
  154.             .Caption lblTitle, gnUSE_CONTROL_FONT
  155.         
  156.         .Style = gnRAISED
  157.             .Caption lblName, gnUSE_CONTROL_FONT
  158.             .Caption lblEMail, gnUSE_CONTROL_FONT
  159.             .Caption lblCloseCaption, gnUSE_CONTROL_FONT
  160.             .Depth = 2
  161.             .Border lblClose
  162.             .Border Shape1
  163.           
  164.         .Style = gnRECESSED
  165.             .Width = 20
  166.             .FormBorder Me
  167.     End With
  168. End Sub
  169. Private Sub lblClose_Click()
  170.     Unload Me
  171.     Set mo3D = Nothing
  172.     Set frmAbout = Nothing
  173. End Sub
  174. Private Sub lblClose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  175.     With mo3D
  176.         .Depth = 2
  177.         .Width = 0
  178.         .Style = gnRECESSED
  179.         .Border lblClose
  180.     End With
  181. End Sub
  182. Private Sub lblClose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  183.     With mo3D
  184.         .Style = gnRAISED
  185.         .Border lblClose
  186.     End With
  187. End Sub
  188.