Option Explicit
Sub Main
Call Scrivi("Prova")
Call Scrivi("Prova",True)
Call Scrivi("Prova",True,,vbYellow,vbRed)
Call Scrivi("Prova",True,,vbYellow,vbGreen,3)
Call Scrivi("Prova",True,,,vbYellow,4,"Arial")
Call Scrivi("Prova",True,,vbYellow,vbBlue,5,"Times New Roman",True)
Call Scrivi("Prova",True,,vbYellow,vbCyan,6,"Terminal",True)
Call Scrivi("Prova",True,,vbYellow,vbMagenta,7,"Calibri",,True)
Call Scrivi("Prova",True,,vbYellow,vbBlack,7,"Comic Sans MS",,,True)
Call Scrivi("Prova",,False)
Call Scrivi("Prova",True ,False)
Call Scrivi("Prova",True,False,vbYellow,vbRed)
Call Scrivi("Prova",True,False,vbYellow,vbGreen,3)
Call Scrivi("Prova",True,False,,vbYellow,4,"Arial")
Call Scrivi("Prova",True,False,vbYellow,vbBlue,5,"Times New Roman",True)
Call Scrivi("Prova",True,False,vbYellow,vbCyan,6,"Terminal",True)
Call Scrivi("Prova",True,False,vbYellow,vbMagenta,7,"Calibri",,True)
Call Scrivi("Prova",True,True,vbYellow,vbBlack,7,"Comic Sans MS",,,True)
End Sub