(),內請直接由物件點擊進入，我就不打了!

Public Class Form1

Dim a,b(99),c As Integer

Private Sub Button1_Click()

a = 0 : c = 0

End Sub

Private Sub Button2_Click()

a = 1 : c = 0

End Sub

Private Sub Button3_Click()

a = 2

End Sub

Private Sub Form1_Load

a=99

b()=1

b()=2

b()=4

b()=8

b()=&H10

b()=&H20

b()=&H40

End Sub

Private Sub Timer_Tick()

If c>14 Then c=14

Text1.Text="Current time:" & timeOfDay()           

 '注意!此行與VB6.0不同(time$)變為(timeOfDay)

Out (&H378,0)

Out (&H37A,4)

Out (&H37A,0)

End If

If a = 0 Then

Out (&H37A8,)

Out (&H378,b(c))

End If

If a = 1 Then

Out (&H378,2^c)

Out (&H37A,4)

Out (&H37A,0)

End If

If a = 2 Then End

c=c+1

End Sub

End Class