Oppure
private sub list1_click() if list1.listindex = 0 then msgbox "Non selezionabile" else msgbox "Ok!" end if end sub