home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / BUTTERF.FR_ / BUTTERF.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.0 KB  |  69 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. Sub Command1_Click ()
  52.     End
  53. End Sub
  54. Sub Form_Load ()
  55.     command1.Move 10, 10
  56. End Sub
  57. Sub Timer1_Timer ()
  58.      Static PickBmp As Integer
  59.      Main.Move Main.Left + 20, Main.Top - 5
  60.      ' For a variantion, use the following line instead of the preceding one.
  61.      'Main.Move (Main.Left + 20) Mod ScaleWidth, (Main.Top - 5 + ScaleHeight) Mod ScaleHeight
  62.      If PickBmp Then
  63.         Main.Picture = OpenWings.Picture  'Displays open butterfly picture.
  64.      Else
  65.         Main.Picture = CloseWings.Picture 'Displays closed butterfly picture.
  66.      End If
  67.      PickBmp = Not PickBmp
  68. End Sub
  69.