Recorrido de controles VB.NET

[BalamKhai]

Yo lo he hecho con los controles comunes de un WinForm, así:

Código:

            
           For Each f As Control In Me.Controls
                If f.GetType() Is GetType(Windows.Forms.TextBox) Then
                    f.Text = ""
                End If
            Next

el tuyo quedaría mas o menos así:

Código:

Public Shared Sub Valida1(ByVal f As ComponentFactory.Krypton.Toolkit.KryptonForm)
        For Each c As Control In f.Controls
            If c.GetType()  Is GetType(ComponentFactory.Krypton.Toolkit.KryptonTextBox) Then
                If c.Text = "" or c.text = Nothing Then
                    MessageBox.Show("Faltan Campos que llenar")
                End If
            End If
        Next
    End Sub

Le agregué un "c.text = Nothing" ya que recuerda en vb.net no es lo mismo esto: "" que Nothing.

Espero te sirva.
Saludos