Private Declare Sub vbOut Lib "c:\windows\temp\WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Private Declare Sub vbOutw Lib "c:\windows\temp\WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Private Declare Function vbInp Lib "c:\windows\temp\WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Private Declare Function vbInpw Lib "c:\windows\temp\WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Private Sub Command1_Click()
vbOut &H3F8, 0
End Sub