Sub PlayFile(Dir As String, FileName As String)
Dim audioSystem As JavaObject
audioSystem.InitializeStatic("javax.sound.sampled.AudioSystem")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Dim in As JavaObject = audioSystem.RunMethod("getAudioInputStream", Array(f))
Dim clip As JavaObject = audioSystem.RunMethod("getClip", Null)
clip.RunMethod("open", Array(in))
clip.RunMethod("start", Null)
in.RunMethod("close", Null)
End Sub