|  Sub Command1_Click () label1.caption = ""
 a$ = "A: condizioni estremamente instabili"
 b$ = "B: condizioni moderatamente instabili"
 c$ = "C: condizioni debolmente instabili"
 d$ = "D: condizioni di neutralità"
 e$ = "E: condizioni debolmente stabili"
 f$ = "F: condizioni moderatamente stabili"
If option1.value And option6.value Then label1.caption = a$If option2.value And option6.value Then label1.caption = a$ + " e " + b$
 If option3.value And option6.value Then label1.caption = b$
 If option4.value And option6.value Then label1.caption = c$
 If option5.value And option6.value Then label1.caption = c$
 
 If option1.value And option7.value Then label1.caption = a$ + " e " + b$
 If option2.value And option7.value Then label1.caption = b$
 If option3.value And option7.value Then label1.caption = b$ + " e " + c$
 If option4.value And option7.value Then label1.caption = c$ + " e " + d$
 If option5.value And option7.value Then label1.caption = d$
 
 If option1.value And option8.value Then label1.caption = b$
 If option2.value And option8.value Then label1.caption = c$
 If option3.value And option8.value Then label1.caption = c$
 If option4.value And option8.value Then label1.caption = d$
 If option5.value And option8.value Then label1.caption = d$
 
 If option1.value And option9.value Then label1.caption = e$
 If option2.value And option9.value Then label1.caption = e$
 If option3.value And option9.value Then label1.caption = d$
 If option4.value And option9.value Then label1.caption = d$
 If option5.value And option9.value Then label1.caption = d$
 
 If option1.value And option10.value Then label1.caption = f$
 If option2.value And option10.value Then label1.caption = f$
 If option3.value And option10.value Then label1.caption = e$
 If option4.value And option10.value Then label1.caption = d$
 If option5.value And option10.value Then label1.caption = d$
 
 End Sub
 |