Private Sub CreateQRCode(Code As String) As ResumableSub
Dim BytesIO As PyWrapper = Py.ImportModuleFrom("io", "BytesIO")
Dim qrcode As PyWrapper = Py.ImportModule("qrcode")
Dim qr As PyWrapper = qrcode.Run("QRCode").ArgNamed("box_size", 10).ArgNamed("border", 4).ArgNamed("error_correction", qrcode.GetField("ERROR_CORRECT_L"))
qr.Run("add_data").Arg(Code)
qr.Run("make").ArgNamed("fit", True)
Dim Img As PyWrapper = qr.Run("make_image").ArgNamed("fill_color", "white").ArgNamed("back_color" , "black")
Dim rv As PyWrapper = BytesIO.Call
Img.Run("save").Arg(rv)
Wait For (rv.Fetch) Complete (rv As PyWrapper)
Return Py.ImageFromBytes(rv.Value)
End Sub