Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress _
  As Short) As Short
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As _
Short, ByVal Value As Short)
 
 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
        Out(&H378S, &HFFS) 'Print '1' to D7-D0 or 255 in Decimal
 
        Dim Value1 As String 'String named Value1
 
        Value1 = Inp(&H378S) 'Now Value1 has the values in 'data port'
 
        MessageBox.Show(Value1) 'A popup will indicate the current value written
 
    End Sub