Descobrir o Tempo de uma música...VB6 > MMControl

[raf123]

Galera é o seguinte... estou a desenvolver um Player de música e video e estou usando o MMControl noo VB6 ee estou tenho que saber o tempo da musica... se pode me ajudar Agradeço... senão poder Agradeço da mesma forma! Alguém arrisca?

[raf123]

não sei se intereça aa alguem... mais consegui depois de muito custo!

ta ai:

Dim oi As String * 255

oi = MMControl1.Length

Dim Totaltime As Long

Dim Seg As Long

Dim Min As Long

Dim Tempo As String

Totaltime = oi

Seg = Val(Totaltime / 1000)

Min = Val(Seg / 60)

Seg = Seg - (Min * 60)

Tempo = Min & ":" & Seg

Tempo = Format(oi, "short time")