Dim customer As New Customer
With customer
.Name = "Marco"
.Country = "Italy"
End With
