[mjaleel]

السلام عليكم شباب
بدون امر محتاج اجراء Clear ToolBox 
مثال :

Public Sub clear()
ItemBarcode.Text = ""
ItemCompany.Text = ""
ItemDate.Value = Now.Date
End Sub

[أبو عمر]

PHP كود :

Public Sub ClearTextBox(ByVal root As Control)
        For Each ctrl As Control In root.Controls
            ClearTextBox(ctrl)
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = String.Empty
            End If
        Next ctrl
    End Sub 


لاستدعائه بعد اي اجراء بالشكل التالي

PHP كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ClearTextBox(Me)
End Sub 


بالتوفيق

[mjaleel]

شكرا جزيلا بارك الله بيك