スロットマシーンで停止ボタンを押したら急に止めずに速度をおとしてゆっくり
止めるにはどうすれば良いのでしょうか。

cmdStartはコマンドのスタート、cmdStopはコマンドのストップ、
timTimerはタイマー、picSlotはピクチャーのコントロール配列(0〜2)、
imgSlotはイメージのコントロール配列(0〜9)です。

↓のコードで一応スロットはできるんですが、速度を落として止められません。
Dim cnt As Integer
Private Sub cmdStart_Click()
    timTimer = True
End Sub

Private Sub cmdStop_Click()
　　Dim osoi As Integer
    timTimer.Interval = 500
    picSlot(0).Picture = imgSlot(cnt).Picture　
    picSlot(1).Picture = imgSlot(cnt + 1).Picture
    picSlot(2).Picture = imgSlot(cnt + 2).Picture
    cnt = cnt + 1
    If cnt = 8 Then
        cnt = 0
    End If
    osoi = osoi + 1
    If osoi = 4 Then
        timTimer.Enabled = False
    End If
End Sub

Private Sub timTimer_Timer()
    picSlot(0).Picture = imgSlot(cnt).Picture
    picSlot(1).Picture = imgSlot(cnt + 1).Picture
    picSlot(2).Picture = imgSlot(cnt + 2).Picture
    cnt = cnt + 1
    If cnt = 8 Then
        cnt = 0
    End If
End Sub

試していないので動かないかもしれませんが、
こんな感じでしょうか？

Dim cnt As Integer
Dim STOP_FALG As Boolean    '回転を止めるフラグ
Private Sub cmdStart_Click()
    STOP_FALG = False    'フラグをリセット
    timTimer.Interval = 500    '通常の回転速度
    timTimer = True
End Sub

Private Sub cmdStop_Click()
    STOP_FALG = True    'フラグをセット
End Sub

Private Sub timTimer_Timer()
    picSlot(0).Picture = imgSlot(cnt).Picture
    picSlot(1).Picture = imgSlot(cnt + 1).Picture
    picSlot(2).Picture = imgSlot(cnt + 2).Picture
    cnt = cnt + 1
    If cnt = 8 Then
        cnt = 0
    End If

　　Static osoi As Integer    'Static で宣言

    If STOP_FLAG = True then
        osoi = osoi + 1
    timTimer.Interval = timTimer.Interval + 500    'だんだん遅くする
        If osoi = 4 Then
           timTimer.Enabled = False
       osoi = 0    '次のためにリセット
        End If
    End If

End Sub