This doesnt work for sure...

vb Code:
  1. For Each ctl As Control In Me.Controls