[vb6] svuotare textbox su pressione bottone

[optime]

Private Sub Command1_Click()

   Dim i As Control
   
   For Each i In Form1
      If TypeOf i Is TextBox Then
         i.Text = ""
      End If
   Next

End Sub

cosi' va