martes, 7 de julio de 2009

Utilizaciòn de For Each

Dim arreglo() As String
Dim nombres As String
ReDim arreglo(1)
arreglo(0) = "Pedro"
arreglo(1) = "Pablo"
For Each nombres In arreglo
MsgBox(nombres)
Next


otro ejemplo, limpia todos los textbox y se posiciona en el textbox10:

For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then ctrl.Text = ""
Next
TextBox10.Focus()

Comparte