Option Compare Database
Option Explicit

Const cPicPerCm = 567   '1Cmあたりのピクセル数
Const cWidth = 0.3      'アンコウのちじみを３ｍｍにする

Private Sub Form_Timer()
    Static wCnt As Long
    Static wMove As Boolean 'アンコウがちじんだ事を知らせるフラグ
    On Error GoTo ErrTrap
    
    wCnt = wCnt + 1
    With Me!img1
        Select Case (wCnt Mod 20)
        Case 0, 15 'アンコウがちじんだ
            If Rnd() < 0.2 Then 'アンコウのちじみを規則正しくさせないために乱数を使用
                .Width = .Width - cWidth * cPicPerCm
                wMove = True
            End If
        Case 1, 16 'アンコウを元のサイズに戻す
            If wMove Then
                .Width = .Width + cWidth * cPicPerCm
                wMove = False
            End If
        Case 8 'アンコウを１ｍｍ前へ
            .Left = .Left - 0.1 * cPicPerCm
        End Select
    End With
TimerExit:
Exit Sub

ErrTrap:
    'フォームの左端にぶつかったらエラーが発生して終了
    DoCmd.Close
    Resume TimerExit
End Sub