Visual Basic - Crear propiedades.-

Hola compañeros!

Esta ves necesito realizar una tarea que realizaba en Access con VBA que era la de crear propiedades de lectura en las que podia almacenar datos, las cuales utilizarba mayormente para seguridad de las aplicaciones como por ejemplo para almacenar el serial del disco regido, en Vba lo realizaba de la siguiente manera:

'Funcion propiedad intelectual del colega Buho
Function CrearPropiedad(NombrePropiedad As String, varType As Variant, _
varValue As Variant) As Integer

'Original del Buho
Dim prp As Variant

Const conPropNotFoundError = 3270
On Error GoTo AddProp_Err
If IsNull(CurrentDb.Properties(NombrePropiedad)) = True Then
'no existe la propiedad, la creo.
'Cuando se abra por segunda vez la MDB, se leera
'este codigo, pero no volvera a crear la propiedad
'pues ya existe
CurrentDb.Properties(NombrePropiedad) = varValue
AgregaPropiedad = True
End If
AddProp_Bye:
Exit Function
Set FileWsh = Nothing
AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = CurrentDb.CreateProperty(NombrePropiedad, varType, varValue)
CurrentDb.Properties.Append prp
Resume
Else
AgregaPropiedad = False
Resume AddProp_Bye
End If
End Function

Seria posible crear propiedades de esta manera en vb6, de antemano gracias por su ayuda y por su tiempo.-