خانات الخيارCheckBox ومربع النص

لم توضحي هل بإمكان المستخدم :

1- اختيار أكثر من خيارين .

2- اختيار أي خيارين أو أكثر من الأربعة سويا .

عموما لقد عملت كود على أنه لايمكن الاختيار بين أكثر من خيارين وأنه يمكن للمستخدم اختيار أي من الخيارات الأربعة مع بعض بدون أي قيود .

في حدث عند الحالي للنموذج ضعي :

Dim الكلمة_الأولى As String, الكلمة_الثانية As String

Dim رقم_الحرف As Integer

فوق = False: تحت = False

يمين = False: يسار = False

If InStr([اسم مربع النص], " ") = 0 Then ' كلمة واحدة

Select Case [اسم مربع النص]

Case "فوق": فوق = True

Case "تحت": تحت = True

Case "يمين": يمين = True

Case "يسار": يسار = True

End Select

End If

' يوجد أكثر من كلمة

If InStr([اسم مربع النص], " ") <> 0 Then ' الكلمة الأولى

رقم_الحرف = InStr([اسم مربع النص], " ")

الكلمة_الأولى = Left([اسم مربع النص], رقم_الحرف - 1)

Select Case الكلمة_الأولى

Case "فوق": فوق = True

Case "تحت": تحت = True

Case "يمين": يمين = True

Case "يسار": يسار = True

End Select

الكلمة_الثانية = Mid([اسم مربع النص], رقم_الحرف + 1, 4)

Select Case الكلمة_الثانية

Case "فوق": فوق = True

Case "تحت": تحت = True

Case "يمين": يمين = True

Case "يسار": يسار = True

End Select

End If

مع افتراض أن مربعات التدقيق أسمائها يمين يسار فوق تحت وأن مربع النص الذي تكتب فيه القيمة اسمه اسم مربع النص .