السلام عليكم ورحمة الله وبركاته
الرجاء مساعدتي في التعديل على الكود
المطلوب أن توكس بوكس1 = نتيجة ممتاز أو جيد جدا
يعني يظهر فيه كلمة ممتاز أو جيدجدا
Private Sub CommandButton3_Click()
With UserForm4
.Label1.ForeColor = &HFF&
.ListBox1.ForeColor = &HFF&
.Label1.Caption = النتيجة
.TextBox1.Text = "ممتاز" أو "جيدجدا"
End With
End Sub