Previous  Next

Returns the size of the loaded audio file.
Syntax: Length
In this example we combine Position and Length1 to show the music progress.
'Add an FMOD object named fmod first.
Sub Globals

End Sub

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