Luis Tomasto dice
Aqui un codigo espero lo entiendan
Public Sub Limpiar(sFORM As Form)
For Each ObjTexto In sFORM.Controls
If (TypeOf ObjTexto Is TextBox) Then ObjTexto.Text = "" 'vbNullString
Next ObjTexto
Set ObjTexto = Nothing
For Each Objcombo In sFORM.Controls
If (TypeOf Objcombo Is ComboBox) Then Objcombo.Text = "" 'vbNullString
Next Objcombo
Set Objcombo = Nothing
For Each ObjListview In sFORM.Controls
If (TypeOf ObjListview Is ListView) Then ObjListview.ListItems.Clear
Next ObjListview
End Sub
Publicado el lunes, 12 de septiembre de 2011