Вот пишу код:
Dim i As Long, RS As String, cb As Long, s As Single
RS = Space$(128)
i = mciSendString("status sound length", RS, 128, cb)
If Val(RS) Then
s = Val(RS)
i = mciSendString("status sound position", RS, 128, cb)
s = Val(RS) / s
Этот код, для того чтобы, когда проигрываешь CD показывало какой номер трека! Но как сделать так, чтобы номер показывался в LABEL1.CAPTION?

А вот ещё, забыл, подскожите как сделать, чтобы показывало время каждого трэка? (у меня не получаеться)