[es-users] desplazamiento de bits en basic

hola a todos.

tengo que hacer una sub que haga una operación and entre dos numeros y
luego desplace el resultado algunas posiciones a la derecha.

¿cómo se hace?

sub prode
a = 7
b = 4
c = (a and b)
msgbox(c)
end sub

intenté todas estas cosas esperando un 2 pero no lo obtuve.
c = (a and b) > 1
msgbox(c) ' true

c = (a and b) < 1
msgbox(c) ' false

c = a and b > 1
msgbox(c) ' 7

c = a and b < 1
msgbox(c) ' 0


c = 1>(a and b)
msgbox(c) ' false

c = 1<(a and b)
msgbox(c) ' true

c = 1 > a and b
msgbox(c) ' 0

c = 1 < a and b
msgbox(c) ' 4


-- 
Rafael Bidegain

Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)

# yo quiero educación libre. ¡YA!

-- 
Para instrucciones sobre darse de baja envíe un mensaje a: users+unsubscribe@es.libreoffice.org
¿Problemas? http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no pueden ser eliminados