Simular opciones establecidas y efectuar accion

[renga73]

Lo q quiero simular es por ejemplo: yo tengo 3 CHECKS 1, 2 y 3. pero solamente en tiempo de ejecucion active el 1 y 2, q corresponde al envio de un mail y reproducir un sonido. El codigo para realizar esto ya los tengo listo. Pero lo q quiero hacer es q me detecte ante un eventual evento por ejemplo simular un random q cuando sale un 7 me realice las opciones activas en este caso el 1 y 2 del check.
Osea basicamente como el programa me detecta cuando el check esta activado o no

[piojoman]

no esta muy claro lo que pedis pero creo que entendi.

Private Sub Command1_Click()
Dim Azar As Byte
Azar = Int((12 - 2 + 1) * Rnd + 2) 'Aca hay que poner un rango de valores yo use de 2 a 12 (como los dados, pero puede ser cualquier cosa, (0,100), etc.)

If Azar = 7 Then
If Opc1.Value = 1 Then
'Determinar lo que pase
MsgBox "Hola"
End If
If Opc2.Value = 1 Then
'Determinar lo que pase ' tenes que copiar este if por cada check que tengas
End If
End If
End Sub

Pero si lo que queres es simplemente saber cuando un Check esta activado siemplemente usa la propiedad Value, 0 cuando esta desactivado, 1 activado y 2 para cuando se cancela el check

Bye!