Private Sub foobar()

    Dim foo() As foo = {New foo}
    For Each bar As bar In foo

    Next
  End Sub

  Private Class foo

  End Class

  Private Class bar
    Inherits foo
  End Class