توضيح فقط في هذا الكود

[طوفــان]

السلام عليكم

اخواني ارجو منكم تصحي لي هذا الكود

عاوز لما ادوس علي Check علامة الصح يظهر لي صندوق به كلام هذا الكود

Private Sub Check1_Click(Index As Integer)
If Check1.Value = 1 Then
MsgBox ""

End If

End Sub

بيقولي الخطأ في الكلمة الي بالاصفر وتظهر هذه الرسالة

http://www.m5zn.com/uploads/78bb6b7302.bmp (http://www.m5zn.com)

ارجو التوضيح

[طوفــان]

ارجوكم ما حد يقدر يساعدني

[آسيهي]

اخي العزيز هذا هو الكود الصحيح
1-دبل كليك على الـــ Check1 وكتابة الكود فيه اخي هذه اول مرة اشوف index as integer في Argument الـــ Check1 امسح ذلك العبارة

Private Sub Check1_Click()s
If Check1.Value = 1 Then
MsgBox " Right"s
Else
MsgBox "False"s
End If
End Sub

[طوفــان]

لم ينفع ما قلته اخي

انا عاوز كود بمجرد الضغط علي ال شيك يظهر صندوق حوار

شكرااا لك كثير اخي

[آسيهي]

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

[آسيهي]

او اذا تستطيع ان ترسل البرنامج لي

[طوفــان]

اشكر لك اهتمامك اخي الحبيب
انا خلاص حليت المشكلة بنفس الكود الاولاني ولكن اخلطأ كان بتكرار الcheck

[آسيهي]

موفق ان شاء الله