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
Text File  |  1993-04-28  |  2KB  |  74 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Butterfly"
  5.    ClipControls    =   0   'False
  6.    Height          =   4425
  7.    Left            =   930
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   268
  10.    ScaleMode       =   3  'Pixel
  11.    ScaleWidth      =   491
  12.    Top             =   1080
  13.    Width           =   7485
  14.    WindowState     =   2  'Maximized
  15.    Begin CommandButton Command1 
  16.       Caption         =   "E&xit"
  17.       Height          =   495
  18.       Left            =   6000
  19.       TabIndex        =   0
  20.       Top             =   3360
  21.       Width           =   1095
  22.    End
  23.    Begin Timer Timer1 
  24.       Interval        =   200
  25.       Left            =   120
  26.       Top             =   208
  27.    End
  28.    Begin Image Main 
  29.       Height          =   1155
  30.       Left            =   360
  31.       Picture         =   BUTTERF.FRX:0000
  32.       Top             =   2640
  33.       Width           =   1155
  34.    End
  35.    Begin Image CloseWings 
  36.       Height          =   1155
  37.       Left            =   1920
  38.       Picture         =   BUTTERF.FRX:0C82
  39.       Top             =   240
  40.       Visible         =   0   'False
  41.       Width           =   1155
  42.    End
  43.    Begin Image OpenWings 
  44.       Height          =   1155
  45.       Left            =   360
  46.       Picture         =   BUTTERF.FRX:1904
  47.       Top             =   240
  48.       Visible         =   0   'False
  49.       Width           =   1155
  50.    End
  51. End
  52.  
  53. Sub Command1_Click ()
  54.     End
  55. End Sub
  56.  
  57. Sub Form_Load ()
  58.     command1.Move 10, 10
  59. End Sub
  60.  
  61. Sub Timer1_Timer ()
  62.      Static PickBmp As Integer
  63.      Main.Move Main.Left + 20, Main.Top - 5
  64.      ' For a variantion, use the following line instead of the preceding one.
  65.      'Main.Move (Main.Left + 20) Mod ScaleWidth, (Main.Top - 5 + ScaleHeight) Mod ScaleHeight
  66.      If PickBmp Then
  67.         Main.Picture = OpenWings.Picture  'Displays open butterfly picture.
  68.      Else
  69.         Main.Picture = CloseWings.Picture 'Displays closed butterfly picture.
  70.      End If
  71.      PickBmp = Not PickBmp
  72. End Sub
  73.  
  74.