VERSION 5.00
Begin VB.Form frmmoon 
   Caption         =   "moon"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Interval        =   250
      Left            =   1800
      Top             =   1320
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "start"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Image imgCurrentMoon 
      Height          =   495
      Left            =   3000
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   7
      Left            =   3720
      Picture         =   "frmmoon.frx":0000
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   6
      Left            =   3240
      Picture         =   "frmmoon.frx":0442
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   5
      Left            =   2760
      Picture         =   "frmmoon.frx":0884
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   4
      Left            =   2280
      Picture         =   "frmmoon.frx":0CC6
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   3
      Left            =   1800
      Picture         =   "frmmoon.frx":1108
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   2
      Left            =   1200
      Picture         =   "frmmoon.frx":154A
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   1
      Left            =   600
      Picture         =   "frmmoon.frx":198C
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgmoon 
      Height          =   480
      Index           =   0
      Left            =   0
      Picture         =   "frmmoon.frx":1DCE
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
End
Attribute VB_Name = "frmmoon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gcurrentMoon As Integer
Dim grotateflag As Integer

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdStart_Click()
If grotateflag = 0 Then
grotateflag = 1
cmdStart.Caption = "sTOP"
Else
grotateflag = 0
cmdStart.Caption = "Start"
End If
End Sub

Private Sub Form_Load()
grotateflag = 0
gcurrentMoon = 0
End Sub

Private Sub Timer1_Timer()
If grotateflag = 1 Then
imgCurrentMoon.Picture = imgmoon(gcurrentMoon).Picture
gcurrentMoon = gcurrentMoon + 1
If gcurrentMoon = 8 Then
gcurrentMoon = 0
End If
End If


End Sub
