用VB编程时，出现一个奇怪的有关问题，希望们能偶帮帮忙

用VB编程时，出现一个奇怪的问题，希望大虾们能偶帮帮忙。
运行时，一下量具出现问题，都是“实时错误   380   无效的属性值”。
Slider.Max   =   Int(Val(MPlayer.currentMedia.duration))
lblTimeEnd.Caption   =   Str(MPlayer.currentMedia.durationString)

但是，在调试时却一点问题都没有问题（包括直接按F8调试）。
这让小虾米俺束手无策了

------解决方案--------------------
请检查Slider控件属性页属性MAX值的设置是否符合MPlayer.currentMedia.duration的要求.将Slider控件属性页属性MAX值调大到MPlayer.currentMedia.duration输出的最大值.
以下见MSDN的说明:
属性值无效（错误 380）
给属性赋予了一个不适当的值。此错误产生的原因及解决方法如下：
试图为对象或控件的属性设置允许范围之外的值。
把属性的值改为有效的设置值。例如，MousePointer 属性必须被设为一个从 0 到 15 或 99 的整数。

------解决方案--------------------
Slider控件属性页属性MAX值的设置值必须是> 0,否则报错 "实时错误 380 无效的属性值 ",你需用代码判断:
If Val(MPlayer.currentMedia.duration) > 0 Then
Slider.Max = Val(MPlayer.currentMedia.duration)
Else
Slider.Max = 1
End If