With CrystalReportViewer1.ReportSource.Section3

    '---Left
    .ReportObjects("expiry1").Left = 100
    .ReportObjects("expiry2").Left = 500

    '---Top
    .ReportObjects("expiry1").Top = 100
    .ReportObjects("expiry2").Top = 100

    '---Font
    .ReportObjects("expiry1").Font.Name = "Arial"
    .ReportObjects("expiry1").Font.Size = 16

End With