For..Each next loops

[Chris_SE]

What exactly is wrong with this code?
Private Sub VScroll1_Change()
For Each TextBox In frmAdd
Let TextBox.Top = TextBox.Top + -1 * (VScroll1.Value + 10)
Next
End Sub

its saying the top property cannot be read at runtime