do
  for N = 0 to 9
    if (N mod 2)=0 then
      dim as integer ThisVar
      'ThisVar exists here...
      if N < 5 then
        'ThisVar DO exist here too..
      end if
    else
      'ThisVar isnt accessible here
    end if
    'Thisvar isnt accessible here either
  next N
  'thisvar obviously wont be accessible here as well
loop