home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / VBBruceLee1721093172004.psc / Form1.frm < prev    next >
Text File  |  2004-03-17  |  3KB  |  94 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VBBruceLee"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   2925
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3780
  13.    ScaleWidth      =   2925
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Start"
  17.       Height          =   375
  18.       Left            =   840
  19.       TabIndex        =   3
  20.       Top             =   3240
  21.       Width           =   1275
  22.    End
  23.    Begin VB.OptionButton Option1 
  24.       Caption         =   "Colour CPC 464 Mode"
  25.       Height          =   195
  26.       Index           =   1
  27.       Left            =   120
  28.       TabIndex        =   2
  29.       Top             =   1740
  30.       Value           =   -1  'True
  31.       Width           =   2775
  32.    End
  33.    Begin VB.OptionButton Option1 
  34.       Caption         =   "Green CPC 464 Mode"
  35.       Height          =   195
  36.       Index           =   0
  37.       Left            =   120
  38.       TabIndex        =   1
  39.       Top             =   420
  40.       Width           =   2775
  41.    End
  42.    Begin VB.Image Image1 
  43.       Height          =   915
  44.       Index           =   1
  45.       Left            =   420
  46.       Top             =   2040
  47.       Width           =   1515
  48.    End
  49.    Begin VB.Image Image1 
  50.       Height          =   915
  51.       Index           =   0
  52.       Left            =   420
  53.       Top             =   660
  54.       Width           =   1515
  55.    End
  56.    Begin VB.Label Label1 
  57.       Caption         =   "Choose Display mode"
  58.       BeginProperty Font 
  59.          Name            =   "MS Sans Serif"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   255
  68.       Left            =   60
  69.       TabIndex        =   0
  70.       Top             =   60
  71.       Width           =   2115
  72.    End
  73. End
  74. Attribute VB_Name = "Form1"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Option Explicit
  80.  
  81. Private Sub Command1_Click()
  82.     If Option1(0).Value = True Then
  83.         ColorMode = False
  84.     Else
  85.         ColorMode = True
  86.     End If
  87.     frmMain.Show
  88. End Sub
  89.  
  90. Private Sub Form_Load()
  91.     Image1(0).Picture = LoadPicture(App.Path & "\pants\logotiny.gif")
  92.     Image1(1).Picture = LoadPicture(App.Path & "\pants\logotinyc.gif")
  93. End Sub
  94.