[Ahmed_Mansoor]

أهلا , تم تعديل الكود , والكود الذي يظهر لك عندما تضغط دبل كلك على إحداها قم بمسحه لأن الكود سيتم تنفيذه في الزر :

كود :

Private Sub Command1_Click()

Dim I As Integer

amlyat1 = ""

For I = 0 To 2

    If Check2(I).Value = 1 Then
       amlyat1 = amlyat1 & Check2(I).Caption & ","
    End If
    
Next

If Len(Trim$(amlyat1)) > 0 Then
   amlyat1 = Left$(amlyat1, Len(amlyat1) - 1)
Else
   MsgBox "لم تقم بإختيار أي نوع"
   Exit Sub
End If

MsgBox amlyat1 & " لقد قمت بإختيار "

End Sub

---

إذا أردت أن تزيل الأقواس من عنوان الـ CheckBox المختار قم بإستخدام هذا الكود :

كود :

Private Sub Command1_Click()

Dim I As Integer
Dim zCheck_Caption As String

amlyat1 = ""

For I = 0 To 2

    If Check2(I).Value = 1 Then
       zCheck_Caption = Check2(I).Caption
       zCheck_Caption = Replace(zCheck_Caption, "(", "")
       zCheck_Caption = Replace(zCheck_Caption, ")", "")
       zCheck_Caption = Trim$(zCheck_Caption)
       amlyat1 = amlyat1 & zCheck_Caption & ","
    End If
    
Next

If Len(Trim$(amlyat1)) > 0 Then
   amlyat1 = Left$(amlyat1, Len(amlyat1) - 1)
Else
   MsgBox "لم تقم بإختيار أي نوع"
   Exit Sub
End If

MsgBox amlyat1 & " لقد قمت بإختيار "

End Sub