alıntırdır cheke doktum sadece okadar

if check1.value = 1 then
WriteByte ReadLong(KO_PTR_DLG) + &H7C0, 1 ' on
else
WriteByte ReadLong(KO_PTR_DLG) + &H7C0, 0 ' off
end if


kodj sanırsam yazan paylaşan o diğil alın sadece yaazın şekil şu hem kısa hemde 10 kutu bile aynı anda düşse 10 kutuyuda açıo yane diğerileri bi kutu alırken bir diğerini almı bundaki şekil alıo seri bir şekilde denendi ama istediğin şeyleri seçme çalışmıo onuda anlatmam uzun iş