Liren Large Software Subsidy 7

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

/ Liren Large Software Subsidy 7 / 07.iso / c / c480 / 21.ddi / REDTOP.FR_ / REDTOP.bin

(.txt)

Wrap

Visual Basic Form | 1993-02-14 | 10.7 KB | 354 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00C0C0C0& Caption = "Red Top" Height = 2085 Icon = REDTOP.FRX:0000 Left = 1710 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 1680 ScaleMode = 0 'User ScaleWidth = 3180 Top = 1095 Width = 3300 Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 17 Left = 3690 Picture = REDTOP.FRX:0302 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 19 Top = 4860 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 8 Left = 3090 Picture = REDTOP.FRX:0604 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 10 Top = 4860 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 16 Left = 3690 Picture = REDTOP.FRX:0906 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 18 Top = 4260 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 7 Left = 3090 Picture = REDTOP.FRX:0C08 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 9 Top = 4260 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 15 Left = 3690 Picture = REDTOP.FRX:0F0A ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 17 Top = 3660 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 6 Left = 3090 Picture = REDTOP.FRX:120C ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 8 Top = 3660 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 14 Left = 3690 Picture = REDTOP.FRX:150E ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 16 Top = 3060 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 5 Left = 3090 Picture = REDTOP.FRX:1810 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 7 Top = 3060 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 13 Left = 3690 Picture = REDTOP.FRX:1B12 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 15 Top = 2460 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 4 Left = 3090 Picture = REDTOP.FRX:1E14 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 6 Top = 2460 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 12 Left = 3690 Picture = REDTOP.FRX:2116 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 14 Top = 1860 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 3 Left = 3090 Picture = REDTOP.FRX:2418 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 5 Top = 1860 Visible = 0 'False Width = 510 End Begin PictureClip PicClip1 Cols = 6 Location = "5940,2745,1560,-2970" Picture = REDTOP.FRX:271A Rows = 3 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 11 Left = 3690 Picture = REDTOP.FRX:B68C ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 13 Top = 1260 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 2 Left = 3090 Picture = REDTOP.FRX:B98E ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 4 Top = 1260 Visible = 0 'False Width = 510 End Begin CommandButton onoff Caption = "spin" Height = 390 Left = 1845 TabIndex = 20 Top = 1095 Width = 1125 End Begin CommandButton Command1 Caption = "info" Height = 270 Left = 1845 TabIndex = 21 Top = 780 Width = 1125 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 10 Left = 3690 Picture = REDTOP.FRX:BC90 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 12 Top = 660 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 1 Left = 3090 Picture = REDTOP.FRX:BF92 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 3 Top = 660 Visible = 0 'False Width = 510 End Begin PictureBox Picture6 BackColor = &H00408080& ForeColor = &H00000000& Height = 1245 Left = 225 ScaleHeight = 1215 ScaleMode = 0 'User ScaleWidth = 1320 TabIndex = 0 Top = 240 Width = 1350 Begin PictureBox Picture1 AutoSize = -1 'True Height = 945 Left = 150 ScaleHeight = 915 ScaleMode = 0 'User ScaleWidth = 990 TabIndex = 1 Top = 135 Width = 1020 End End Begin Timer Timer1 Interval = 1 Left = 2235 Top = 195 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 9 Left = 3690 Picture = REDTOP.FRX:C294 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 11 Top = 60 Visible = 0 'False Width = 510 End Begin PictureBox Picture3 AutoSize = -1 'True Height = 510 Index = 0 Left = 3090 Picture = REDTOP.FRX:C596 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidth = 480 TabIndex = 2 Top = 60 Visible = 0 'False Width = 510 End Dim y As Integer Dim x As Integer Dim delay As Integer Dim toggle As Integer Dim flap As Integer Sub Command1_Click () infoform.Show 'load and show infoform End Sub Sub Form_Load () ' Use 3rd frame of sequence for initial "startup" frame picture1.Picture = picClip1.GraphicCell(2) y = 2 End Sub Sub onoff_Click () If toggle = 0 Then onoff.Caption = "stop" toggle = 1 Else onoff.Caption = "spin" toggle = 0 End If End Sub Sub runtop () ' Advance animation one frame y = y + 1: If y = 18 Then y = 0 picture1.Picture = picClip1.GraphicCell(y) ' Icon animation: This will only be evident when the ' form is minimized. .ICO files have been loaded into ' the Picture3 array, rather than .BMP's. This allows ' the mask feature of the .ICO to be utilized, letting ' the background behind the icon show through. form1.Icon = picture3(y).Picture End Sub Sub Timer1_Timer () If toggle = 1 Then runtop End Sub