L1.Caption = L1.Caption - 1
If L1.Caption = 0 Then
wmp1.URL = App.path & "\mp3\bg.mp3"
Image2.Visible = True
End If
End Sub
其中WM1是引用的控件Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll",L1是標簽,也就是倒計時
在VB6中的工程引用中找到WMPLAYER
以上是我原來用VB6時的壹個倒計時定時器代碼部分。