网游禁止结婚系统:关于vb的问题

我用vb编写一个电子时钟程序,为其设置了一个报时程序,具体报时功能由windows API函数playsound来实现,函数中有两个参数来设置其运行方式为异步或者同步,现在的问题是我设置成同步以后,程序能正常报时,但是报时的时候计时部分停止运行,当报时结束后才继续开始计时;如果参数设置为异步,则所有声音文件同一时间被播放(我为报时录制了0-9十个数字的音频),请问如何解决这个问题?
具体报时过程代码如下:
Sub NoticeTime(ByVal h1 As Integer, ByVal h2 As Integer, ByVal m1 As Integer, _
ByVal m2 As Integer, ByVal s1 As Integer, ByVal s2 As Integer)'h1为时间时钟的第一位,h2为时间时钟第二位,以此类推其他变量
'定义报时过程
Dim Num(5), n As Integer
Num(0) = h1
Num(1) = h2
Num(2) = m1
Num(3) = m2
Num(4) = s1
Num(5) = s2
MyPlaySound "NowTime.wav"
For n = 0 To 5
Select Case Num(n)
Case 0
MyPlaySound "0.wav"
Case 1
MyPlaySound "1.wav"
Case 2
MyPlaySound "2.wav"
Case 3
MyPlaySound "3.wav"
Case 4
MyPlaySound "4.wav"
Case 5
MyPlaySound "5.wav"
Case 6
MyPlaySound "6.wav"
Case 7
MyPlaySound "7.wav"
Case 8
MyPlaySound "8.wav"
Case 9
MyPlaySound "9.wav"
End Select
If n \ 2 = 0 And n Mod 2 = 1 Then
MyPlaySound "Hour.wav" 'MyPlaySound是定义的播放过程
End If
If n \ 2 = 1 And n Mod 2 = 1 Then
MyPlaySound "Minute.wav"
End If
If n \ 2 = 2 And n Mod 2 = 1 Then
MyPlaySound "Second.wav"
End If
Next
End Sub

Sub MyPlaySound(filename As String)
'定义声音播放过程
filename = App.Path & "\" & "sound" & "\" & filename
If FileExists(filename) And ProgramSoundsEnabled Then
PlaySound filename, CLng(0), SND_SYNC Or SND_FILENAME
End If
End Sub
如果采用系统时间的话,那我修改时间的过程怎么做呢?还是直接修改系统时间(通过双击右下的时间)?

下面是报时的调用过程,dzbs是主窗口上的一个命令按钮
Private Sub dzbs_Click()
NoticeTime time_hour1, time_hour2, time_minute1, time_minute2, _
time_second1, time_second2
End Sub