جعل تنسيق شرطي في التكست بوكس

المشاركة الأصلية كتبت بواسطة:رمضان بكري

السلام عليكم  اليكم فورم  اريد هنا في التغيير التالي في تكست بوكس 10 وهكذا  اذا كان الرقم الموجود اكبر من كيلو متر الحالي يعطني اللون الخالية بلون انذار احمر  وهكذا  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب غير  كدا ييسبها كمان هيه باللون الابيض  
 هذا الكود 

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Me.TextBox17.Value = "" Then

Me.TextBox10.BackColor = &HFFFFFF

Else

If Me.TextBox10.Value > Me.TextBox17.Value Then

            Me.TextBox10.BackColor = &HFF&

        Else

           Me.TextBox10.BackColor = &HFFFFFF

             

        End If: End If

End Sub

 اريد تنفيذ هذا الكود علي باقي التكست بوكس   الباقية