perdon por lo de los 3 post es que cuando le ponia en publicar lugo queria entrar para confirmar que se aya publicado y no logre verlos fu ese el motivo, pido disculpas.
salu2

hola xadap  mira no conozco el qbacic qie mencionas pero te comento que yo se poco y nada de vb y logre hacer una aplicacion sensilla que controla perfectamente el puerto. calculo que si saves programar es ese programa que mencionas sabras lo que es un if, un select case, una constante y una varible. bueno con solo esos conosimientos y la gran ayuda del post de  BADBYTE-K  logre hace esto.
fijate es este post http://foro.elhacker.net/index.php/topic,48748.0.html

y sige todos los pasos.

y seguramente aqui hay gente que save mucho mas pero aqui mi umilde colaboracion.


una ves que tengas el modulo puedes mandar ordenes al puerto coniendo por ejemplo Out &H378, 255


en el modulo pegas este codigo

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

yo por ejemplo puse un text al cual en el evento change le agrege este codigo


Out &H378, text1.text

y todo lo que escriba en el text se envia el puerto paralelo podrias tambien definir que en ese text se escriban solo numeros y algo que yo hice para evitar un error de desvordamiento es esto mira


if text1.text > 255 then
Out &H378, text1.text
else
msgbox "la representacion maxima de o bits en decimal es de 255"
Out &H378, 255
end if

y con eso logre que si escribo 256 no le evie ese numero al puerto y me salga esa advertencia y le agrege que me dejara en 255 el estado del puerto suponiendo que si uno quiere poner por ejemplo 290 es porque quiere encender todos los leds

yo tambien soy novato en esto de Vb y por eso no estoy seguro ya que ahora estoy en el trabajo no tengo vb pero fijate si no te funca la instruccion de envio


Out &H378, text1.text
pon el dato a enviar entre comillas 

Out &H378, "text1.text"

no recuerdo como lo hice y tampo si hacia falta el signo = en el medio jeje

Out &H378, text1.text

Out &H378, "text1.text"

Out &H378, = text1.text

Out &H378, = "text1.text"

prueva con estos estoy seguro que uno de esos 4 es el que hace lo que pretendemos. aclaro que en mi caso la salida del puerto no era 378 si no que es 379 pero en el post que te mencione antes el de BADBYTE-K te explica como saver cual es la direccion de tu puerto es muy facil de verlo.

bueno espero aver ayudado un poco ya que me siento en deuda con ustedes porque de no ser por estos post no podria averlo echo yo.

y a los que mas saven.. espero no les moleste que trate de explicar algo que ya explicaron ustes antes.

chau
salu2
 y suerte.

si, claro que se puede, te doy un articulo excelente cuando se lee en ingles pero algo confuso cuando se lee en español a causa del traductor barato que usan, pero de igual forma te servira para lo que buscas

How To Manipulate Icons in the System Tray with Visual Basic
Cómo manipular iconos en la Bandeja del sistema con Visual Basic
http://support.microsoft.com/kb/q162613/


saludos

que pasará que cuando ejecuto el programa y le doy enviar se me cierra..... lo tengo solo que envie 255 por el puerto y ya... al otro lado que me reciba

HOLA CHILDS, YA ME LEI CASI TODOS LOS POST Y ME PARECEN MUY INTERESANTES, PERO NECESITO AYUDA.

NECESITO ENVIAR UNOS PULSOS SEA POR EL LPT1 A DOS MOTORES QUE SE ENCARGAN DE ABRIR UNA PUERTA CADA UNO. NO SE EXACTAMENTE QUE NECESITO PARA HACER ESTO Y COMO DEBO HACER EL CODIGO, LO PIENSO HACER EN VB.

GRACIAS Y SIGAN ASI!!