Dim s As String
Dim r As Reflector
r.Target = s
r.RunPublicmethod("setDataSource",Array As Object("http://rekard.com/abhyas/tracks/5_Rangana_Nodire_Sushrutha/Without_metronome/Rangana_Nodire_120_C.mp3"), Array As String("java.lang.String"))
s = r.RunPublicmethod("extractMetadata",Array As Object("METADATA_KEY_DURATION"), Array As String("java.lang.int"))
Log("Meta data duration"&s)