Private Declare Sub pportout Lib "pportc32.dll" _
(ByVal PortAddress As Integer, ByVal Value As Integer)
Private Declare Function pportin Lib "pportc32.dll" _
(ByVal PortAddress As Integer) As Integer

Private Sub Command1_Click()
pportout &H378, &H1A   ' 378번지(빨강)에 16진수 1 10을 출력   0001 1010
End Sub

Private Sub Command2_Click()
pportout &H37A, &H4 ' 37A번지(초록)에 16진수 4 출력       반원반반 8421       0100 -> 1111
End Sub

Private Sub Command3_Click()
pportout &H378, Val("&H" + Text1.Text)  ' 378번지(빨강)에 16진수 Text1값을 출력
End Sub

Private Sub Command4_Click()
pportout &H37A, Val("&H" + Text2.Text)  ' 37A번지(초록)에 16진수 Text2값을 출력
End Sub

Private Sub Command5_Click()
Text3.Text = Hex(pportin(&H379) And &HF8)  ' 379번지의 입력에 F8을 AND
End Sub

비베로 프린터포트 출력하는 건데
글쎄 필기로 본다네요 ㅋㅋㅋ
대략 위와 같이 정리중..... 모가 나올지 모르니... ㅎㅎ

위에께 기본 출력 과정 초간단;;
시험에 나올만한거 아시느분 예상문제좀 남겨 주세요 ㅋㅋ