Private Sub Command1_Click()
Dim Frase
Frase = "Scritta di Prova"
Picture8.FontName = "aRIAL bLACK"
Picture8.FontSize = 10: Picture8.FontBold = True: Picture8.Print Frase
SavePicture Picture8.Image, App.Path & "\SMALL_" & "Pippo.bmp"
End Sub
Private Sub Command1_Click()
Dim Frase
Frase = "Scritta di Prova"
Picture8.FontName = "aRIAL bLACK"
Picture8.FontSize = 10: Picture8.FontBold = True: Picture8.Print Frase
SavePicture Picture8.Image, App.Path & "\SMALL_" & "Pippo.bmp"
End Sub