Code: Select all
With Me.List1
'...
.Clear
.AddItem ""
.Font.Bold = True
.AddItem PadC("SCHEDA ATLETA", LARGHEZZA)
.Font.Bold = False
.AddItem ""
'...
And With'
Code: Select all
With Me.List1
'...
.Clear
.AddItem ""
.Font.Bold = True
.AddItem PadC("SCHEDA ATLETA", LARGHEZZA)
.Font.Bold = False
.AddItem ""
'...
And With'