[عبقرينو]

السلام عليكم
أخي جرب هذه الطريقة وأتمنى تظبط معاك لأني جربتها قبل ما أرسلها إليك وكانت ناجحة
الطريقة:
If RadioButton4.Checked = True And NumericUpDown1.Text > 100 Then
MsgBox("أقصى عدد للاقساط 100", MessageBoxButtons.OK)
 Exit Sub

        End If
وممكن تضيف ليها الآتي:
If RadioButton4.Checked = True And NumericUpDown1.Text > 100 Then
MsgBox("أقصى عدد للاقساط 100", MessageBoxButtons.OK)
 Exit Sub
Else
            MsgBox("تم الحفظ")
        End If
مع مراعاة تغيير اللغة يعني كلمة (MsgBox) تكون في الأول بعدين الأقواس ثم "أقصى عدد للاقساط 100" ثم  MessageBoxButtons.OK بعدها باقي الكود..