home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm121.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-24  |  1.4 KB  |  50 lines
  1. VERSION 4.00
  2. Begin VB.Form formanimate 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   6030
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6720
  8.    Height          =   6435
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6030
  12.    ScaleWidth      =   6720
  13.    Top             =   1170
  14.    Width           =   6840
  15.    Begin AniBtn.AniPushButton AniPushButton1 
  16.       Height          =   330
  17.       Left            =   2760
  18.       TabIndex        =   0
  19.       Top             =   2760
  20.       Width           =   360
  21.       _version        =   65536
  22.       _extentx        =   635
  23.       _extenty        =   582
  24.       _stockprops     =   111
  25.       picture         =   "FRM121.frx":0000
  26.       cycle           =   1
  27.       textposition    =   4
  28.       pictdrawmode    =   1
  29.       speed           =   32767
  30.       buttonversion   =   1024
  31.       clearfirst      =   -1  'True
  32.    End
  33. Attribute VB_Name = "formanimate"
  34. Attribute VB_Creatable = False
  35. Attribute VB_Exposed = False
  36. Option Explicit
  37. Private Sub AniPushButton1_Click()
  38. Dim x As Integer
  39. AniPushButton1.VALUE = 1
  40. For x = 1 To 10000
  41.     DoEvents
  42. AniPushButton1.VALUE = 2
  43. For x = 1 To 10000
  44.     DoEvents
  45. AniPushButton1.VALUE = 3
  46. For x = 1 To 10000
  47.     DoEvents
  48. AniPushButton1.VALUE = 4
  49. End Sub
  50.