home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk1
/
butterf.fr_
/
butterf.bin
Wrap
Text File
|
1993-04-28
|
2KB
|
74 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00FFFFFF&
Caption = "Butterfly"
ClipControls = 0 'False
Height = 4425
Left = 930
LinkTopic = "Form1"
ScaleHeight = 268
ScaleMode = 3 'Pixel
ScaleWidth = 491
Top = 1080
Width = 7485
WindowState = 2 'Maximized
Begin CommandButton Command1
Caption = "E&xit"
Height = 495
Left = 6000
TabIndex = 0
Top = 3360
Width = 1095
End
Begin Timer Timer1
Interval = 200
Left = 120
Top = 208
End
Begin Image Main
Height = 1155
Left = 360
Picture = BUTTERF.FRX:0000
Top = 2640
Width = 1155
End
Begin Image CloseWings
Height = 1155
Left = 1920
Picture = BUTTERF.FRX:0C82
Top = 240
Visible = 0 'False
Width = 1155
End
Begin Image OpenWings
Height = 1155
Left = 360
Picture = BUTTERF.FRX:1904
Top = 240
Visible = 0 'False
Width = 1155
End
End
Sub Command1_Click ()
End
End Sub
Sub Form_Load ()
command1.Move 10, 10
End Sub
Sub Timer1_Timer ()
Static PickBmp As Integer
Main.Move Main.Left + 20, Main.Top - 5
' For a variantion, use the following line instead of the preceding one.
'Main.Move (Main.Left + 20) Mod ScaleWidth, (Main.Top - 5 + ScaleHeight) Mod ScaleHeight
If PickBmp Then
Main.Picture = OpenWings.Picture 'Displays open butterfly picture.
Else
Main.Picture = CloseWings.Picture 'Displays closed butterfly picture.
End If
PickBmp = Not PickBmp
End Sub