mciSendString "open" & " " & a, vbNullString, 0, 0
s = String(256, Chr(0))
mciSendString "status a leght"s,len(s),0
'val(s)就是煤体的总长度啊
 当我要加进度条时啊
HScroll1.Max = Val(s)他总说超过范围了
我知道朝了
但是给怎么该啊
谢谢

把  Val(s) 缩小一定倍数，也就是说除以某数，这样就能解决问题。但是要注意，在调节滚动条时，一定要还原成原数:
Val(HScroll1.Value) * n    ' n 是倍数