Обработка множества полей

[Mouse]

Привет всем! Помогите, пожалуйсита, разобраться.

У меня в форме 20 текстовых полей, как мне быстро перебрать все поля формы и найти не пустые?

[Firestorm]

Private Sub Command1_Click()
Dim Ctl As Control

For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" Then
If len(Ctl.Text)=0 then msgbox "YEAH!" '<--
End If
Next
End Sub