VERSION 5.00
Begin VB.Form frmmoveeye 
   Caption         =   "move eye"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CMDMove 
      Caption         =   "Move"
      Height          =   495
      Left            =   1800
      TabIndex        =   2
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdmoveeye 
      Caption         =   "Animation"
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "exit"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Image imgEye 
      Height          =   480
      Left            =   3960
      Picture         =   "moveeye.frx":0000
      Top             =   1920
      Width           =   480
   End
End
Attribute VB_Name = "frmmoveeye"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdexit_Click()
End
End Sub

Private Sub CMDMove_Click()
Dim Counter As Integer
Dim leftedge As Single
Dim topedge As Single
leftedge = imgEye.Left
topedge = imgEye.Top

For Counter = 1 To 100 Step 1
leftedge = leftedge - 20
topedge = topedge - 20
imgEye.Move leftedge, topedge
Next Counter

End Sub

Private Sub cmdmoveeye_Click()
Dim Counter As Integer
For Counter = 1 To 100 Step 1
imgEye.Top = imgEye.Top - 20
imgEye.Left = imgEye.Left - 20
Next Counter
End Sub
