ese es el tema, que no lo puedo recuperar, he utilizado muchos codigos.
todos se parecen al que este.
Código:
Dim myControl As Control, i As Integer
For Each myControl In PanelForm.Controls
If (TypeOf (myControl) Is TextBox) Then
Dim a = CType(myControl, TextBox).ID
objmov.Valor = CType(myControl, TextBox).Text
End If
Next