Generate QR-code VB6

Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Type UUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type
 
Private Type PICTDESC
    size As Long
    Type As Long
    hBmp As Long
    hpal As Long
    Reserved As Long
End Type
 
Private Declare Function GetHBitmap Lib "quricol32.dll" _
                         Alias "GetHBitmapW" ( _
                         ByVal Text As Long, _
                         ByVal Margin As Long, _
                         ByVal size As Long, _
                         ByVal Level As TErrorCorretion) As OLE_HANDLE
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" ( _
                         ByRef PicDesc As PICTDESC, _
                         ByRef RefIID As UUID, _
                         ByVal fPictureOwnsHandle As Long, _
                         ByRef IPic As IPicture) As Long
Private Declare Function IIDFromString Lib "ole32" ( _
                         ByVal lpsz As Long, _
                         ByRef lpiid As UUID) As Long
Private Declare Function DeleteObject Lib "gdi32" ( _
                         ByVal hObject As Long) As Long
 
Private Function QRCodePictureFromText( _
                 ByRef sText As String) As StdPicture
    Dim hBitmap         As OLE_HANDLE
    Dim tPicDesc        As PICTDESC
    Dim tIID_IPicture   As UUID
    
    hBitmap = GetHBitmap(StrPtr(sText), 3, 5, QualityLow)
    If hBitmap = 0 Then Exit Function
    
    With tPicDesc
       .size = Len(tPicDesc)
       .Type = vbPicTypeBitmap
       .hBmp = hBitmap
    End With
    
    IIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), tIID_IPicture
    
    If OleCreatePictureIndirect(tPicDesc, tIID_IPicture, True, QRCodePictureFromText) < 0 Then
        DeleteObject hBitmap
    End If
    
End Function
 
Private Sub Form_Load()
    
    Set Me.Picture = QRCodePictureFromText("Hello world!" & vbNewLine & "Привет мир!")
    
End Sub

    Set Me.Picture = QRCodePictureFromText("Hello world!")

    Picture = QRCodePictureFromText("Hello world!" & vbNewLine & "Привет мир!")

Private Function QRCodePictureFromText( _
                 ByRef sText As String) As StdPicture
    Dim hBitmap         As OLE_HANDLE
    Dim tPicDesc        As PICTDESC
    Dim tIID_IPicture   As UUID
    
    hBitmap = GetHBitmap(StrPtr(sText), 3, 5, QualityLow)
    If hBitmap = 0 Then Exit Function
    
    With tPicDesc
      .size = Len(tPicDesc)
      .Type = vbPicTypeBitmap
      .hBmp = hBitmap
    End With
    
    IIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), tIID_IPicture
    
    If OleCreatePictureIndirect(tPicDesc, tIID_IPicture, True, QRCodePictureFromText) < 0 Then
        DeleteObject hBitmap
    End If
    
End Function

procedure DestroyBuffer(Buffer : PByte); stdcall; external 'quricol32.dll';

[SPOILER]Option Explicit
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
Private Declare PtrSafe Sub GenerateBMP _
                Lib "C:\Downloads\quricol64.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As LongPtr, _
                ByVal Text As LongPtr, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
Private Declare PtrSafe Sub GenerateBMPToClipboard _
                Lib "C:\Downloads\quricol64.dll" _
                Alias "GenerateBMPToClipboardW" ( _
                ByVal Text As LongPtr, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
Private Sub Form_Load()
 
End Sub
 
Sub InsertImage()
   GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
   ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")
End Sub[/SPOILER]