keske hangi dilde istedigini yazsaydin neyse ben vb6 da sana sabah sabah bayram hediyesi yazayim :P

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 0 To 3
Check1.Item(i).Value = 0
Next i
Check1.Item(Index).Value = 1
End Sub


checkboxlarin hepsinin ismi ayni olmali yani sen hepsini check1 yaparsan bunlari forum otomatik mak check1(0), check1(1), check1(2) seklinde yazmaya baslar bizde for dongusuyle önce 0 dan 3 e kada hepsini unchecked yaptik (bende 4 tane oldugu icin sende 52 tane varsa 0 to 51 yazcan neden 51 nerden 0 dahil 51 e kadar 52 sayi vardir.)

sonra eventin bize vermis oldugu index degeri yani o anki clicklenmis olanin numarasidir denemek istersen click olayina msgbox index yazarsan anlarsin zaten...neyse iste hepsini unchecked yaptikdan sonra clicklenen checkbox u checked yapmis olduk, anlamadigin nokta varsa sorarsin...

iyi bayramlar