home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / techno2a / techabou.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-05  |  5.5 KB  |  173 lines
  1. VERSION 5.00
  2. Begin VB.Form Credits 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "     Volume 2                                     October 1, 1999"
  6.    ClientHeight    =   4875
  7.    ClientLeft      =   4395
  8.    ClientTop       =   2640
  9.    ClientWidth     =   5595
  10.    Icon            =   "techabout.frx":0000
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4875
  15.    ScaleWidth      =   5595
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "About"
  18.       Height          =   855
  19.       Left            =   1080
  20.       TabIndex        =   7
  21.       Top             =   3960
  22.       Width           =   855
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Home"
  26.       Height          =   855
  27.       Left            =   120
  28.       TabIndex        =   2
  29.       Top             =   3960
  30.       Width           =   855
  31.    End
  32.    Begin VB.Shape Shape1 
  33.       Height          =   2775
  34.       Left            =   120
  35.       Top             =   1080
  36.       Width           =   5415
  37.    End
  38.    Begin VB.Label Label5 
  39.       Alignment       =   2  'Center
  40.       AutoSize        =   -1  'True
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "Mohamad ""Mo"" Albaurob for beer    and sponsors."
  43.       BeginProperty Font 
  44.          Name            =   "MS Sans Serif"
  45.          Size            =   13.5
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00000000&
  53.       Height          =   720
  54.       Index           =   1
  55.       Left            =   360
  56.       TabIndex        =   6
  57.       Top             =   2880
  58.       Width           =   5220
  59.       WordWrap        =   -1  'True
  60.    End
  61.    Begin VB.Label Label5 
  62.       Alignment       =   2  'Center
  63.       AutoSize        =   -1  'True
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Bjorn Larsson for the Cartoon idea."
  66.       BeginProperty Font 
  67.          Name            =   "MS Sans Serif"
  68.          Size            =   12
  69.          Charset         =   0
  70.          Weight          =   700
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   300
  76.       Index           =   0
  77.       Left            =   690
  78.       TabIndex        =   5
  79.       Top             =   2400
  80.       Width           =   4260
  81.    End
  82.    Begin VB.Label Label2 
  83.       Alignment       =   2  'Center
  84.       AutoSize        =   -1  'True
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "Charlie Vance and Eunice W                        for humor."
  87.       BeginProperty Font 
  88.          Name            =   "MS Sans Serif"
  89.          Size            =   12
  90.          Charset         =   0
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       ForeColor       =   &H00000000&
  97.       Height          =   600
  98.       Left            =   120
  99.       TabIndex        =   4
  100.       Top             =   1680
  101.       Width           =   5400
  102.       WordWrap        =   -1  'True
  103.    End
  104.    Begin VB.Label Label3 
  105.       Alignment       =   2  'Center
  106.       BackStyle       =   0  'Transparent
  107.       Caption         =   "This MonthsThanks go to: "
  108.       BeginProperty Font 
  109.          Name            =   "Arial Narrow"
  110.          Size            =   14.25
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   &H00FF0000&
  118.       Height          =   375
  119.       Left            =   1200
  120.       TabIndex        =   3
  121.       Top             =   1200
  122.       Width           =   3135
  123.    End
  124.    Begin VB.Label Label1 
  125.       BackStyle       =   0  'Transparent
  126.       Caption         =   "To Subscribe to Tech Notes E-Mail Scottw68@msn.com.  Every Month there will be a new edition. "
  127.       ForeColor       =   &H8000000E&
  128.       Height          =   735
  129.       Index           =   1
  130.       Left            =   2640
  131.       TabIndex        =   1
  132.       Top             =   4080
  133.       Width           =   2895
  134.    End
  135.    Begin VB.Label Label1 
  136.       Alignment       =   2  'Center
  137.       BackStyle       =   0  'Transparent
  138.       Caption         =   $"techabout.frx":164A
  139.       BeginProperty Font 
  140.          Name            =   "MS Sans Serif"
  141.          Size            =   9.75
  142.          Charset         =   0
  143.          Weight          =   700
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       ForeColor       =   &H00FFFFFF&
  149.       Height          =   975
  150.       Index           =   0
  151.       Left            =   0
  152.       TabIndex        =   0
  153.       Top             =   0
  154.       Width           =   5535
  155.    End
  156. Attribute VB_Name = "Credits"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Option Explicit
  162. Private Sub Command1_Click()
  163. FrmStart.Show
  164. Unload Me
  165. End Sub
  166. Private Sub Command2_Click()
  167. frmAbout.Show
  168. Unload Me
  169. End Sub
  170. Private Sub Label3_Click()
  171. Label3.ForeColor = QBColor(4)
  172. End Sub
  173.