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