PictureBox控件作播放时间进度条演示，不会闪烁，并且和Slider控件同步

转载请注明出处。VB演示源码下载地址：http://download.csdn.net/source/315615

'PictureBox控件作播放时间进度条演示，不会闪烁，并且和Slider控件同步。
'在窗体Form1中放2个命令按钮Command1、Command2，1个滑杆控件Slider1，1个图片框控件Picture1，Picture1和Slider1的宽度可以不一样，1个定时器控件Timer1

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Command1_Click()
        Dim S As String, fName As String, sName As String
        
        On Error Resume Next
        fName = "E:/下载歌曲/你最近还好吗_she.wma&#