遍历所有窗体控件

遍历所有窗体控件

  For   Each   Control   In   GroupBox2.Controls

              If   TypeOf   Control   Is   TextBox   Then

                  If   Control.ForeColor =   Color   .Red   Then

                      MessageBox .Show( "还有错误，不允许提交！请检查后，再提交！"   ,   "Warning" ,   MessageBoxButtons .OK,   MessageBoxIcon   .Warning)

                      Exit For

                  End   If

              End   If

          Next