Dim audioStr As AudioStreamer
Try
audioStr.Initialize("AudioStream", 8000, True,16,audioStr.VOLUME_MUSIC)
Log("trying 8000")
Catch
Log("8000 failed")
Try
Log("trying 11000")
audioStr.Initialize("AudioStream", 11000, True,16,audioStr.VOLUME_MUSIC)
Catch
Log("11000 failed")
Try
audioStr.Initialize("AudioStream", 16000, True,16,audioStr.VOLUME_MUSIC)
Catch
Log("16000 failed")
Try
audioStr.Initialize("AudioStream", 22000, True,16,audioStr.VOLUME_MUSIC)
Catch
Log("22000 failed")
Try
audioStr.Initialize("AudioStream", 44100, True,16,audioStr.VOLUME_MUSIC)
Catch
Log("44100 failed")
End Try
End Try
End Try
End Try
End Try