Private Sub Class_Initialize()
    isOk = False
    mOnTop = False
    mTransparent =  255 
    For Each frm In Forms

'Тут рождается контрол CTL

        For Each ctl In frm.Controls                     
            If TypeName(ctl) = "PictureBox" Then
                Exit For
            End If
        Next ctl

'Тут умерает контрол CTL

        Exit For
    Next frm

'следовательно от сюда мы уже не знаем что такое CTL

    ctl.AutoRedraw = True
    ctl.BorderStyle =  0 
    ctl.AutoSize = True
End Sub

Private Sub Class_Initialize()
    isOk = False
    mOnTop = False
    mTransparent =  255 
    For Each frm In Forms

'Тут рождается контрол CTL
' согласен

        For Each ctl In frm.Controls       'если конкретнее то он рождается здесь              
            If TypeName(ctl) = "PictureBox" Then
                Exit For 
'здесь происходит выход из внутреннего цикла, ищется первый попавшийся PictureBox
'СООТВЕТСТВЕННО при выходе из внутренного цикла контрол созданный конструкцией For each..Next умерает!
            End If
        Next ctl

'Тут умерает контрол CTL

'если If TypeName(ctl) = "PictureBox" сработало, то не умирает
'вот это утверждение к сожелению не верно.

        Exit For 'а здесь происходит выход из внешнего цикла без всяких условий. А сколько у нас форм в коллекции?????? И какая из них проверялась первой на наличие PictureBox?????
    Next frm

'следовательно от сюда мы уже не знаем что такое CTL
'определенно
    ctl.AutoRedraw = True
    ctl.BorderStyle =  0 
    ctl.AutoSize = True
End Sub

Sub TestForEach()
 Dim MyCell As Range
 For Each MyCell In Selection.Cells
  If MyCell.Value = "fff" Then
    Exit For
  End If
 Next MyCell
 MyCell.Value = "DFD"
End Sub