The Weird and The Wonderful

Private Sub GetControls(Byval obj as Control, ByRef list as List (Of Control))

For each ctl as Control in obj.Controls
   If ctl.Controls.Count > 0
      GetControls(obj, list)
      list.Add(ctl)
   Else
      list.Add(ctl)
   End If
Next ctl

End Sub

Public Sub Save()
' Some code here

If canSave(Me) Then
   SaveNew()
End If

' Some more code here
End Sub

Private Function canSave(ByVal obj as Control) As Boolean
Dim bool as Boolean = True

For each ctl as Control in obj.Controls
   If ctl.Controls.Count > 0
      canSave(ctl)
      If TypeOf ctl is CompanyControl Then
         Dim cctl As CompanyControl = ctl
         If cctl.Mandatory AndAlso cctl.Value = "" Then
            bool = False
         End If
      End If
   Else
      If TypeOf ctl is CompanyControl Then
         Dim cctl as CompanyControl = ctl
         If cctl.Mandatory AndAlso cctl.Value = "" Then
            bool = False
         End If
      End If
   End If
Next ctl

Return bool

End Function