Italian Ciclo If OR non funziona

[sfigatto72]

Salve ragazzi,
ho un problema, sicuramente banale, ma non riesco a capire dove commetto l'errore.
Ho dichiarato 3 radiobutton
Private opt_d3 As RadioButton
Private opt_d6 As RadioButton
Private opt_d9 As RadioButton
a questo punto voglio che al click su un'immagine (anch'essa dichiarata), parta una verifica per valutare se almeno uno dei 3 radiobutton è stato flaggato, altrimenti deve dare un messaggio di errore.
Questo il codice:
Sub img_calc_Click
if opt_d3.Checked(false) OR opt_d6.Checked(false) OR opt_d9.Checked(false)
then
msgbox("Selezionare posizione sorgente","Attenzione")
end if
end sub

Ma non funzia

 

[Deleted member 103]

Prova così:

Sub img_calc_Click
    If opt_d3.Checked=False OR opt_d6.Checked=False OR opt_d9.Checked=False Then
        Msgbox("Selezionare posizione sorgente","Attenzione")
    End If
End

oppure così (è secondo me più elegante):

Sub img_calc_Click
    If Not(opt_d3.Checked) OR Not(opt_d6.Checked) OR Not(opt_d9.Checked) Then
        Msgbox("Selezionare posizione sorgente","Attenzione")
    End If
End Sub

 

[sfigatto72]

Grazie Filippo,
FUNZIA

PS: piccola precisazione, il mio codice era errato, per verificare se almeno uno dei radiobutton fosse flaggato, la funzione If andava unita con l'operatore AND e non con OR, che al contrario dava errore se non erano flaggati tutti i radiobutton.