[مصمم هاوي]

وعليكم السلام ورحمة الله وبركاته ،،

جرب التالي :

كود :

Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
         
            c.Text = ""

ElseIf TypeOf c Is ListBox Then
c.Clear
   
         End If

     Next c
     
End Function

[/quote]

يوجد خطأ في هذا الجزء

كود :

  c.Text = ""