[justforit]

PHP كود :

Private Sub ClearTextBoxes(ByVal root As Control)
     For Each ctrl As Control In root.Controls
         ClearTextBoxes(ctrl)
         If TypeOf ctrl Is TextBox Then
             CType(ctrl, TextBox).Text = String.Empty
         End If
     Next ctrl
 End Sub
 Private Sub fill(ByVal root As Control)
     For Each ctrl As Control In root.Controls
         fill(ctrl)
         If TypeOf ctrl Is TextBox Then
             CType(ctrl, TextBox).Text = ctrl.Name
         End If
     Next ctrl
 End Sub 


بزر الامر نكتب: ClearTextBoxes(Me)
او
 fill(Me)