Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1243.psc / Source / TrainSmallFrm.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-10-09 | 19.2 KB | 545 lines

VERSION 5.00 Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX" Begin VB.Form TrainFrm BorderStyle = 0 'None Caption = "QuadBallTraining" ClientHeight = 9930 ClientLeft = 0 ClientTop = 0 ClientWidth = 12855 ClipControls = 0 'False ControlBox = 0 'False BeginProperty Font Name = "Times New Roman" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "TrainSmallFrm.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Moveable = 0 'False ScaleHeight = 9930 ScaleWidth = 12855 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen WindowState = 2 'Maximized Begin VB.PictureBox StatBox Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C000C0& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 2805 Left = 0 ScaleHeight = 2805 ScaleWidth = 3570 TabIndex = 24 Top = 0 Visible = 0 'False Width = 3570 Begin VB.Label OK AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Continue" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 825 Left = 7605 TabIndex = 34 Tag = "No" Top = 7380 Width = 2805 End Begin VB.Label HighTime AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "SCORE" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4185 TabIndex = 40 Top = 4230 Width = 2490 End Begin VB.Label AllTime AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "SCORE" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4185 TabIndex = 39 Top = 3015 Width = 2490 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Highest Time" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 645 Left = 315 TabIndex = 38 Top = 4320 Width = 3480 End Begin VB.Label Label4 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Total Time" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 510 Left = 945 TabIndex = 37 Top = 3105 Width = 2850 End Begin VB.Label Label9 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Game Statistics" BeginProperty Font Name = "Times New Roman" Size = 48 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFF00& Height = 1095 Left = 900 TabIndex = 31 Top = 270 Width = 5985 End Begin VB.Label TotalBounces AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TotalBounces" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4230 TabIndex = 30 Top = 6615 Width = 4185 End Begin VB.Label TopSpeed AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TopSpeed" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4185 TabIndex = 29 Top = 5400 Width = 3090 End Begin VB.Label TotalScore AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "SCORE" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4185 TabIndex = 28 Top = 1755 Width = 2490 End Begin VB.Label Label8 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Total Bounces" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 645 Left = 135 TabIndex = 27 Top = 6705 Width = 3660 End Begin VB.Label Label7 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Top Speed" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 555 Left = -90 TabIndex = 26 Top = 5535 Width = 3885 End Begin VB.Label Label5 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Total Score" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 510 Left = 900 TabIndex = 25 Top = 1890 Width = 2895 End End Begin VB.PictureBox TitleScreen Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H0080C0FF& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 9045 Left = 0 ScaleHeight = 9045 ScaleWidth = 8265 TabIndex = 6 Top = 0 Width = 8265 Begin VB.Label Story Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Play Story Mode" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 630 Left = 6615 TabIndex = 44 Top = 5805 Width = 3675 End Begin VB.Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Quad-Ball Training Mode" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 1005 Left = 135 TabIndex = 36 Top = 7875 Width = 11805 End Begin VB.Label Quit Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Quit Game" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 6930 TabIndex = 8 Top = 6435 Width = 2955 End Begin VB.Label Start Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Start Game" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 6795 TabIndex = 7 Top = 5220 Width = 3225 End End Begin VB.PictureBox Info Appearance = 0 'Flat BackColor = &H0000C0C0& ForeColor = &H80000008& Height = 9045 Left = 10320 ScaleHeight = 9015 ScaleWidth = 1650 TabIndex = 10 Top = 0 Width = 1680 Begin VB.Timer TimeKeeper Enabled = 0 'False Interval = 900 Left = 1260 Top = 3690 End Begin VB.Label Reset Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Reset" BeginProperty Font Name = "Times New Roman" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 435 Left = 360 TabIndex = 35 Tag = "no" Top = 7110 Width = 1005 End Begin VB.Label HighTimeName Alignment = 2 'Center BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 600 Left = 90 TabIndex = 43 Top = 6300 Width = 1455 End Begin VB.Label HighestTime Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "00:00:00" BeginProperty Font Name = "Times New Roman" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 465 Left = 90 TabIndex = 42 Top = 5895 Width = 1455 End Begin VB.Label Label10 Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Longest Time Total" BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 645 Left = 90 TabIndex = 41 Top = 5310 Width = 1455 WordWrap = -1 'True End Begin VB.Shape Shape6 BorderColor = &H000080FF& Height = 1680 Left = 90 Top = 5265 Width = 1455 End Begin VB.Image InfoArea Height = 9075 Left = -45 StretcdA = 1455 m Sti Le 7 O le "Times Area Height = 9075 Left = -45 StretcdA = 1455 m Sti Le 7 O le "Times Area Height = 9075 Left = -45 Stretc inProperty Font Name = "Times New e Le 7 O lme AutoSize = 455 End Begin VB.Imaf-d2e = 0 'Transparent Caption Size = 4110080FF& Hei4 Cap e Le 7 O lme AutoSize = 455 End Begin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin VB.Imaf-d2e = 0 'Transegin V=es 0 'Tranou0 in e ( 7 O lme AutoSize = 455 End Begin VB.Imaf-d2e = 0 'Transparent Caption Size = 4110080FF& Hei4 Cap e Le 7 O lme AutoSize = 455 Imaf