If manager.GetDevices.Length = 0 Then
' 'Log("No connected usb devices.")
Else
Dim device As UsbDevice = manager.GetDevices(usbport)
If manager.HasPermission(device) = False Then
ToastMessageShow("Conferma i permessi e riavvia.", True)
manager.RequestPermission(device)
Else
Log("Provo a stampare su porta "&usbport)
Log("DeviceClass "&device.DeviceClass)
Log("DeviceSubclass "&device.DeviceSubclass)
Log("DeviceName "&device.DeviceName)
Log("DeviceId "&device.DeviceId)
Log("VendorId "&device.VendorId)
Log("ProductId "&device.ProductId)
Log("InterfaceCount "&device.InterfaceCount)
usbserial.Initialize("serial", device, -1)
Log("inizializzatao il device ")
usbserial.BaudRate = 9600
usbserial.DataBits = usbserial.DATA_BITS_8
usbserial.Write(PrintBuffer.GetBytes("UTF8"))
'Sleep(1000)
End If
End If