[مصمم هاوي]

(13-09-20, 03:12 AM)T 1 كتب : Public Function ClearAll(frm As Form)

Dim c As Control
For Each c In frm.Controls
If TypeOf c Is TextBox Then

c.Text = ""

ElseIf TypeOf c Is ListBox Or TypeOf c Is ComboBox Then
c.Clear

End If

Next c

End Function

هذا هو المطلوب بارك الله فيك