home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD80447232000.psc / PSSC1 / frmOpt4Final.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-13  |  1.7 KB  |  59 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpt4Final 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   11745
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   9000
  12.    ScaleWidth      =   11745
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.Label Label1 
  17.       Alignment       =   2  'Center
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "TEXT WILL GO HERE"
  20.       BeginProperty Font 
  21.          Name            =   "Arial"
  22.          Size            =   48
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H00FFFFFF&
  30.       Height          =   3735
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   3600
  34.       Width           =   11775
  35.    End
  36. Attribute VB_Name = "frmOpt4Final"
  37. Attribute VB_GlobalNameSpace = False
  38. Attribute VB_Creatable = False
  39. Attribute VB_PredeclaredId = True
  40. Attribute VB_Exposed = False
  41. Private Sub Form_Click()
  42. Unload Me
  43. frmST.Show
  44. ShowCursor (bShow = False)
  45. End Sub
  46. Private Sub Form_Load()
  47. 'loads the specified presets:
  48. Me.BackColor = frmST.CommonDialog2.Color
  49. Label1.ForeColor = frmST.CommonDialog1.Color
  50. Label1.Caption = frmST.Text1.Text
  51. Label1.FontSize = frmST.Text2.Text
  52. ShowCursor (bShow = True)
  53. End Sub
  54. Private Sub Label1_Click()
  55. Unload Me
  56. frmST.Show
  57. ShowCursor (bShow = False)
  58. End Sub
  59.