Sub App_Start
form1.show
fmod.New1
Timer1.Interval = 1000
if OpenDialog1.Show <> cCancel then
fmod.Play(OpenDialog1.File)
fmod.Position = 0.5 * fmod.Length1
Timer1.Enabled = true
end if
End Sub
Sub Timer1_Tick
Form1.Text = Format(fmod.Position / fmod.Length1
* 100,"n0") & "%"
End Sub