Meu amigo Cláudio. Já fiz de tudo um pouco inclusive retirar a propriedade e colocar o Endereço na Mão.

Me de uma explicação. Funciona no VB mas Não funciona do VFP e só no WINDOWS NT/XP/2000 ?

Acho que devo estar errando em alguma coisa. Veja o que diz o help da Função SetPorVal, a unica coisa e que o VFP não tem tipos de dados WORD,DWORD e Byte. Uso tudo como Integer.

Mas na Droga do Windows 98 funciona perfeito.

SetPortVal
This function writes a BYTE/WORD/DWORD value to an I/O port. 

bool _stdcall SetPortVal(
   WORD wPortAddr,       
   DWORD dwPortVal,      
   BYTE bSize            
);                        
Parameters
wPortAddr 
[in] I/O port address 

dwPortVal 
[in] Value to be written to the port 

bSize 
[in] Number of bytes to write. 
Can be 1 (BYTE), 2 (WORD) or 4 (DWORD). 
Return Values
If the function succeeds, the return value is true. Otherwise, the function returns false. 
Remarks
The SetPortVal function writes a byte, a word or a double word to the specified I/O port. 

Note: Under Windows 98/ME, an application must use the SetPortVal function to write values to an I/O port. Under Windows NT/2000/XP, it is possible to 

>Oi Paulo;
>
>voce ja tentou ?
>
>

>FUNCTION Envia
>LPARAMETERS lcString
>
>	lnEnd  = Thisform.hex2dec( allt(Thisform.txtEnd.Value) )
>

>
>pode contar espacos..