关于VB API 函数

seek 命令用法：
到指定的位置播放。
Dim P1 as Long
P1 = 100
mciSendString "seek movie to ", P1, 0, 0 'P1是当前起始位置，单位：毫秒
mciSendString "seek movie to start", 0&, 0, 0 '定位到开头位置
mciSendString "seek movie to end", 0&, 0, 0 '定位到最后位置

status：
1,status position:
获取当前播放位置：
Dim st As String*64
mciSendString "status movie position", st, len(st), 0
2,status length:
获取媒体的总长度：
mciSendString "status movie length", st, len(st), 0
l=val(st) 'l就是所播放文件的长度

Dim ST As String * 64
- -! 这个*可不是乘以的意思啊！ 像C里面的指针等都是用这符号的！ 当然，VB里没指针，这个表示定义长度，具体定义多长自然是根据你实际需要来定的，改小了的话如果你后面给此变量赋值时，有可能会出问题`` 一定要超过你后面要用到给它赋值的最大长度。

Dim 字符串变量 As String * 64 意思是申明一个指定长度为64的字符串

mciSendString 是一个API函数，他的作用是多媒体操作
"seek status position length" 这些是传递给这个函数的参数
mciSendString 请看MSDN的详细解释：

mciSendString函数，参数用法、意义 百度上搜索
Dim ST As String * 64
用定义定长字串咯，理解定义64个字字符的字串咯

上网搜下API不就行啦——！ 这种知识性问题 在google就可以了 不要上百度找 我保准你找到