نقل قول: ایجاد یک تابع برای استفاده در فرم های مختلف برنامه
نوشته شده توسط the king
Public Function VisTxt(Txt1 As TextBox, Optional Txt2 As TextBox, Optional Txt3 As TextBox)
Txt1.Visible = False
If Not Txt2 Is Nothing Then Txt2.Visible = False
If Not Txt3 Is Nothing Then Txt3.Visible = False
End Function