'' تعريف متغيير جديد بنوع الخط
Dim fn As New Font("Arial", 8, FontStyle.Bold)
'' عمل لوب عل كل الادوات الموجودة على الفورم
For Each Tx As Control In Controls
'' كتابة جملة شرطية تحدد غذا كان المتغيير Tx من نوع صندوق نص
If TypeOf (Tx) Is TextBox Then
'' وضع المتغيير الخاص بنوع الخط للاداة التي حققت الشرط
Tx.Font = fn
End If
Next