Private Sub main()
MMControl1.DeviceType = "waveaudio"
MMControl1.Command = "open"
Rem MMControl1.UpdateInterval = 1000
MMControl1.Command = "play"
End Sub
Private Sub Timer1_Timer()
Text9 = Time$
a = Val(Text1)
b = Val(Text3)
c = Val(Text2)
d = Val(Text4)
e = Val(Text5)
f = Val(Text6)
g = Val(Text7)
h = Val(Text8)
ss = Val(Mid$(Time$, 7, 2))
x = Val(Mid$(Time$, 1, 2)) * 100
y = Val(Mid$(Time$, 4, 2))
xy = Val(x + y)
If xy = a Or xy = b Or xy = c Or xy = d Or xy = e Or xy = f Or xy = g Or xy = h Then
If ss = 1 Then
Text12 = aaaaa
Call main
End If
End If
End Sub