Видимость - VB

Формулировка задачи:

Ребят смотрите ,

Private Sub Timer2_Timer()
    ImgShot.Left = ImgShot.Left + bx / 10
    ImgShot.Top = ImgShot.Top + by / 10
If ImgShot.Left <= 0 Or ImgShot.Left >= 21 Or ImgShot.Top <= 0 Or ImgShot.Top >= 16 Then
    ImgShot.Visible = False
    Timer2.Enabled = False
End If
End Sub

как сделать так что бы при попадании в блок ImgShot пропадал и давал возможность снова сделать выстрел?

Решение задачи: «Видимость»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim bx, by, n
Const v = 10 ' сколько показывать бом
 
Private Sub Timer2_Timer()
     If ImgBoom.Visible Then
            n = n + 1
            If n > v Then
                ImgBoom.Visible = False
                Timer2.Enabled = False
                Exit Sub
            End If
     Else
                imgShot.Left = imgShot.Left + bx / 10
                imgShot.Top = imgShot.Top + by / 10
                If imgShot.Left <= 0 Or imgShot.Left >= 21 Or imgShot.Top <= 0 Or imgShot.Top >= 16 Then
                            imgShot.Visible = False
                             ImgBoom.Top = imgShot.Top
                             ImgBoom.Left = imgShot.Left
                             ImgBoom.Visible = True
                End If
      End If
End Sub
                        