Dim strDev As String
Dim strBytes() As Byte
Dim L As List
L.Initialize
Devices.Initialize
For Each MI As JavaObject In MixerInfos
'Add the name to the list for the B4xCombobox
strDev = MI.RunMethod("getName",Null)
strBytes = strDev.GetBytes("ISO-8859-1")
'strBytes = strDev.GetBytes("UTF-8")
strDev = BytesToString(strBytes, 0, strBytes.Length, "GB2312")
'strDev = BytesToString(strBytes, 0, strBytes.Length, "UTF-8")
L.add(strDev)
'Add the MixerInfo to the corresponding Devices List
Devices.Add(MI)
Next