1: 2: 3:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) txtDetails.ForeColor = txtCode End Sub