home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / techno2a / tech2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-24  |  3.1 KB  |  104 lines
  1. VERSION 5.00
  2. Begin VB.Form Frmstech 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Our New Sponsor"
  5.    ClientHeight    =   7770
  6.    ClientLeft      =   3480
  7.    ClientTop       =   1245
  8.    ClientWidth     =   8340
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "Tech2.frx":0000
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Moveable        =   0   'False
  16.    ScaleHeight     =   7770
  17.    ScaleWidth      =   8340
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CommandButton Command2 
  20.       Caption         =   "&Continue"
  21.       Height          =   375
  22.       Left            =   360
  23.       TabIndex        =   4
  24.       Top             =   6720
  25.       Width           =   1215
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       BackColor       =   &H00FFFFC0&
  29.       Caption         =   "&About Us "
  30.       Height          =   375
  31.       Left            =   6840
  32.       MaskColor       =   &H008080FF&
  33.       TabIndex        =   3
  34.       Top             =   6720
  35.       UseMaskColor    =   -1  'True
  36.       Width           =   1215
  37.    End
  38.    Begin VB.TextBox Text1 
  39.       BackColor       =   &H80000004&
  40.       BorderStyle     =   0  'None
  41.       ForeColor       =   &H00800000&
  42.       Height          =   5535
  43.       Left            =   240
  44.       Locked          =   -1  'True
  45.       MultiLine       =   -1  'True
  46.       TabIndex        =   1
  47.       Text            =   "Tech2.frx":0442
  48.       Top             =   960
  49.       Width           =   7935
  50.    End
  51.    Begin VB.Line Line1 
  52.       X1              =   0
  53.       X2              =   8400
  54.       Y1              =   840
  55.       Y2              =   840
  56.    End
  57.    Begin VB.Image Image1 
  58.       Height          =   480
  59.       Left            =   0
  60.       Picture         =   "Tech2.frx":1012
  61.       Top             =   240
  62.       Width           =   480
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   "To Subscribe to Tech Notes E-Mail Scottw68@msn.com.  Every Month there will be a new a new edition. "
  66.       Height          =   255
  67.       Left            =   240
  68.       TabIndex        =   0
  69.       Top             =   7440
  70.       Width           =   8055
  71.    End
  72.    Begin VB.Label Label2 
  73.       Alignment       =   2  'Center
  74.       Caption         =   "SineTech nuclear UPS systems"
  75.       BeginProperty Font 
  76.          Name            =   "Times New Roman"
  77.          Size            =   18
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   -1  'True
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   495
  85.       Left            =   600
  86.       TabIndex        =   2
  87.       Top             =   240
  88.       Width           =   7095
  89.    End
  90. Attribute VB_Name = "Frmstech"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. Private Sub Command1_Click()
  97. frmAbout.Show
  98. Unload Me
  99. End Sub
  100. Private Sub Command2_Click()
  101. Frmartezia.Show
  102. Unload Me
  103. End Sub
  104.