Sub SetFieldProperty(fldField As Variant, strPropertyName As String, _
        intPropertyType As Integer, varPropertyValue As Variant)
    ' Set field property without producing nonrecoverable run-time error.
    Const conErrPropertyNotFound =  3270 
    Dim prpProperty As Variant
    On Error Resume Next                ' Don't trap errors.
    fldField.Properties(strPropertyName) = varPropertyValue
    If Err <>  0  Then                    ' Error occurred when value set.
        If Err <> conErrPropertyNotFound Then
            On Error GoTo  0 
            MsgBox "Couldn't set property '" & strPropertyName _
                & "' on field '" & fldField.Name & "'",  48 , "SetFieldProperty"
        Else
            On Error GoTo  0 
            Set prpProperty = fldField.CreateProperty(strPropertyName, _
                intPropertyType, varPropertyValue)
            fldField.Properties.Append prpProperty
        End If
    End If
End Sub