Private Sub ComGreenLED_Click()
G n                                                           　　　　　ｎ＝題目綠燈的數值　
.    
.
.
.
.
.
.
G 0
R 0
End Sub

Private Sub ComRedLED_Click()
R 1
R 2
R 4
R 8
R 16
R 32
R 64
R 128
R 0
G 0
End Sub

Private Sub ComEXIT_Click()
End
End Sub

Private Sub Form_Load()
R 0
G 0
End Sub

Private Sub Timer1_Timer()
Text1 = vbCrLf & "Current Time:" & Time$
End Sub

Private Sub RedLED(D As Byte)
out &H37A, 0
out &H378, D
out &H37A, 4
W 1
End Sub

Private Sub GreenLED(D As Byte)
out &H378, D
out &H37A, 12
W 1
End Sub

Public Sub Wait(S As Single)
T = Timer
Do While Timer < T + S
  DoEvents
Loop
End Sub