[kapetang]

Καλησπέρα

Δημήτρη, στο αρχείο που επισυνάπτω προσπάθησα να υλοποιήσω το ζητούμενο.
Χρησιμοποιώ δύο στοιχεία κειμένου:
1) To txtName που περιέχει όλο το κείμενο που θα έχει κανονική μορφοποίηση.
2) Το txtGenesi με το έτος γέννησης και μορφοποίηση «Έντονα».
Επειδή το μήκος κειμένου του txtName είναι μεταβλητό, χρησιμοποιώ τον παρακάτω κώδικα για να τοποθετήσω το στοιχείο txtGenesi:

Private Sub Λεπτομέρεια_Format(Cancel As Integer, FormatCount As Integer)
    Me.txtGenesi.Move Me.txtName.Left + TextWidth(Me.txtName) + 50, Me.txtName.Top
End Sub

Ελπίζω να σε καλύπτει

Φιλικά/Γιώργος