home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3d_vb / form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  2.1 KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form3"
  6.    ClientHeight    =   2565
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   4110
  10.    Height          =   2970
  11.    Icon            =   FORM3.FRX:0000
  12.    Left            =   1035
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form3"
  15.    ScaleHeight     =   2565
  16.    ScaleWidth      =   4110
  17.    Top             =   1140
  18.    Width           =   4230
  19.    Begin Timer Timer1 
  20.       Enabled         =   0   'False
  21.       Interval        =   1000
  22.       Left            =   240
  23.       Top             =   3120
  24.    End
  25.    Begin PictureBox Picture1 
  26.       BackColor       =   &H00C0C0C0&
  27.       BorderStyle     =   0  'None
  28.       Height          =   975
  29.       Left            =   480
  30.       ScaleHeight     =   975
  31.       ScaleWidth      =   2895
  32.       TabIndex        =   0
  33.       Top             =   240
  34.       Width           =   2895
  35.    End
  36. Sub Form_Load ()
  37.     Screen.MousePointer = 11
  38.     Form3.Left = (Screen.Width - Form3.Width) / 2
  39.     Form3.Top = (Screen.Height - Form3.Height) / 2
  40. Timer1.Enabled = True
  41. End Sub
  42. Sub Form_Paint ()
  43.     Picture1.Left = (Form3.ScaleWidth - Picture1.Width) / 2
  44.     Picture1.FontSize = 18
  45.     FormBorder Form3
  46.     ShadowPicFrame Picture1, 1
  47.     Text$ = "3-D4VB"
  48.     xPos% = (Picture1.ScaleWidth - Picture1.TextWidth(Text$)) / 2
  49.     yPos% = 240
  50.     RaisedPicText Picture1, Text$, xPos%, yPos%, BLUE
  51.     Form3.FontName = "Tms Rmn"
  52.     LabelBoxOnFrm Picture1, Form3, "A 3-D Subroutine Library", 2, 2, BLUE, ETCHED
  53.     Text$ = "for Microsoft Visual Basic"
  54.     xPos% = (Form3.ScaleWidth - TextWidth(Text$)) / 2
  55.     yPos% = Form3.ScaleHeight - ((Form3.TextHeight("I") * 5) + 60)
  56.     EtchedFrmText Form3, Text$, xPos%, yPos%, BLUE
  57.     Text$ = Chr$(169) + " Copyright, 1992 - LAN Services"
  58.     xPos% = (Form3.ScaleWidth - TextWidth(Text$)) / 2
  59.     yPos% = Form3.ScaleHeight - ((Form3.TextHeight("I") * 2) + 60)
  60.     EtchedFrmText Form3, Text$, xPos%, yPos%, BLUE
  61. End Sub
  62. Sub Timer1_Timer ()
  63.   Timer1.Enabled = False
  64.   Load Form1
  65. End Sub
  66.