Spanish Imprimir logo/imagen en impresora bluetooth

Dim sf As Object = Printer1.Initialize(Me, "Printer1")
Wait For (sf) Printer1_Connected (Success As Boolean)

Public Sub Connect As Boolean
    Dim PairedDevices As Map
    PairedDevices = Serial1.GetPairedDevices
    Dim l As List
    l.Initialize
    For i = 0 To PairedDevices.Size - 1
        l.Add(PairedDevices.GetKeyAt(i))
    Next
    Dim Res As Int
    Res = InputList(l, "Choose a printer", -1) 'show list with paired devices
    If Res <> DialogResponse.CANCEL Then
        Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address
        Return True
    End If
    Return False
End Sub

Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address