VB4, VB5, VB6                

Podemos crear funciones que puedan estar a ambos lados del signo igual convirtiéndolas en propiedades :

x = LoWord(Y)

y

LoWord(y) = x


Public Property Get HiWord(L As Long) As Integer
    ' usado para obtener la palabra alta de un long

    HiWord =
End Property

Public Property Let HiWord(L As Long, ByVal _
    NewValue As Integer)
    ' usado para actualizar la palabra alta de un long
End Property

Recuerda que no necesitas ponerlas en un módulo de clase. Las propiedades son válidas en un módulo BAS normal, aunque en este caso debes anteponer el nombre del módulo cuando las llames.

-Darin Higgins, Fort Worth, Texas