遍历所有窗体控件

遍历所有窗体控件

 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