VB没有提供直接读写I/O口思路方法所以只能借助其他语言来编写DLL然后在VB中 

　　如果你在Windows下使用过C/C那么编写这样DLL可能没有什么困难在C语言里都包括inp和outp可以把下面这段C语言代码(32位)编译生成DLL然后在VB中 

　　代码如下: 

　　# 
# 
/*作用:从指定端口读入个字节 
参数:portid端口号 
返回值:读入字节*/ 
 _stdcall Inport( portid) 
{ 
 inp(portid);} 
/*作用:向指定端口写入个字节 
参数:portid端口号*/ 
void _stdcall output( portid, ) 
{ 
outp(portid,); 
} 
/*作用:从指定端口读入个字节 
参数:portid端口号 
返回值:读入字节*/ 
 _stdcall Inportw( portid) 
{ 
 inpw(portid);} 
/*作用:向指定端口写入个字节 
参数:portid端口号*/ 
void _stdcall Outportw( portid, word) 
{ 
outpw(portid,(unsigned ) word); 
} 

　　注意:这种思路方法只能用于Windows 95不能用于Windows NT