Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/startu1a/form1.frm

Visual Basic Form | 1999-08-31 | 10.1 KB | 370 lines

VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Startup Effects"
   ClientHeight    =   3375
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4455
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3375
   ScaleWidth      =   4455
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1
      Caption         =   "Preview"
      Height          =   255
      Left            =   120
      TabIndex        =   30
      Top             =   3000
      Width           =   4215
   End
   Begin VB.Frame Frame2
      Caption         =   "Shutdown"
      Height          =   1335
      Left            =   120
      TabIndex        =   15
      Top             =   1560
      Width           =   4215
      Begin VB.OptionButton SelD7
         Caption         =   "Bounce Left"
         Height          =   255
         Left            =   2400
         TabIndex        =   29
         Top             =   480
         Width           =   1215
      End
      Begin VB.OptionButton SelD1
         Caption         =   "Zoom In"
         Height          =   255
         Left            =   120
         TabIndex        =   28
         Top             =   240
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.OptionButton SelD2
         Caption         =   "Zoom Out"
         Height          =   255
         Left            =   1080
         TabIndex        =   27
         Top             =   240
         Width           =   1095
      End
      Begin VB.OptionButton SelD3
         Caption         =   "Slide Left"
         Height          =   255
         Left            =   2160
         TabIndex        =   26
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton SelD5
         Caption         =   "Slide Right"
         Height          =   255
         Left            =   120
         TabIndex        =   25
         Top             =   480
         Width           =   1095
      End
      Begin VB.OptionButton SelD4
         Caption         =   "Slide Up"
         Height          =   255
         Left            =   3120
         TabIndex        =   24
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton SelD6
         Caption         =   "Slide Down"
         Height          =   255
         Left            =   1200
         TabIndex        =   23
         Top             =   480
         Width           =   1215
      End
      Begin VB.OptionButton SelD8
         Caption         =   "Bounce Right"
         Height          =   255
         Left            =   120
         TabIndex        =   22
         Top             =   720
         Width           =   1335
      End
      Begin VB.OptionButton SelD9
         Caption         =   "Up/Down"
         Height          =   255
         Left            =   1440
         TabIndex        =   21
         Top             =   720
         Width           =   1095
      End
      Begin VB.OptionButton SelD10
         Caption         =   "Left/Right"
         Height          =   255
         Left            =   2520
         TabIndex        =   20
         Top             =   720
         Width           =   1095
      End
      Begin VB.OptionButton SelD11
         Caption         =   "Left-Up"
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   960
         Width           =   855
      End
      Begin VB.OptionButton SelD12
         Caption         =   "Left-Down"
         Height          =   255
         Left            =   960
         TabIndex        =   18
         Top             =   960
         Width           =   1095
      End
      Begin VB.OptionButton SelD13
         Caption         =   "Right-Up"
         Height          =   255
         Left            =   2040
         TabIndex        =   17
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton SelD14
         Caption         =   "Right-Down"
         Height          =   255
         Left            =   3000
         TabIndex        =   16
         Top             =   960
         Width           =   1190
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Startup"
      Height          =   1335
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4215
      Begin VB.OptionButton SelU14
         Caption         =   "Right-Down"
         Height          =   255
         Left            =   3000
         TabIndex        =   14
         Top             =   960
         Width           =   1190
      End
      Begin VB.OptionButton SelU13
         Caption         =   "Right-Up"
         Height          =   255
         Left            =   2040
         TabIndex        =   13
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton SelU12
         Caption         =   "Left-Down"
         Height          =   255
         Left            =   960
         TabIndex        =   12
         Top             =   960
         Width           =   1095
      End
      Begin VB.OptionButton SelU11
         Caption         =   "Left-Up"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   960
         Width           =   855
      End
      Begin VB.OptionButton SelU10
         Caption         =   "Left/Right"
         Height          =   255
         Left            =   2520
         TabIndex        =   10
         Top             =   720
         Width           =   1095
      End
      Begin VB.OptionButton SelU9
         Caption         =   "Up/Down"
         Height          =   255
         Left            =   1440
         TabIndex        =   9
         Top             =   720
         Width           =   1095
      End
      Begin VB.OptionButton SelU8
         Caption         =   "Bounce Right"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   720
         Width           =   1335
      End
      Begin VB.OptionButton SelU6
         Caption         =   "Slide Down"
         Height          =   255
         Left            =   1200
         TabIndex        =   7
         Top             =   480
         Width           =   1215
      End
      Begin VB.OptionButton SelU4
         Caption         =   "Slide Up"
         Height          =   255
         Left            =   3120
         TabIndex        =   6
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton SelU5
         Caption         =   "Slide Right"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   480
         Width           =   1095
      End
      Begin VB.OptionButton SelU3
         Caption         =   "Slide Left"
         Height          =   255
         Left            =   2160
         TabIndex        =   4
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton SelU2
         Caption         =   "Zoom Out"
         Height          =   255
         Left            =   1080
         TabIndex        =   3
         Top             =   240
         Width           =   1095
      End
      Begin VB.OptionButton SelU1
         Caption         =   "Zoom In"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.OptionButton SelU7
         Caption         =   "Bounce Left"
         Height          =   255
         Left            =   2400
         TabIndex        =   1
         Top             =   480
         Width           =   1215
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub EndPreview()
Form2.Timer2.Enabled = False
Form2.Timer1.Enabled = False
Unload Form2
End Sub
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Form_Load()
Startup = 1
Shutdown = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
Unload Me
End Sub
Private Sub SelD1_Click()
Shutdown = 1
End Sub
Private Sub SelD10_Click()
Shutdown = 10
End Sub
Private Sub SelD11_Click()
Shutdown = 11
End Sub
Private Sub SelD12_Click()
Shutdown = 12
End Sub
Private Sub SelD13_Click()
Shutdown = 13
End Sub
Private Sub SelD14_Click()
Shutdown = 14
End Sub
Private Sub SelD2_Click()
Shutdown = 2
End Sub
Private Sub SelD3_Click()
Shutdown = 3
End Sub
Private Sub SelD4_Click()
Shutdown = 4
End Sub
Private Sub SelD5_Click()
Shutdown = 5
End Sub
Private Sub SelD6_Click()
Shutdown = 6
End Sub
Private Sub SelD7_Click()
Shutdown = 7
End Sub
Private Sub SelD8_Click()
Shutdown = 8
End Sub
Private Sub SelD9_Click()
Shutdown = 9
End Sub
Private Sub SelU1_Click()
Startup = 1
End Sub
Private Sub SelU10_Click()
Startup = 10
End Sub
Private Sub SelU11_Click()
Startup = 11
End Sub
Private Sub SelU12_Click()
Startup = 12
End Sub
Private Sub SelU13_Click()
Startup = 13
End Sub
Private Sub SelU14_Click()
Startup = 14
End Sub
Private Sub SelU2_Click()
Startup = 2
End Sub
Private Sub SelU3_Click()
Startup = 3
End Sub
Private Sub SelU4_Click()
Startup = 4
End Sub
Private Sub SelU5_Click()
Startup = 5
End Sub
Private Sub SelU6_Click()
Startup = 6
End Sub
Private Sub SelU7_Click()
Startup = 7
End Sub
Private Sub SelU8_Click()
Startup = 8
End Sub
Private Sub SelU9_Click()
Startup = 9
End Sub